最新の「新着記事」はここから New!
2008-07-25
getc関数 - ファイルから一文字ずつ読み込む
getc関数を使って1文字づつ読み込むこともできます。
my $c = getc $fh;
サンプル
以下は、1文字読み込みのサンプルです。
use strict; use warnings; # 1文字読み込み # 読み込みたいファイル名 my $file = shift; print "1: 1文字ずつ読み込む。\n"; open(my $fh, "<", $file) or die "Cannot open $file: $!"; # 1文字ずつ読み込むにはgetc関数を使います。 while (defined (my $c = getc $fh)) { print $c; } close $fh;
