perl怎么倒读文件?

pest

有没有简单一点的方法,从文件的最后一行开始读

c1l2d3

1. open(F,"filename");
   
2. @arry=<F>;;
   
3. foreach (reverse(@arry)) { print $_; }
   
4. close(F);

复制代码

如果内容完全倒读的话,将print $_改为：

1. print reverse(split(//,$_));

复制代码

youchao

谢楼上的，你也教了我一招。

apile

1. 
   
2. use DB_File;
   
3. use Fcntl;
   
4. $H = tie(@h, "DB_File", $file, O_RDWR, 0640, $DB_RECNO)
   
5.         or die "Cannot open file $file: $!\n";
   
6. # print the records in reverse order
   
7. for ($i = $H->;length - 1; $i >;= 0; --$i) {
   
8.     print "$i: $h[$i]\n";
   
9. }
   
10. untie @h;
    

复制代码

cnangel

[quote]原帖由 "apile"][/quote 发表：
收藏