- ベストアンサー
Perlで積算の仕方がわからない
Tacosanの回答
- Tacosan
- ベストアンサー率23% (3656/15482)
既に答えは書かれています. 全ての回答を見てください.
関連するQ&A
- 整数の指数を少数の指数で表示したい
awkで計算をさせた結果、下記のような値になりますが、 echo "" | awk '{ OFMT = "%5e"} {print 2*0.5*3.1415*60*8*2600*3500*20000*20000*(0.5*64.6*0.00000001)*(0.5*64.6*0.00000001) }' ＝ 5.726440e+05 この5.726440e+05--> 0.5726440e+06 と出したいのですが方法が解りません。 awkでも、perlでも良いので、このような表示にする方法を教えてください。
- ベストアンサー
- Perl
- 16進数のデータをソートするには？
Linux上で16進数のデータをソートしたいのですがどうすれば実現できるでしょうか？ [test.txt] 11009 292f 6551 e6f6 ↓のようにソートしたい 292f 6551 e6f6 11009 手順はまず、16進数→10進数に変換してからソートでしょうか？ もしそうだとしても10進数に変換するところでつまずいています。 awkのprintfでやると下記のようにエラーがでます。 （頭に0xを追加して試してもダメでした） $ awk '{printf (%d, $1)}' test.txt awk: {printf (%d, $1)} awk: ^ syntax error awk: {printf (%d, $1)} awk: ^ syntax error ↓これだと変換できるのは知っているのですが・・・。 $ printf "%d\n" 0x292f 10543 以上、よろしくお願いします。
- 締切済み
- Linux系OS
- awkの使い方について教えてください。
awkとperlなどの初心者です。 使い方が分かっていないのですが、 例えば出力のフィールドセパレータを,に変更するには どうすればいいでしょうか？ awk '{OFS=,;print}' fileなどとやってみますが、 うまくいきません。2つ以上のコマンドを実行するときの 文法がわかっていないような気がするのですが。 あとperlでよくみかけるperl -neのnは何でしょうか？ man perlとやってみても-wと-eの意味しかのっていなくて なからないのですが。ご教授下さい。
- ベストアンサー
- その他（プログラミング・開発）
- データのカウント方法について(C言語初心者です)
二次元配列(10×10）の中のある特定のデータx[i][j][1]の総数を出力するというプログラムを作っています。 しかし、これだとデータがうまくカウントされません。x[i][j][1]は他の関数内で計算するようにしています。 int t, sum=0; for(t=0;t<=1000;t++){ for(i=0;i<N;i++){ for(j=0;j<N;j++){ sum=sum+x[i][j][1]; } } } printf("%d ?n", sum); 何が悪いのでしょうか？教えて頂けたら幸いです。
- ベストアンサー
- C・C++・C#
- ３行ずつ足す
AWK を使っていあのですが、perl への移行を目指して勉強しています。 (1) 行数が３の倍数 (2) 列数は分からない（スペース区切り。固定列数） (3) # はコメント行 というデータがあります。 このデータを perl に読み込ませて、 三行ずつ足して出力する ようなプログラムをつくっています。 例えば、６行４列のデータ test.dat # comment 1 2 3 5 3 2 1 6 2 2 2 7 4 5 6 7 6 5 4 6 5 5 5 5 を cat test.dat | sum3row.pl のように perl のプログラム sum3row.pl に読みこませて、三行ずつ足して # comment 6 6 6 18 18 18 18 18 という出力を得たいのです。 次の点で困ってます。 ●AWK の場合、今読み込んでいる行の列数は NF という変数で分かるのですが、perl ではよく分かりません。データへのアクセス自体は $data[2] のようにすれば良いことは分かっているのですが・・。 ●AWK の場合、今読み込んでいる行の番号は NR という変数で分かるのですが、perl ではよく分かりません。 すみませんが、よろしくお願いします。。 サンプルプログラムでも助かります（読んで自分で勉強しますので）。
- ベストアンサー
- Perl
- 計算式の意味について(Perl)
とあるソースを解析しているのですが、 Perlを初めてまだ日が浅いので 下記の計算式の最後の(1./60.)の意味がよくわかりません。 なぜ数字の後にドットが入っているのでしょうか？ どなたかご教示お願いいたします。 $d = ($t - $dly - $t0) - ($c - $c0)*(1./60.);
- ベストアンサー
- Perl
- JavaScriptの計算結果をPerlに取込みたいが
Perlで作成したCGIの中で、JavaScriptのファンクションを使っていますが、この計算結果をPerlに取込みたいのですが、うまくできません。基本がわかっていないので、よろしくご教授お願いします。
- ベストアンサー
- Perl
- perl 文字列検索後に指定フィールドの値を変数へ
菊池と申します。 perlスクリプトで下記のような文字列を検索し、検索されたら指定したフィールドの値を変数に入れたいのですが、grepやawkを使うと、ファイル中のすべてが検索対象になってしまい困っております。 文字列検索の表現方法をご教授頂けると大変助かります。 下記へperlスクリプトの一部を記載させて頂きました、データはcsv形式です。 変数に入れる事が出来なかったので、抽出した値をファイルへ出力させています。 検索文字列＝2013/11/19,09:00:00,13:00:00 データの中味 <94>N/<8c><8e>/<93>ú,<89>ð<90>Í<8a>J<8e>n<8e><9e><8d><8f>,<89>ð<90>Í<8f>I<97>¹<8e><9e><8d><8f>,<8c>ö<8b>¤<8d>À<95>WX(m),<8c>ö<8b>¤<8d>À<95>WY(m),<95>W<8d><82>H(m),<88>Ú<93>®<95>½<8b>Ï<92>lX(m),<88>Ú<93>®<95>½<8b>Ï<92>lY(m),<88>Ú<93>®<95>½<8b>Ï<92>lH(m),<8f><89><8a>ú<92>l<82>©<82>ç<82>Ì<95>Ï<93>®<97>ÊX(m),<8f><89><8a>ú<92>l<82>©<82>ç<82>Ì<95>Ï<93>®<97>ÊY(m),<8f><89><8a>ú<92>l<82>©<82>ç<82>Ì<95>Ï<93>®<97>ÊH(m),2D<8b><97><97>￡(m),3D<8b><97><97>￡(m),<88>Ú<93>®<95>½<8b>Ï2D<8b><97><97>￡(m),<88>Ú<93>®<95>½<8b>Ï3D<8b><97><97>￡(m),<91>ª<88>Ê<83>t<83><89><83>O,<91>ª<88>Ê<90>¸<93>x,<88>Ù<8f>í<92>l<83>t<83><89><83>O<81>i<8f><89><8a>ú<92>l<81>j,<88>Ù<8f>í<92>l<81>i<8c>x<89>ú<83><89><83><93><83>N<81>j,<94>ò<82>Ñ<92>l<83>t<83><89><83>O, 2013/11/18,01:00:00,05:00:00,-68213.2327,17746.2653,2093.7982,-9999.0000,-9999.0000,-9999.0000,5.0099,-0.5989,-4.8100,16215.1100,16255.8006,-9999.0000,-9999.0000,4,0.0019,0,0,0, 2013/11/18,05:00:00,09:00:00,-68213.2273,17746.2666,2093.7872,-9999.0000,-9999.0000,-9999.0000,5.0153,-0.5976,-4.8210,16215.1061,16255.7959,-9999.0000,-9999.0000,4,0.0014,0,0,0, 2013/11/18,09:00:00,13:00:00,-68213.2256,17746.2692,2093.7792,-9999.0000,-9999.0000,-9999.0000,5.0170,-0.5950,-4.8290,16215.1030,16255.7923,-9999.0000,-9999.0000,4,0.0016,0,0,0, 2013/11/18,13:00:00,17:00:00,-68213.2236,17746.2737,2093.7682,-9999.0000,-9999.0000,-9999.0000,5.0190,-0.5905,-4.8400,16215.0981,16255.7866,-9999.0000,-9999.0000,4,0.0014,0,0,0, 2013/11/18,17:00:00,21:00:00,-68213.2306,17746.2741,2093.7672,-9999.0000,-9999.0000,-9999.0000,5.0120,-0.5901,-4.8410,16215.1015,16255.7899,-9999.0000,-9999.0000,4,0.0016,0,0,0, 2013/11/18,21:00:00,01:00:00,-68213.2308,17746.2739,2093.7882,-9999.0000,-9999.0000,-9999.0000,5.0118,-0.5903,-4.8200,16215.1017,16255.7916,-9999.0000,-9999.0000,4,0.0016,0,0,0, 2013/11/19,01:00:00,05:00:00,-68213.2221,17746.2743,2093.8062,-9999.0000,-9999.0000,-9999.0000,5.0205,-0.5899,-4.8020,16215.0968,16255.7880,-9999.0000,-9999.0000,4,0.0017,0,0,0, 2013/11/19,05:00:00,09:00:00,-68213.2140,17746.2808,2093.7982,-9999.0000,-9999.0000,-9999.0000,5.0286,-0.5834,-4.8100,16215.0870,16255.7777,-9999.0000,-9999.0000,4,0.0013,0,0,0, 2013/11/19,09:00:00,13:00:00,-68218.2472,17746.8587,2098.6543,-9999.0000,-9999.0000,-9999.0000,-0.0046,-0.0055,0.0461,16217.2238,16258.2532,-9999.0000,-9999.0000,4,0.0017,0,0,1, 2013/11/19,13:00:00,17:00:00,-68218.2538,17746.8600,2098.6633,-9999.0000,-9999.0000,-9999.0000,-0.0112,-0.0042,0.0551,16217.2263,16258.2563,-9999.0000,-9999.0000,4,0.0014,0,0,1, 2013/11/19,17:00:00,21:00:00,-68218.2603,17746.8538,2098.6473,-9999.0000,-9999.0000,-9999.0000,-0.0177,-0.0104,0.0391,16217.2349,16258.2638,-9999.0000,-9999.0000,4,0.0016,0,0,1, ＜＜スクリプトの一部＞＞ #`grep "'2013/11/19,09:00:00,13:00:00'" $SS | awk -F"," '{print \$13}' $SS > $SS-2D`; #`grep "'2013/11/19,09:00:00,13:00:00'" $SS | awk -F"," '{print \$14}' $SS > $SS-3D`; `awk -F"," '\$1 ~ \/2013\/11\/19\/ && \$2 == \/09\:00\:00\/ {print \$13}' $SS > $SS-2D`; `awk -F"," '\$1 ~ \/2013\/11\/19\/ && \$2 == \/09\:00\:00\/ {print \$14}' $SS > $SS-3D`; 以上 よろしくお願いいたします。
- ベストアンサー
- Perl
- Firefoxでのperl解釈
根本的な理解不足か悩んでおります。 CSSの表示チェックのため最近FirefoxとIEでサイトを確認するようになりました。 windowsXPproのsp2でIE6ではperlで作った自作スクリプトが思ったように表示されますが、Firefox2では意図したとおり表示されません。 javascriptが混じっている場合javascriptの解釈の違いでうまくいかないことがあることは理解しているつもりです。 今回のperlによる自作スクリプトにはjavascriptは含まれません。perlのみです。 perlはウェブのサーバーで実行されて結果のHTMLを返すと思っていましたが、違うのでしょうか？ 教えたいただきたいことはperlやphpで作成したスクリプト（javascriptなどを含まないもの）の結果がブラウザにより違うことがあるのかどうかです。 よろしくお願いします。 参考までに上記のperlスクリプトの一部です。 変数設定など終わり最終のhtml振り分けです。 &checked; exit; 計算結果により飛び先が変わります。 sub checked{ if ($sum < 2){&resalt1;} if ($sum < 6){&resalt2;} if ($sum < 12){&resalt3;} if ($sum < 16){&resalt4;} } sub resalt1{ print <<"EOM"; <meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS"> <META HTTP-EQUIV="Refresh" CONTENT="0;URL=http://www.asaka-d.com/shindan/shindan1.html"> </head><body> </body></html> EOM } 以下 resalt2、3、4とありURLが変わっているだけです。 IEの場合とび先のサブルーチンのURLを表示し終了しますが、Firefoxの場合はsub checkdに戻り最後の判定まで行き必ずresalt4のURLに飛んでいきます。 スクリプトのつくりが甘かったのは事実です。かくresaltサブルーチンの最後にexit;を加えることで解決しました。 でもCGIの結果がブラウザにより変わるとは思えません。よろしくご指導ください。
- ベストアンサー
- ブラウザ
- CからPerlへの変換がうまくいきません
Cで作った二項分布の計算プログラムをPerlで書き直しています。 ユーザ関数の使い方がよくわかりません。 どこが間違っているか教えていただけませんでしょうか？ 余談ですが、ソースが左揃えになるのを防ぎたいのですが…。 #!/usr/bin/perl $p = 0.5, $s = 0, $t = 0, $combination = 0, $binarydistribution = 0; printf("n="); $n = <STDIN>; for ($r = 0; $r <= $n; $r++){ $combination = &factorial($n) / (&factorial($r) * &factorial($n - $r)); $s = 1; for ($i = 1; $i <= $r; $i++){ $s = $s * $p; } $t = 1; for ($i = 1; $i <= $n - $r; $i++){ $t *= (1 - $p); } $binarydistribution = $combination * $s * $t; printf("%.15f\n", $binarydistribution); } sub factorial{ $j = @_; $x = 1; for ($i = 1; $i <= $j; $i++){ $x *= $i; } return $x; }
- ベストアンサー
- Perl
お礼
なんとか、自力でperlで積算を求めるスクリプトを書く事ができました。 有難うございました。
補足
osamuyさんにご教授頂いていたのですが、コマンドプロンプトの画面の図が、私のPC上では、昨日チラッと見えただけて、見えなくなってしまいました。 確か、１ライナーで書かれていたとおもいます。 出来れば、perlのスクリプトの中で while文を使い入力データを１行ずつ呼び出しては、積算させて、出力ファイルへ書かせたいのです。 説明不足も申し訳有りません。