演習 (1) ファイル内容表示

ファイルを読みこんで表示する

# 標準入力から読みこまれた内容をそのまま表示するだけ
while (<>) { # 入力が続いてるかぎり繰りかえす
	print;
}

特殊変数

# まったく同じ内容，特殊変数 $_ を明示的に書いてるだけ
while ($_ = <>) {
	print $_;
}

ふつーのスカラー

# 特殊変数ではなくふつーのスカラーに入れてもよい
while ($line = <>) {
	print $line;
}
# この場合 $line は省略できない

ファイルに出力 (ファイルのコピー)

# 標準出力 (画面とか) ではなく別のファイルに出力する
open OUT, "> output.txt"; # 書き込み用に開く
while (<>) {
	print OUT;  # OUT に出力している
}
close OUT; # OUT を閉じて書き込めないようにする