2012年5月1日火曜日

Perl でファイルを読み込み一行づつ配列に格納するには

Perl でファイルを読み込み一行づつ配列に格納するには(以下の例では、/home/zzz.txtというファイルの中身を一行づつ読み出して表示し、配列に格納しています。最後には、格納した配列の中身を表示しています。)



例1
my @hairetu;
my $i = 0;

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

}

print @hairetu . "\n";
print $#hairetu . "\n";

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



例2
$FH = "/home/zzz.txt";
open FH;
@list = <FH>;
foreach $data_line( @list ){
 print $data_line;
}






例3
$datafile="/home/zzz.txt";
open(FH, $datafile);

@list = <FH>;

# 1行ごとに出力

foreach $data_line( @list ) {

print $data_line;

}

0 件のコメント:

コメントを投稿