File：有沒有只讀第1行的好辦法

Kitaisky

我要的數(shù)據(jù)就在第一行，其它沒用；

open FH, "<, " File.dat"
   or die "$\n";

my $line1 = '';

while (<FH>) {
   $line1 = $_;
   last;
}

close FH or die "$!"l

有點(diǎn)太折騰了吧..還有好點(diǎn)的辦法么??  謝~~謝!!

genieliu

讀完一行close不行么？

蘭花仙子

我要的數(shù)據(jù)就在第一行，其它沒用；

open FH, "
Kitaisky 發(fā)表于 2011-09-06 12:23

    這還是好的。你要用C就更折騰了。

jason680

我要的數(shù)據(jù)就在第一行，其它沒用；

open FH, "
Kitaisky 發(fā)表于 2011-09-06 12:23

sub get_one_line{
  my ($sFile) = @_;
  open(my $FHin, "<$sFile") or die "Error: can't open $sFile file\n";
  my $sRet = <$FHin>;
  close $FHin;
  return $sRet;
}

xti9er

head xx.oo -n 1 不行？

Kitaisky

head xx.oo -n 1 不行？
xti9er 發(fā)表于 2011-09-06 14:12

    謝謝，這是個(gè)捷徑~~

eval (my $first_lines = `head -n 1 *.dat`);
die if $@;

然后再把里面的
==>File_Name<==
都處理掉;

py

謝謝，這是個(gè)捷徑~~

eval (my $first_lines = `head -n 1 *.dat`);
die if $@;

然后再把里 ...
Kitaisky 發(fā)表于 2011-09-06 14:26

LZ找到的這個(gè)“捷徑”太諷刺了。。。
這個(gè)帖子應(yīng)該移到shell版，否則你要的答案只可能是“$line = <FH>”

freflying

樓上的說的對！

ttcn_cu

樓主啊，你用那個(gè)捷徑是不好滴，我們是要委婉的批評滴。