PERL言語で、以下の処理をするソースをご教授頂きたく

質問

PERL言語で、以下の処理をするソースをご教授頂きたく
宜しくお願いします。

下記のようなCSVファイル(xxx.csv)があるとします。
（ID,メールアドレス,機種）

QWER,XpX@abc.ne.jp,IE7
qwGK,amQ@slc.ne.jp,IE6
sKoc,Ldh@kgi.ne.jp,IE8
　　　　・
　　　　・
　　　　・およそ5000行
　　　　・

とあるIDが、このCSVファイル内にあるか検索し、
完全一致するものがあったら何もしない。

無ければ、このファイルに新IDとして追加する。
（この新IDに関連し　$A=メールアドレス $B=機種がそれぞれ代入されていると仮定）

以上　宜しくお願いします。

回答No.1

chuchuo · ベストアンサー

$boo = 'False';
$ID0 = $input_data{'data1'};
$A = $input_data{'data2'};
$B = $input_data{'data3'};
open (IN,"xxx.csv");
@aaa = <IN>;
close (IN);

foreach $sch(@aaa)
{
($ID,$AD,$IE) = split (/,/,$sch);
if($ID eq $ID0)
{
$boo = 'True';
}
}
if($boo eq 'False')
{
unshift (@aaa,"$ID0,$A,$B\n");
open (OUT,">xxx.csv");
print OUT @aaa;
close (OUT);
}

exit;

ＩＤだけ一致すればいいのですね。
こんなんですか

実際に試していないので動くかどうかは保証できません。

お礼

突然の仕事都合（海外出張）でこちらにアクセスをしていませんでした。
ご回答ありがとうございました。