perl/open関数、while文、デフォルト変数$_〜ファイルを開いて読み込み内容をprint〜
#! usr /bin/perl use strict; use warnings; #関数openを使ってファイルをひらいてみる #open(FILE,'開きたいファイル名') or die "$!" =>ファイルが開けなかったら終了するよ。 #while(条件式){繰り返し実行する処理}; open(FILE,'file.txt') or die "$!"; while (my $line = <FILE>){ print $line; } close(FILE); =head #デフォルト変数$_を使用して書いてみる open(FILE,'file.txt') or die "$!"; while (<FILE>){ print "$_"; } close(FILE); =cut