PerlによるCSVファイルの高速集計 2：CodeZine

open(OUT, '>result.csv'); open(IN1, 'enquate.csv'); # アンケートデータを1行ずつ処理する while(my $line1 = <IN1>){ # 1行を4つに分ける chomp($line1); my ($id, $ans1, $ans2, $ans3) = split(/,/, $line1, 4); # この行にマッチする顧客データを検索する my $name = ''; my $address = ''; open(IN2, 'address.csv'); while(my $line2 = <IN2>){ chomp($line2); my ($tmp_id, $tmp_name, $tmp_address) = split(/,/, $line2, 3); if($tmp_id eq $id){

[webmarksjp]

perl

[yzixvxizy]

結合

[dlive1]

下手したらファイル読込すごいから、HashとかDBMとか使えという話とCSVって形式いろいろあるからText::CVS_XSとかEncodeとかJcodeとか使って対応しろという話

[drk7jp]

スゴイ技が載っていると期待して見てみたら当たり前の事ばかり・・・残念