| ■No8442に返信(りゅういちさんの記事) > > print OUT "$no<>...<>$in{'P3'}<>$in{'S2'}<>$in{'S3'}<>\n"; > ↓ > print OUT "$no<>...<>@P3<>$in{'S2'}<>$in{'S3'}<>\n"; > としてしまうとか、@ が "〜" のなかに使えない場合は > foreach (@P3){$P3.="$_ ";} として $P3 をログに保存します。
ログに書き込む方は次のようにすることで、複数のデータを渡すことができるようになりました。 open(OUT,">>$logfile") || &error("Write Error : $logfile"); foreach (@P3){$P3="$_ ";} print OUT "$no<>...<>@P3<>$in{'S2'}<>$in{'S3'}<>\n"; close(OUT);
> 参照する場合は > ($dat,...,$p2,@P3,$s2,$s3) = split(/<>/); > としてそれを foreach などで処理します。
ログを読み込む方は、いろいろ試していますが、今のところうまくいきません。 自分の力量では手に余る感じがします。 $p3を@p3に変えればすむというものでもないのですね。
|