perl CGI ファイルへデータを書き込む

Last Updated on 2023年11月26日 by Dotmatrix

ファイルへデータを書き込む

perlスクリプトでファイルにデータを書き込むやり方です

#書き込むためのデータファイルを開き、配列に入れます

open IN,”logfile.txt”;

#ファイルハンドルを使用して配列に入れます
@all = <IN>;

close IN;

#配列の順番を反対にします。しないとデータが逆順で表示されることがあります

@all = reverse @all;

#書き込み用のデータファイルを作成します。中にデータが入っていたら消えます

open out,”>logfile.txt”;

#書き込み用のデータファイルに配列に入れて逆順にした@allを特殊変数$_を使って書き込みます

foreach(@all){

print out $_ ;

}

close out;

# 実際にはこういう感じで使ってます

open (OUT, “>webclip.txt”);

print OUT @aaa;

close (OUT);

foreach $youso (@aaa) {

print “<tr><td> $youso<br><br> </td></tr>”;

}

ファイルに書き込んでおいて表示処理してます