如何将文件中带有.out的列抽取到一个文件中

fq43

如何将文件中带有.out的列抽取到一个文件中（文件aa.txt内容如下）
aa.exe aa.out aa.in
aa.exe aa.in aa.in aa.out
aa.exe aa.bat aa.in bb.out
aa.exe cd.out aa.in
bbc.exe aa.in > file1.out
gg.exe  txt1.txt
....
如何抽取.out文件到一个文件中？
谢谢！

fq43

最好用shell命令

POLOGG

原帖由 fq43 于 2005-11-3 14:05 发表
如何将文件中带有.out的列抽取到一个文件中（文件aa.txt内容如下）
aa.exe aa.out aa.in
aa.exe aa.in aa.in aa.out
aa.exe aa.bat aa.in bb.out
aa.exe cd.out aa.in
bbc.exe aa.in > file1.out
gg.exe ...

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. while(<>)
   
7. {
   
8.         chomp;
   
9.         my @array = split / /, $_;
   
10.         my @out = grep /\.out/, @array;
    
11. 
    
12.         if( scalar(@out) )
    
13.         {
    
14.                 print "@out"."\n";
    
15.         }
    
16. }
    

复制代码

shell能做的perl一定可以

[ 本帖最后由 POLOGG 于 2005-11-3 15:57 编辑 ]