File：有没有只读第1行的好办法

Kitaisky

我要的数据就在第一行，其它没用；

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

my $line1 = '';

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

close FH or die "$!"l

有点太折腾了吧..还有好点的办法么??  谢~~谢!!

genieliu

读完一行close不行么？

兰花仙子

我要的数据就在第一行，其它没用；

open FH, "
Kitaisky 发表于 2011-09-06 12:23

    这还是好的。你要用C就更折腾了。

jason680

我要的数据就在第一行，其它没用；

open FH, "
Kitaisky 发表于 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 发表于 2011-09-06 14:12

    谢谢，这是个捷径~~

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

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

py

谢谢，这是个捷径~~

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

然后再把里 ...
Kitaisky 发表于 2011-09-06 14:26

LZ找到的这个“捷径”太讽刺了。。。
这个帖子应该移到shell版，否则你要的答案只可能是“$line = <FH>”

freflying

楼上的说的对！

ttcn_cu

楼主啊，你用那个捷径是不好滴，我们是要委婉的批评滴。