2005-11-02 ハッシュスライス こんな感じでハッシュを作れる。 my %foo; @foo{qw(one two three)} = ( 1, 2, 3 );展開するときはこんな感じで。 @bar = qw(one two three); print @bar;ハッシュの中身全部を別のハッシュにいれるときはこんな感じ。 %large{keys %small} = values %small;