先ほどの例では決められた文字列を表示するだけでした。
それではおもしろくないので、ファイルを読み込んで表示させるようにしてみましょう。

---------- 例　２　ここから ----------
#!/usr/bin/perl
open (IN,"./textfile.txt");
while ($line = <IN>)
　　{print $line;}
close IN;
exit;
---------- 例　２　ここまで ----------

ちょっと複雑になりましたね(^^)　これは何をしているでしょうか？

一行目は、もう説明の必要はありませんよね？

二行目にはいきなり「open」なんて書かれています。
openというのはファイルを開けという命令です。ここではファイルハンドル「IN」として「./textfile.txt」というファイルを読み込みモードで開け、という意味です。

ファイルハンドルというのは、簡単に言うと、ファイルを開くという動作をすると、読み込みや書き込みという動作ができるのですが、その度にいちいちファイルのパスを記述するのは面倒なので、そこに名前を付けて扱いやすくしたものだと思って下さい。

三行目には<IN>というのがありますが、これはファイルハンドル「IN」のものから一行読み込め、という意味です。

つまり、while ($line = <IN>)では$lineという変数に「IN」から一行読み込んだ物を代入して、それが真（つまり読み込めたということ）となる間は、次の{}内の処理を繰り返せ、ということです。whileのあとには「;」がありませんが、その替わりステートメントブロック「{}」が続いています。
ここではINから一行読み込める間はその内容を表示し続けよ、ということになりますね(^^)

開かれたファイルは開きっぱなしではいけませんので、closeで閉じておきます。

最後のexit;はおわかりですよね(^^;

Perlってどう書くの？（１）＜
＞ＣＧＩの部屋へ戻る＜
＞Perlってどう書くの？（３）