| ■No8453に返信(hiroさんの記事)
> open(OUT,">>$logfile") || &error("Write Error : $logfile");
> foreach (@P3){$P3="$_ ";}
> print OUT "$no<>...<>@P3<>$in{'S2'}<>$in{'S3'}<>\n";
> close(OUT);
上記で可能な場合は foreach (@P3){$P3="$_ ";} は不要だと思います。
削除してかまいません。
> > ログを読み込む方は、いろいろ試していますが、今のところうまくいきません。
> 自分の力量では手に余る感じがします。
> $p3を@p3に変えればすむというものでもないのですね。
いえ、そういう風に変更して
foreach $p3 (@p3){print"$p3";}
で表示可能だと思いますよ。
|
