Hatena::Groupperl

perl初心者

 | 

2008-12-27

ファイルの最初の3行だけ読む

15:54

ファイルの入出力を学習しました。

#! /bin/perl -w
use strict;

my $filename = 'data.txt';
open (FILE, $filename) or die "$filename: $!";
for (my $i=0; $i<3; $i++) {
	my $line = <FILE>;
	print $line;
}
close (FILE);

複数のファイルを処理できれば、簡易プレビューできそうです。バイナリファイルだった場合に、最初の数行で中身の判別とかはできるのか、わからないですけど。

 

はてなスターありがとうございます。tokumuraさん。

ゲスト



トラックバック - http://perl.g.hatena.ne.jp/ukme/20081227
 |