如何将文件中的第一行去掉？

bennyfan

用perl读一个文件。 然后输出一个去掉第一行的文件？
谢！

deathcult

print `cat file|awk '{if(NR!=1)print}'`

bennyfan

请问在windows下怎么办呢？

djg

open(FILE,"<$filename" or die "不能打开文件";
   @array=<FILE>;;
   close FILE;
   $array[0]="\n";#去掉第一行
   open(FILE,">;$filename" or die "不能打开文件";
   print FILE @array;
   close FILE;
将文件全部读出到一个数组，该第一行，然后再写入。

bennyfan

谢谢上面的。我用了以下代码。

my $p1=shift;

open(Inputfile,"$p1" || die  "can't open myfile!";
open(Outputfile,">;e:\\a.txt" || die  "can't open myfile!";
$line = <Inputfile>;;
while ($line = <Inputfile>
{  print  Outputfile $line;
#   print $p1 . "####";
}
close(Inputfile);
close(Outputfile);