Perlについての質問箱 29箱目 at TECH

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
700:デフォルトの名無しさん 07/02/18 22:08:59 こんな感じじゃね？試してないけど。 my $sum = 0; my $i = 0; for my $file (qw(unko1.txt unko2.txt)) { 　open my $fh, $file or die "開けん"; 　while(<$fh>) { $sum += (/;\s*(-?\d\.\d);/)[0]; $i++; } } print "阿部怜治：", $sum / $i, $/; 701:694 07/02/18 23:30:17 >>698.700 ありがとうございます。 もう少し頑張って明日試してみます。 702:デフォルトの名無しさん 07/02/19 00:43:52 じゃ模範的なperlで perl -pae "$l++;$s+=$F[1]}{$_=$s/$l" input.txt 703:デフォルトの名無しさん 07/02/19 00:58:40 perl -F";" -lane '$t+=$F[1]; END{print $t/$.}' input.txt 704:デフォルトの名無しさん 07/02/19 04:15:19 >>702 $F[1]}{ の }{ って何してるの？ 705:デフォルトの名無しさん 07/02/19 04:59:09 >>704 $ perl -h -n assume "while (<>) { ... }" loop around program -p assume loop like -n but print line also, like sed -p は while (<>) { ... print; } で囲まれる。

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

5380日前に更新/220 KB
担当:undef