| ■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";} で表示可能だと思いますよ。
|