怎么不正确

mysqllog

1. while(<DATA>){
   
2.         if($.==1){
   
3.                 chomp;
   
4.                 %tab=();
   
5.                 @b=map{($tab{$_}==1)?($_):($_=$_.2)} split(/\s+/,$_);
   
6.                 print "@b\n";
   
7.         }else{
   
8.                 s/"(.*?)"/\1/g;
   
9.                 print;
   
10.         }
    
11. }
    
12. __DATA__
    
13. Column1        Column2        Column3        Column4 Column3 Colum5
    
14. Data        Data        "Data"        Data        "Data"        Data

复制代码

运行结果：
Column12 Column22 Column32 Column42 Column32 Colum52
Data    Data    Data    Data    Data    Data

某兄的题目，结果没搞定...

guap514

回复 1# mysqllog

1. @b=map{($tab{$_}++)?($_.$tab{$_}):($_)} split(/\s+/,$_);

复制代码

huycwork

本着交流的原则，这样实现不是好很多么：

1. 
   
2. my @row = qw/Column1    Column2    Column3    Column4 Column3 Column5/;
   
3. my %tab;
   
4. for (@row){
   
5.     ++$tab{$_};
   
6.     s/$/$tab{$_}/e if $tab{$_} > 1;
   
7. }
   
8. print "@row\n";
   

复制代码

mysqllog

回复 3# huycwork


    我的写的不好，没有价值的，没有问题吧，斑竹不会通辑我吧

mysqllog

回复 3# huycwork


    恩，不错，学习了。

2gua

解决了。

mysqllog

回复 6# 2gua


    钱到账没？

2gua

回复  2gua


    钱到账没？
mysqllog 发表于 2011-06-19 13:29

    切，我问楼主解决了没？我才不管这档子事情。