Perl hash多重键值

jsy1116

数据：

1｜2｜4｜6
4｜2｜1
4｜5｜7｜1｜3｜5｜2
。。。。
这样的文本，处理成没有重复的数字对。
例如：
1｜2｜4｜6   生成数字对儿，应该如下
1  2            
2  4
4  6
4｜2｜1  生成数字对儿，应该如下
4  2
2  1（根据左小右大的规则变为2  4；1  2）
4｜5｜7｜1｜3｜5｜2  生成数字对儿，应该如下
4  5
5  7
7  1
1  3
3  5
5  2（根据左小右大的规则变为4  5；5  7；1  7；1  3；3  5；2  5）

最终生成文本：
1  2
1  3
1  7
2  4
2  5
3  5
4  5
5  7



我想把这些数字对儿当成键值key，加入到hash中，每重复一次，value加1；应该怎么做？谢谢啦
％link；
$link{$num1}{$num2}=1; 我想写成这个样子的，但刚开始学perl对，很多语法不熟，例如
如何将这些数字对输入到键值里 ，如何表示这些键值eg｛$num1｝{$num2}

pitonas

if ｜ => /｜/, if | => /\|/
15 行:
    print "$k\t$_\n" for sort { $a <=> $b } keys %{ $link{$k} };

1. #!/usr/bin/perl
   
2. 
   
3. my %link;
   
4. while (<DATA>) {
   
5.     chomp;
   
6.     my @data = split /｜/;    # HERE -> [ ｜ ne | ]
   
7.     for my $i ( 0 .. @data - 2 ) {
   
8.         $data[$i] > $data[ $i + 1 ]
   
9.           ? $link{ $data[ $i + 1 ] }{ $data[$i] }++
   
10.           : $link{ $data[$i] }{ $data[ $i + 1 ] }++;
    
11.     }
    
12. }
    
13. 
    
14. for my $k ( sort { $a <=> $b } keys %link ) {
    
15.     print "$k\t$_\n" for sort keys %{ $link{$k} };
    
16. }
    
17. 
    
18. __DATA__
    
19. 1｜2｜4｜6
    
20. 4｜2｜1
    
21. 4｜5｜7｜1｜3｜5｜2
    

复制代码

回复 1# jsy1116


   

清泉一边

没有哈希~试试

1. #!/usr/bin/perl
   
2. use strict;
   
3. my @out;
   
4. while (<DATA>){
   
5. chomp;
   
6. my @all = split /\|/,$_;
   
7. push @out,[$all[$_],$all[$_+1]]  for (0..$#all-1) ;
   
8. }
   
9. $_ = [sort @$_] for @out;
   
10. my @sort = sort {$a->[0] <=> $b->[0]}@out;
    
11. my $first = shift @sort;
    
12. for my $sort (@sort){
    
13.   if ($sort[0] == $first[0] && $sort[1] == $first[1]){
    
14.    next;
    
15.   }
    
16.   else {
    
17.   print join "\t",sort @$first;
    
18.   print "\n";
    
19.   $first = $sort;
    
20.   }
    
21. }
    
22. print join "\t",sort @$first;
    
23. 
    
24. 
    
25. 
    
26. __DATA__
    
27. 1|2|4|6
    
28. 4|2|1
    
29. 4|5|7|1|3|5|2

复制代码

回复 1# jsy1116


   

pitonas

试试 ~ {:2_168:}

1. my @out;
   
2. 
   
3. while (<DATA>) {
   
4.     chomp;
   
5.     my @all = split /\|/;
   
6.     push @out, [ sort { $a <=> $b } @all[ $_, $_ + 1 ] ] for 0 .. $#all - 1;
   
7. }
   
8. 
   
9. @out = sort { $a->[0] <=> $b->[0] || $a->[1] <=> $b->[1] } @out;
   
10. 
    
11. my $last = $out[-1];
    
12. 
    
13. for my $pair (@out) {
    
14.     next if $pair->[0] == $last->[0] && $pair->[1] == $last->[1];
    
15.     print join( "\t", @$pair ), "\n";
    
16.     $last = $pair;
    
17. }
    
18. 
    
19. __DATA__
    
20. 1|2|4|6
    
21. 4|2|1
    
22. 4|5|7|1|3|5|2

复制代码

回复 4# 清泉一边


   

清泉一边

学习了！大神啊，前段时间一直学习你的代码~对我帮助很大啊 回复 5# pitonas


   

mcshell

回复 1# jsy1116

1. my ($h,$n);
   
2. while (<DATA>) {
   
3.     my @line = split /\|/;
   
4.     my $m;
   
5.     $m .= $_ for @line;
   
6.     $m =~ /((?:..)*?)(?{if (length $1==2){$h->{$1}++ } })(*F)/g;
   
7.     for (keys %$h) {
   
8.         @m=sort split //;
   
9.         $n->{"@m"}++;
   
10.     }
    
11. }
    
12. print join "\n", sort keys %$n;
    
13. __DATA__
    
14. 1|2|4|6
    
15. 4|2|1
    
16. 4|5|7|1|3|5|2

复制代码

jsy1116

回复 3# pitonas

大神，方法很好用，但引到程序中的时候，屏幕有输出，但是没有写入文件，根本都没有生成文件，纯新手，跪请指教


#!/usr/bin/perl -w
# jsy
# $Id$

use warnings;

if(scalar(@ARGV)!=2)
{
    print STDERR "usage: path.pl \$scrpath \$dstpath\n";
    exit -1;
}

my $scrpath = $ARGV[0];
my $dstpath = $ARGV[1];
print "$scrpath\n";
print "$dstpath\n";

my @files = split /\n/, `find $scrpath -name "*.all-paths.bz2" -print`;
foreach my $file(@files)
{
   if($file =~ /(.+)\/(.+)$/)
        {
            my @filename = split /\./,$2;   #$filename[0];
            if($filename[0] =~ /^(199(\d{2})\d{2}$/)
            {
                print "$filename[0]\n";
                #open INFILE, "$file";
                open(INFILE, "bzcat $file|" || die("could not open paths file\n";
                #my $ipv4FileName = $dstpath."$filename[0].paths4";
                my $ipv4FileNamelink = $dstpath."$filename[0].paths4.link";
                my $ipv6FileNamelink = $dstpath."$filename[0].paths6.link";
                open OUTFILE4LINK, ">>ipv4FileNamelink";
                if (-e "$ipv4FileNamelink"
                {
                        `cat /dev/null > $ipv4FileNamelink`
                }
                if(-e "$ipv6FileNamelink"
                {
                        `cat /dev/null > $ipv6FileNamelink`
                }
                #######################################################################
                my %link4;
                my %link6;
                while(<INFILE>
                {
                        chomp;
                        my @lf = split;
                        my @aspath_fields = split /\|/, $lf[1];
                        my $aspath_length = scalar(@aspath_fields);
                        my $num=1;
                        if ($aspath_length >1)
                        {
                            for my $i (0..@aspath_fields-2)
                            {
                                $aspath_fields[$i]>$aspath_fields[$i+1]?$link4{$aspath_fields[$i+1]}{$aspath_fields[$i]}++link4{$aspath_fields[$i]}{$aspath_fields[$i+1]}++;
                            }
                         }
                         if ($aspath_length >1 && $lf[2] =~ /\:/)
                        {
                            for my $i (0..@aspath_fields-2)
                            {
                                $aspath_fields[$i]>$aspath_fields[$i+1]?$link6{$aspath_fields[$i+1]}{$aspath_fields[$i]}++link6{$aspath_fields[$i]}{$aspath_fields[$i+1]}++;
                            }
                         }  
                  }
                open OUTFILE6LINK, ">>ipv6FileNamelink";        
                for my $k4 ( sort{$a<=>$b} keys %link4)
                {   for my $k ( sort {$a<=>$b} keys %{$link4{$k4}} )
                    {
##########大神，这个地方在屏幕可以输出，但是写入不到这个文件里，perl新手很无语，跪请大神赐教##################################################                       
                        print "$k4\t$k\n";
                        print OUTFILE4LINK "$k4\t$k\n";
                    }     
                }
                for my $k6 ( sort{$a<=>$b} keys %link6)
                {
                    for my $k ( sort {$a<=>$b} keys %{$link6{$k6}} )
                    {
                        print "$k6\t$k\n";
                        print OUTFILE6LINK "$k6\t$k\n";
               
                    }
                }
                print "finish-$ipv4FileNamelink\n";
                close INFILE;
                close OUTFILE4LINK;
                close FD;
                close OUTFILE6LINK;
            }
       

            
        }
   
    }

jsy1116

回复 3# pitonas


    请教大神 ，如何写入文件

清泉一边

print 后面都应该加上OUTFILE 呀，要不他就只输在屏幕上了~回复 9# jsy1116