在perl中，怎样把刚生成的输出文件，接下来再调用呢？

felix0608

以这个代码为例，应该这么做？

1. perl -e '@lst=glob"*.fa.*";open OUT,">lst.txt";foreach(@lst){($out=$_)=~s/homo_sapiens.release-64.final.pep.//;print OUT $out,"\n";} open IN ,"lst.txt";@b=<IN>;print "@b\n"; '

复制代码

pitonas

{:2_172:}

1. my @lst = glob "*.fa.*";
   
2. @lst = map { s/homo_sapiens\.release-64\.final\.pep\.//; $_ } @lst;
   
3. 
   
4. print "@lst\n";
   
5. 
   
6. # open OUT, ">lst.txt";
   
7. # print "$_\n" for @lst;

复制代码