帮忙合并两个文件中的不同内容

jiujiujiu338

回复 32# yinyuemi


    嘿嘿，我个白痴，第一个小问题只要把substr($_,0,index($_,"\.")改为substr($_,0,index($_," ")就行了
现在还有第二个小问题，按照name中的word1,word2,word3排序

jiujiujiu338

回复 34# jiujiujiu338


    第二个小问题我会啦，在foreach my $p  (keys %hash1)  加个(sort {$a cmp $b}就可以了，多谢啊

jason680

回复  jiujiujiu338


    第二个小问题我会啦，在foreach my $p  (keys %hash1)  加个(sort {$a cmp $ ...
jiujiujiu338 发表于 2011-08-18 16:37

sort缺省就是sort {$a cmp $b}
加sort就可以(sort keys %hash1)

jiujiujiu338

回复 32# yinyuemi


   哎，我想按照word1、word2、word3的顺序排序，加上sort keys $hash1后，不对啊，如果有word10,那样word10就在word2前边了，怎么办啊，求解，多谢~

jiujiujiu338

回复 36# jason680


    是是是，多谢提醒

jiujiujiu338

回复 32# yinyuemi


    哎，我想按照word1、word2、word3的顺序排序，加上sort keys $hash1后，不对啊，如果有word10,那样word10就在word2前边了，怎么办啊，求解，多谢~

yinyuemi

回复 39# jiujiujiu338

1. #!/bin/perl
   
2. use strict;
   
3. 
   
4. open (my $fh1,"file1");
   
5. open (my $fh2,"file2");
   
6. open (my $fh3,">","file3");
   
7. 
   
8. my %hash1;
   
9. my %hash2;
   
10. my %hash3;
    
11. my %hash4;
    
12. my $t="";
    
13. my $tmp="";
    
14. 
    
15. while (<$fh1>){
    
16.         if($_!~/end/ and $_!~/^$/){
    
17.                 if($_!~/^\d/){
    
18.                         $tmp=$1 if(/(name=\S+)\s+.*/);
    
19.                         {$t.=$_;}
    
20.                 }
    
21.                 else{$hash1{$t}.=$_ ;}
    
22.                 }
    
23.         else{$hash2{$tmp}=$t if($_=~/end/);
    
24.                 $t="";
    
25.                 $tmp="";
    
26.                 }
    
27. }
    
28. while (<$fh2>){
    
29.         if($_!~/end/ and $_!~/^$/){
    
30.                 if($_!~/^\d/){
    
31.                         $tmp=$1 if(/(name=\S+)\s+.*/);
    
32.                         {$t.=$_;}
    
33.                 }
    
34.                 else{$hash1{$t}.=$_ ;}
    
35.                 }
    
36.         else{
    
37.                 if($_=~/end/){
    
38.                         if(exists($hash2{$tmp})){$hash1{$hash2{$tmp}}.=$hash1{$t};delete $hash1{$t};}
    
39.                         else{$hash2{$tmp}=$t;}
    
40.                 }
    
41.                 $t="";
    
42.                 $tmp="";
    
43.                 }
    
44.         }
    
45. 
    
46. foreach my $p (keys %hash1) {
    
47.         my $key1=$1 if($p=~/.*\nname=word(\d+).*/s);
    
48.         $hash4{$key1}.=$p;
    
49.         $hash3{substr($_,0,index($_," "))}=$_ foreach (split /\n/,$hash1{$p});
    
50.         $hash4{$key1}.=$hash3{$_}."\n" foreach sort {$a<=>$b} (keys %hash3);
    
51.         $hash4{$key1}.="end\n\n";
    
52.         undef(%hash3);
    
53.         }
    
54. 
    
55. foreach (sort {$a<=>$b} (keys %hash4)) { print $fh3 $hash4{$_};}
    
56.        
    
57.        
    
58. close($fh1);
    
59. close($fh2);
    
60. close($fh3);

复制代码

jiujiujiu338

回复 40# yinyuemi


    多谢啊

jiujiujiu338

回复 3# zhlong8


    帮帮忙，好兄弟
求教：下面的程序运行时总是显示Use of uninitialized value $destination in hash element，uninitialized value $bytes，这是咋回事啊？
运行结果：
coconet.dat: 0
coconet.dat=>transferred bytes is 0 bytes
其实coconet.dat 是个文件，我open fh，“coconet.dat”；总说我打开文件句柄只是为了输出，求高人指教
#!/urs/bin/perl -w
use strict;
my %total_bytes;
my $all = "all machines";

while (<coconet.dat>) {
        next if (/^#/);
        my ( $source, $destination, $bytes ) = split;
        $total_bytes{$source}{$destination} += $bytes;
        $total_bytes{$source}{$all}         += $bytes;
}
my @sources =
  sort { $total_bytes{$b}{$all} <=> $total_bytes{$a}{$all} } keys %total_bytes;                                            
for my $source (@sources) {

        my @destinations =
          sort { $total_bytes{$source}{$b} <=> $total_bytes{$source}{$a} }
          keys %{ $total_bytes{$source} };
        print  "$source: $total_bytes{$source}{$all}";
        for my $destination (@destinations) {
                next if $destination eq $all;
                print  "$source=>$destination",
                "transferred bytes is $total_bytes{$sources}{$destination} bytes\n";
                  
        }
        print "\n";
}

zhlong8

回复  zhlong8


    帮帮忙，好兄弟
求教：下面的程序运行时总是显示Use of uninitialized value $de ...
jiujiujiu338 发表于 2011-09-03 21:29

    读文件的方式错了

open my $fh, '<', 'coconet.dat' or die $!;

while (<$fh>) {
    ...
}