2011年12月13日火曜日

Perl でファイルを読み込む

Perl でテキストファイルから一行づつファイルを読み込むには。
以下のサンプルでは、zzz.txtと言うファイルから一行づつ読み込んで配列に格納しています。


--------------------------------------

my @hairetu;
my $i = 0;

open(IN,"zzz.txt");
while( my $Meigara = <IN> )
{
chomp($Meigara);
print $Meigara . "\n";
$hairetu[$i] = $Meigara;
$i = $i + 1
}


$length = @hairetu;
for( $i=0 ; $i<$length ; $i++ )
{
   print $hairetu[$i] . "\n";
}

----------------------------------------
以下のサンプルでも、読み込んだ行を配列に格納しています。


$datafile="zzz.txt";
open(FH, $datafile);

@list = <FH>;

# 1行ごとに出力

foreach $data_line( @list ) {
    print $data_line;
}

----------------------------------------


$FH = "filename.txt";
open FH;
@list = <FH>;
foreach $data_line( @list ){
        print $data_line;
}


----------------------------------------
以下のサンプルでは、読み込みファイルを開く時のエラーチェックをしています。


$filename = "./data.dat";
open( FH , "$filename" ) || die "Error: $filename $!\n";

----------------------------------------
以下のサンプルでも、読み込むファイルを開くときのエラー処理をしています。


$filename = "data.txt";
if( ! open FH , $filename ){
      print "open error";
}









参考サイト


0 件のコメント:

コメントを投稿