cgi010 「ファイル操作　open（読み込み）」（04/11/29 Mon）

そろそろファイル操作なんかもやっちゃいます。

そーんなに難しくはないです。

☆　ファイルから読み込む　open　☆

#!/usr/local/bin/perl
$savefile = "save.txt";
open(file,"$savefile");
$test = <file>;
close(file);
print "Content-type: text/html\n\n";
print $test;
exit;

順番にいきます。

2行目：$savefileに、「save.txt」というテキストファイル名を入れています。

これは、実行するCGIと同じフォルダにあるsave.txtというテキストファイルを読むためです。

3行目：fileに"$savefile"というファイルを読み込んでいます。

ここはちょっと今までと違いますね。fileには「$」がついていません。

文字や、数値を入れる時は「$」がついたのに、ファイルを入れる時は、「$」がついてません。

まぁそういうもんです。区別してください。

で、4行目：$testにfileに読み込んだファイルの内容を入れています。

今度は、ファイル内の文字や数値を入れるので、普通に$testで良いんです。

そしてファイルが入ったfileを指定するときは<>が付いてます。

まぁカタチですし、仕方ないですね。

5行目：開いたファイルは、開きっぱなしでは、気持ち悪いです。閉じましょう。

閉じる時は簡単ですね。

で、実際、save.txtというファイルを作り、100と書いてCGIと同じフォルダに置いて

CGIを実行すると、ブラウザに、100と表示されます。

♪　結果表示　♪

100

★　Top　★