| ■8453 / ) |
Re[8]: チェックボックスの値を出力するには？
|
□投稿者/ hiro -(2004/01/17(Sat) 22:31:31)
| ■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に変えればすむというものでもないのですね。
|
|
