请教如何用标准输入把多个文件内容倒序输出

MicoCN

例如文件a.txt, b.txt, c.txt, 输出则为倒序c.txt, b.txt, a.txt， 并且文件内容也为倒序输出。

下面code如下，但感觉用open对大文件有点缺陷，所以想了解下如何用STDIN的方法处理。

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. @ARGV=reverse(@ARGV);
   
7. my @infile=@ARGV;
   
8. my $filename;
   
9. foreach $filename(@infile)
   
10. {
    
11. print "========$filename=======\n";
    
12. open FILE,$filename or die "open file failed :$!";
    
13.         my @data=<FILE>;
    
14.         @data=reverse(@data);
    
15.         print "@data\n";
    
16. close FILE;
    
17. }
    

复制代码

MicoCN

用正序的话用标准输入非常简洁，代码如下，但不知倒序如何实现

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. while(<>){
   
7.         chomp;
   
8.         print "It was $_ that I saw!\n";
   
9. }
   

复制代码

DQP

open 有啥缺陷

yybmsrs

xiaobing927

楼主实现的不挺好吗？

MicoCN

open 有啥缺陷
DQP 发表于 2010-08-12 15:47

    不能说缺陷，只是想知道有没有办法用标准输入的方法。

MicoCN

yybmsrs 发表于 2010-08-12 15:49

    这样只是文件名，内容没有倒过来

yybmsrs

回复 7# MicoCN


看错了

ulmer

回复 1# MicoCN

using reverse only:

C:\Programming>perl -e "print join(q(, ),reverse @ARGV),qq(\n),reverse<>" ufile1 ufile2 ufile3

toniz

用正序的话用标准输入非常简洁，代码如下，但不知倒序如何实现
MicoCN 发表于 2010-08-12 15:47

    正序的话，while(<>){chomp;print "It was $_ that I saw!\n";}。代码中只会读一行的内容入内存。

  但反序的时候，用了 @data=<FILE>;将整个文件读入内存。所以如果文件过大，就会导致频繁的IO操作。处理效率就会很低。

  reverse <>  ,其实也是将所有文件内容读入内存。

  可以试试用SEEK移动文件指针来读，或者用系统的命令tac试试。不过这个我没试验过，效率还真没比较过。楼主有兴趣就试试。