0656デフォルトの名無しさん垢版 | 大砲2018/06/11(月) 21:27:28.65ID:bgvsbZyV >>653 $cat a.pl use strict; my %h0 = ( a => 1, b => 2); my %h1 = ( b => 3, c => 4); print( keys( %{ +{ %h0 , %h1 }}),"\n"); $perl a.pl acb $ $# できるといえばできるけど、君がやってるやり方をおすすめするよ。その方が余計なバグを防止できる。