| ■No8435に返信(hiroさんの記事)
> ログに書き込む時のソースと、ログを読んで修正する部分と書き換えた部分のソースを抽出して、
> あるいは、ソース全体をアップした方がいいでしょうか。
print OUT "$no<>...<>$in{'P3'}<>$in{'S2'}<>$in{'S3'}<>\n";
↓
print OUT "$no<>...<>@P3<>$in{'S2'}<>$in{'S3'}<>\n";
としてしまうとか、@ が "〜" のなかに使えない場合は
foreach (@P3){$P3.="$_ ";} として $P3 をログに保存します。
参照する場合は
($dat,...,$p2,@P3,$s2,$s3) = split(/<>/);
としてそれを foreach などで処理します。
|
