perl 執行程式時 hash 後面帶的參數

my $hash_ref;
if (@ARGV) {
foreach my $option (@ARGV) {
my ($key,$value) = split /=/, $option;
$hash_ref->{“$key”} = “$value”;
}
}
# 這是一個 HASH
print $hash_ref . ”
“;

# 將 key 及 value 取出來
while (my($key,$value) = each %$hash_ref) {
print “$key $value
“;
}