Perl 14年之后我又回来了，求助一下！！

myperl

perl语言在14年之前，自学过一段时间。  后来因为工作原因丢了14年了~    当年的chinaperl.org都换域名了，呵呵。     现在又需perl强大的字符处理能力，毕竟是丢了14年啊，好多东西都快忘完了。现在有一个小难题，请各位老鸟帮助一下。对高手来说真是小菜。

平台win7    已经安装ActivePerl5.16    只求一个txt的脚本。

任务如下：

1、指定文件夹下，有若干txt文件。 我需要遍历文件夹下所有txt文件。

2、txt 文件内容横列格式为： 变量1,变量2，变量3，变量4，变量5，变量6，变量7，变量8，变量9，变量10，变量11    (，逗号为分格)

3、需要遍历所有的txt文件，文件中的只有 变量3是固定值（为单号） 重新生成一个新的txt文件，变量3为第一列，后面跟所有txt文件中变量3所对应的变量。

4、不知道我说清楚没有。 求助一下！！

daili0703

欢迎回来~·  

myperl

有大神，帮忙看一下吗？  都忘得差不多了。

sunzhiguolu

回复 3# myperl
理解能力差, 没看懂, 有个示例数据吗, 贴出来, 给个具体的结果. 谢谢...

   

zhlong8

这活哪种语言都能做啊，除非这十四年楼主你去卖水果去了

yjh777

没看懂描述，，

yakczh_cu

1. 
   
2. use strict;
   
3. use 5.01;
   
4. use warnings;
   
5. use File::Find;
   
6. 
   
7. 
   
8.    sub openit {
   
9.         my $path = shift;
   
10.         local *FH;
    
11.         return open (FH, $path) ? *FH : undef;
    
12.     }
    
13. 
    
14. my  @collect=();
    
15. 
    
16. find(\&wanted,'yourpath');
    
17. sub wanted{
    
18.    if($_ =~  /txt$/){
    
19.        my $fh;
    
20.        $fh=openit($File::Find::name);
    
21.        while(<$fh>){
    
22.            my @F=split/,/;
    
23.            unshift(@F,$F[2]);
    
24.            push(@collect,\@F);
    
25.        }  
    
26.       close $fh;
    
27.    }
    
28. }
    
29. 
    
30. open(OUT,'>'.'destpath/out.txt') or die ("fila");
    
31. say OUT  join("\n",  map { $_=join(',',@{$_}) } @collect);
    
32. close OUT;
    
33. 
    

复制代码

rubyish

na 1nian perl shi nage version ~

RE_HASH

perl -F' *, *' -e  '$A->{$F[2]}++; END { print "No: ", join ", ", keys %$A; }' *.txt
           ^^^--　假设分隔符是","　                      ^^ 可以是单号 　^^sort keys  排序