求助 文本问题

搬砖工作者

有5个文本  每个100行 左右
我想每个抽取一行 组成一个新文本
怎么实现（每次抽取不重复）

yinyuemi

回复 1# 搬砖工作者

1. perl -e  'BEGIN{
   
2. srand();
   
3. for($i=0;$i<5;$i++){push @arr,int(rand()*100)};
   
4. }
   
5. foreach(@ARGV){
   
6. open(FH,$_);
   
7. @arr_=(<FH>);
   
8. print @arr_[(shift @arr)];
   
9. close(FH)
   
10. }' file*

复制代码

搬砖工作者

回复 2# yinyuemi


嗯 我是想 每个文本提取一行  组成一个新文本
最好提取那行 删掉 不想弄重复的。。


   

yinyuemi

回复 3# 搬砖工作者

用Tie::File模块
   

搬砖工作者

回复 4# yinyuemi


    好的 我去看下 谢谢啦