在perl中，怎樣把剛生成的輸出文件，接下來再調(diào)用呢？

felix0608

以這個(gè)代碼為例，應(yīng)該這么做？

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"; '

復(fù)制代碼

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;

復(fù)制代碼