perlでのデータ処理について

質問

みなさんこんにちは、今、perlについてとても困っています。
以下に内容を記載しますので、わかる方がいましたら
良きアドバイスをお願いします。

#使用するファイルは2つです。

#元データ＝$files1
#送信データ＝$files2

#データの一行処理開始
open(IN,"$files2") || &error("$files1を開けません。");
while (<IN>) {

($no,$id,$mail,$type,$data)=split(/,/);

# $files2を一行づつ読み込んで送信処理をしていきます。
.
.
.
.
.

#ここからが問題点です。
# $files2を一行読み込んで送信が終わったら、$files1へ送信履歴として、
#日付を入力します。以下にスクリプトを記載しますので、良きアドバイスを
#お願いします。

&get_date;
@logs=();
@new=();

open(LOG,"$files1") || &error("$files1を開けません");
@logs = <LOG>;
close(LOG);

foreach $log (@logs){
@all_data = split(/,/,$log);

if ($all_data[0] eq $id){ # $idは$files2から読み込んだ数値です。

$shori_date="$year\/$w_mon\/$w_mday";
$all_data[33]="($shori_date)($hour:$min)";

for ($i=0; $i<@all_data; $i++){ $work.="$all_data[$i],"; }
chop $work;
push(@new,$work);
}else{ push(@new,$log); }
}

open(ALL,"+< $files1") || &error("$files1に書き込めません");
flock(ALL,2);
truncate(ALL,0);
seek(ALL,0,0);
print ALL @new;
close(ALL);

#ここまでです。
#このようにすると、日付は入るのですが、データの更新、書き込みされたファイルを見ると
#同じ内容が、2重、3重にコピーされて、ファイルに書き込みされてしまいます。
}
close(IN);

以上なのですが、良きアドバイスを教えて下さい。

回答No.2

okmotokun · ベストアンサー

正規表現なんか使わなくても $work=""; でいいです。
これを 使い始める前か、使い終わった後に置きます。while(<IN>)ループの中ならどこでもいいです。
具体的には、【1】～【4】のどこかですね。
ついでですが、@logs=(); には意味がありません。それと、
for ($i=0; $i<@all_data; $i++){ $work.="$all_data[$i],"; }
chop $work;
push(@new,$work);
}else{ push(@new,$log); }
}
のところは、
push(@new,join(',',@all_data)); の１行でいいじゃないですか。そうすると $work は不要ですね。

open(IN,"$files2") || &error("$files1を開けません。");
while (<IN>) {
($no,$id,$mail,$type,$data)=split(/,/);
&get_date;
@logs=();
@new=();
【1】
open(LOG,"$files1") || &error("$files1を開けません");
@logs = <LOG>;
close(LOG);
【2】
foreach $log (@logs){
@all_data = split(/,/,$log);
if ($all_data[0] eq $id){
$shori_date="$year\/$w_mon\/$w_mday";
$all_data[33]="($shori_date)($hour:$min)";
【3】
for ($i=0; $i<@all_data; $i++){ $work.="$all_data[$i],"; }
chop $work;
push(@new,$work);
}else{ push(@new,$log); }
}
open(ALL,"+< $files1") || &error("$files1に書き込めません");
flock(ALL,2);
truncate(ALL,0);
seek(ALL,0,0);
print ALL @new;
close(ALL);
【4】
}
close(IN);

お礼

ありがとうございました。おかげで改善できました。
また、わからない事があったら、質問しますので
その時は、よろしくお願いします。

回答No.1

okmotokun

上記の書き方だと、$files2 の 1行処理ごとに $work をカラにしないといけません。

補足

アドバイスありがとうございます。

$workをカラにする方法ですが、正規表現の置き換えでもいいのでしょうか？
例えば、$work=~ s/$work//g;で$workの中身をカラにしてもいいのでしょうか？

$work=~ s/$work//g;このやり方でやってみたら、日付は入力されましたが、処理が一度しか行われず、
メールの配信が一行目を送って日付を入力したら、スクリプトが終了してしまいました。

どこの部分で、どのようにして$workをカラにすれば全ての送信ファイルを処理できますか？

すみませんが教えて下さい。
よろしくお願いします。