亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

Chinaunix

標題: 一個文件處理問題如何用perl寫出更短的代碼解決 [打印本頁]
作者: zzy7186    時間: 2011-02-12 18:31
標題: 一個文件處理問題如何用perl寫出更短的代碼解決
test文件內(nèi)容為：
aaa
001            123            728273
002            456            283940
003            789            928374
aaa
001            287            394872
003            729            493827
aaa
002            321            324815
bbb
003            524            520487
bbb
002            826            883674
003            673            092847
bbb
001            427            374859

要求分別得出aaa、bbb下001、002、003行中二列和三列的和，如：
aaa
001            410            1123145
002            777            608755
003            1518          1422201
bbb
001            427            374859
002            826            883674
003            1197          613334
這是shell版的一個問題，我自己想著用perl解決，但是寫出來的代碼感覺很搓，望高手能給出更短的代碼解決這個問題。
下面是我自己瞎寫的

  2. #!/usr/bin/perl
  3. use warnings;
  4. use strict;
  5. my %result;
  6. my $id1;
  7. while(<>){
  8.         my @temp=split;
  9.         my $id2;
  10.         if($#temp == 0){
  11.                 $id1=$temp[0];
  12.         } else {
  13.            $id2 = shift @temp;
  14.            unless(defined $result{$id1}{$id2})
  15.                 {
  16.                         $result{$id1}{$id2}=\@temp;
  17.                 }else{
  18.                         for(my $i=0;$i<=$#temp;$i++)
  19.                                 {
  20.                                         $result{$id1}{$id2}->[$i]+=$temp[$i];
  21.                                 }
  22.                 }


  25.         }
  26. }
  27. for my $i (sort keys %result){
  28.         print $i,"\n";
  29.         for my $j (sort { $a <=> $b } keys %{$result{$i}})
  30.         {
  31.                 print "$j\t",$result{$i}{$j}->[0],"\t",$result{$i}{$j}->[1],"\n";       }
  32. }
復制代碼
希望高手們能幫我指出不規(guī)范的地方。。。謝謝了！
作者: x9x9    時間: 2011-02-12 18:40
用hash啊
作者: zzy7186    時間: 2011-02-12 18:42
用hash啊
x9x9 發(fā)表于 2011-02-12 18:40



    我自己寫的就是用hash的
    $VAR1 = {
          'bbb' => {
                     '002' => [
                                '826',
                                '883674'
                              ],
                     '003' => [
                                1197,
                                613334
                              ],
                     '001' => [
                                '427',
                                '374859'
                              ]
                   },
          'aaa' => {
                     '003' => [
                                1518,
                                1422201
                              ],
                     '002' => [
                                777,
                                608755
                              ],
                     '001' => [
                                410,
                                1123145
                              ]
                   }
        };
作者: jason680    時間: 2011-02-12 22:59
本帖最后由 jason680 于 2011-02-12 23:09 編輯
test文件內(nèi)容為：
aaa
001            123            728273
002            456            283940
0 ...
zzy7186 發(fā)表于 2011-02-12 18:31
  1. #!/usr/bin/perl

  3. use strict;
  4. #基本上寫程式不是問題,除錯(debug)找問題才是問題....
  5. #所以code是不是(讓人)易于了解才是要在意問題.
  6. #注:容易了解程式code,才容易"除錯(debug)找問題"...

  8. #以下提供,我會用的方式.參考看看...
  9. my %ghResults;
  10. my $gsBlock;

  12. while(<DATA>){
  13.     next if(m/^\s*$/);  #處理空白行(非必要).... m/^\s*(#|$)/
  14.   
  15.     my($sId, @aTemp) = split;   #直接把id取出,不用再shift ...
  16.     if(@aTemp == 0){    # 或scalar @aTemp == 0, 少用$# 如果不是很必需
  17.         $gsBlock = $sId;
  18.         next;    #沒有其他事要做...就直接next,
  19.         #可以省下else ...及不必要的縮進
  20.     }
  21.    
  22.   
  23.     #如果資料(數(shù)字)一定是二個....(含id 三個)
  24.     if(@aTemp != 2){
  25.         print "some error :$_\n";
  26.         #exit 1;   
  27.         # $error =1; next;
  28.     }
  29.   
  30.     #在這里defined ...的判斷是不用的....
  31.     #if(defined $ghResults{$gsBlock}->{$sId}){
  32.         foreach(0 .. @aTemp -1){   #  $#aTemp
  33.             #print "get $aTemp[$_]\n";   # for debug
  34.             $ghResults{$gsBlock}->{$sId}->[$_] += $aTemp[$_];   
  35.         }
  36.     #}
  37.     #else{
  38.     #    # print "get @aTemp\n"; # for debug
  39.     #    $ghResults{$gsBlock}->{$sId} = [@aTemp];
  40.     #}
  41. }

  43. foreach my $sBlock(sort keys %ghResults){
  44.     local $" ="\t";  
  45.     print "$sBlock\n";
  46.     foreach(sort keys %{$ghResults{$sBlock}}){
  47.         # 簡易輸出... (設定local $")
  48.         #print "$_\t@{$ghResults{$sBlock}->{$_}}\n";
  49.         
  50.         # 數(shù)字對齊輸出...
  51.         my $sOut = "";
  52.         $sOut .= sprintf("%12d",$_) for (@{$ghResults{$sBlock}->{$_}});
  53.         print "$_$sOut\n";
  54.     }
  55. }

  57. __DATA__
  58. aaa
  59. 001            123            728273
  60. 002            456            283940
  61. 003            789            928374
  62. aaa
  63. 001            287            394872
  64. 003            729            493827
  65. aaa
  66. 002            321            324815
  67. bbb
  68. 003            524            520487
  69. bbb
  70. 002            826            883674 22
  71. 003            673            092847
  72. bbb
  73. 001            427            374859
復制代碼
perl block_array.pl
some error :002            826            883674 22

aaa
001         410     1123145
002         777      608755
003        1518     1422201
bbb
001         427      374859
002         826      883674          22
003        1197      613334
作者: x9x9    時間: 2011-02-13 08:57
越寫越復雜啊。個人覺得這樣的問題也許是用一次就不會再用的腳本，或許不必寫的如何通用。
  1. use strict;
  2. use warnings;

  4. my %hash;
  5. my $id;
  6. while (<DATA>) {
  7. chomp;
  8. if (/[^\d|\t|\s]/){
  9. $id=$_;
  10. } else {
  11. my ($x,$y,$z)=split;
  12. $hash{$id}{$x}{'col1'}+=$y;
  13. $hash{$id}{$x}{'col2'}+=$z;
  14. }
  15. }

  17. foreach my $k (sort keys %hash){
  18. print $k."\n";
  19. foreach my $kk (sort keys %{$hash{$k}}) {
  20. print $kk."\t".$hash{$k}{$kk}->{'col1'}."\t".$hash{$k}{$kk}->{'col2'}."\n";
  21. }
  22. }

  24. __DATA__
  25. aaa
  26. 001            123            728273
  27. 002            456            283940
  28. 003            789            928374
  29. aaa
  30. 001            287            394872
  31. 003            729            493827
  32. aaa
  33. 002            321            324815
  34. bbb
  35. 003            524            520487
  36. bbb
  37. 002            826            883674
  38. 003            673            092847
  39. bbb
  40. 001            427            374859
復制代碼
作者: iLRainyday    時間: 2011-02-13 14:10
本帖最后由 iLRainyday 于 2011-02-13 14:13 編輯

這個夠不夠短？最后的輸出部分很丑~~
  1. #!/usr/bin/perl

  3. use strict;
  4. use warnings;

  6. my $block_id;
  7. my %blocks;

  9. while (<DATA>) {
  10.     if (/^[a-z]/i) {
  11.         chomp;
  12.         $block_id = $_;
  13.     }
  14.     else {
  15.         my ($col_1, $col_2, $col_3) = split;
  16.         $blocks{$block_id}->{$col_1} =
  17.                        [ $blocks{$block_id}->{$col_1}[0] += $col_2,
  18.                          $blocks{$block_id}->{$col_1}[1] += $col_3 ];
  19.     }
  20. }

  22. for $block_id (keys %blocks) {
  23.     print "$block_id\n";
  24.     for my $key (keys %{ $blocks{$block_id} }) {
  25.         print "$key\t\t";
  26.         print "$blocks{$block_id}->{$key}[0]"
  27.               ."\t\t"
  28.               ."$blocks{$block_id}->{$key}[1]"
  29.               ."\n";
  30.      }
  31. }


  34. __DATA__
  35. aaa
  36. 001            123            728273
  37. 002            456            283940
  38. 003            789            928374
  39. aaa
  40. 001            287            394872
  41. 003            729            493827
  42. aaa
  43. 002            321            324815
  44. bbb
  45. 003            524            520487
  46. bbb
  47. 002            826            883674
  48. 003            673            092847
  49. bbb
  50. 001            427            374859
復制代碼




歡迎光臨 Chinaunix (http://www.72891.cn/) Powered by Discuz! X3.2