ファイル出入力の基礎

今から　file.pl を作成したいと思います。
別に拡張子は　file.cgiにしてもよかったんですが。

とにかく　これは
勝手に　trinity777.txtというファイルを　htdocsの中に作ります。

Perlって楽しいね
簡単に改造して遊べるから楽しいね 　と　暫定的に　書き込んであります。
(あなたの　お好きな文句にして　結構ですよ)

それから　trnity777.txtファイルを　勝手に開いてブラウザの画面に

Perlって楽しいね
簡単に改造して遊べるから楽しいね　　とUTF-8 で表示しちゃうCGIであります。

#!D:/xampp/perl/bin/perl -w  　　　#Cドライブの人はCにしてね
use CGI;
$q = new CGI;
$fname = 'trinity777.txt';
#ファイル書き込み
open(FILE, ">$fname") or die;
print FILE 'Perlって楽しいね', "\n";
print FILE '簡単に改造して遊べるから楽しいね', "\n";
close(FILE);
#ファイル読み込み
open(FILE, "<$fname") or die;
@rec = <FILE>;         #@rec という配列にデータを読み込ませています
close(FILE);
#HTML ヘッダー出力
print $q->header(-type =>'text/html', -charset =>'utf-8'),
$q->start_html(-title=>"ファイル出入力テストです"),
$q->p("あなたのファイルの中味はコレだっ")
foreach (@rec){print $_　, '<BR>' ;}
#　$_　,　は特殊変数というものです 
#ファイルの中身を一行ずつ読み込ませて改行　ということを繰り返してブラウザに出力します
exit;
print $q->end_html;