F*******i
发帖数: 190 | 1 请问高手
有没有可能， 让 perl hash 的 key
是一个 array such as [$key_part1, $key_par2],
然后可以自己定义 equal between this new key?
或者， 有什么 module 可以作这个？
谢谢 | g**********d
发帖数: 24 | 2 这 样 行 么
use strict;
my @a = ( 'a', 'b', 'c');
my @b = ( 'e', 'f', 'g');
my %hkey = ( scalar \@a => \@a, scalar \@b => \@b );
my %h;
$h{\@a} = "ref a ";
$h{\@b} = "ref b ";
foreach my $key (keys %h )
{
print "$key--$h{$key}\n";
print "$hkey{$key}->[0]\n";
} |
|
