Perlについての質問箱 29箱目at TECHPerlについての質問箱 29箱目 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞの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; } で囲まれる。 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch