1

2

3

4

5

6

7

8

9

10

11

12

13

14

可以用引用引用也可以轉成string

@m = ('1', '2', '3');

@n = ('4', '5', '6');

$H{\@m} = 1;

$H{\@n} = 1;

$sm = join('-', @m);

$sn = join('-', @n);

$S{$sm} = 1;

$S{$sn} = 1;

print key_exists(1, 2, 3);

sub key_exists {

    my $str = join('-', @_);

    return exists $S{$str}?1:0;

}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

use strict;

my @array = ("aaa,vbbbb","cccc,ddddd","eeeee,xxxxx");

my %hash_output;

#數組每個元素按","分開,并按HASH表存儲

for(@array)

{

    my ($key,$value) = split ',';

    $hash_output{$key} = $value;

}

#檢查hash表的最終值

for(keys %hash_output)

{

    print "[key] $_ ==> [value] $hash_output{$_}\r\n";

}