Perl 14年之后我又回來(lái)了，求助一下�。�

myperl

perl語(yǔ)言在14年之前，自學(xué)過(guò)一段時(shí)間。  后來(lái)因?yàn)楣ぷ髟�因丟了14年了~    當(dāng)年的chinaperl.org都換域名了，呵呵。     現(xiàn)在又需perl強(qiáng)大的字符處理能力，畢竟是丟了14年啊，好多東西都快忘完了。現(xiàn)在有一個(gè)小難題，請(qǐng)各位老鳥(niǎo)幫助一下。對(duì)高手來(lái)說(shuō)真是小菜。

平臺(tái)win7    已經(jīng)安裝ActivePerl5.16    只求一個(gè)txt的腳本。

任務(wù)如下：

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

2、txt 文件內(nèi)容橫列格式為： 變量1,變量2，變量3，變量4，變量5，變量6，變量7，變量8，變量9，變量10，變量11    (，逗號(hào)為分格)

3、需要遍歷所有的txt文件，文件中的只有 變量3是固定值（為單號(hào)） 重新生成一個(gè)新的txt文件，變量3為第一列，后面跟所有txt文件中變量3所對(duì)應(yīng)的變量。

4、不知道我說(shuō)清楚沒(méi)有。 求助一下��！

daili0703

歡迎回來(lái)~·  

myperl

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

sunzhiguolu

回復(fù) 3# myperl
理解能力差, 沒(méi)看懂, 有個(gè)示例數(shù)據(jù)嗎, 貼出來(lái), 給個(gè)具體的結(jié)果. 謝謝...

   

zhlong8

這活哪種語(yǔ)言都能做啊，除非這十四年樓主你去賣(mài)水果去了

yjh777

沒(méi)看懂描述，，

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. 
    

復(fù)制代碼

rubyish

na 1nian perl shi nage version ~

RE_HASH

perl -F' *, *' -e  '$A->{$F[2]}++; END { print "No: ", join ", ", keys %$A; }' *.txt
           ^^^--　假設(shè)分隔符是","　                      ^^ 可以是單號(hào) 　^^sort keys  排序