求助：Perl 实现文件反向读取的方法

jake20032004

要做一个功能点：大文件，读取关键字最后一次的赋值，尽可能的少占用资源

在网上查了下：
1）perl -e 'print reverse <>' source-file > target-file
     重定向文件  不想用： `perl -e $$$$  > $$$$`

2）AWK 赋值给数组，数组倒序输出
   awk ’ {line[NR] = $0}  END {for(i = NR; i > 0; i--) print line[i]}’  filename
   文件太大，数组赋值操作占用内存太多了，而且perl中调用时$0不可用

由于要求10分钟做一次，所以如果直接单行依次读取怕时间超长

现在实在是想不到其他方法了，大家帮忙想想。谢谢

wxlfh

需求有点怪。

?????

用tail试试呢？
perl -e 'print reverse `tail -n 100 file.name`'

toniz

正则如何！？
while<FILE>{
$a=$_ if (/关键字/);
}

这样遍历一次文件后  $a就是最后关键字出现的行的内容了。再处理下。

rick_7

tie file,

yybmsrs

grep  关键字