【モダン推奨】Perlについての質問箱 50箱目

[656 デフォルトの名無しさん 2018/06/11(月) 21:27:28.65 ID: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
$
$# できるといえばできるけど、君がやってるやり方をおすすめするよ。その方が余計なバグを防止できる。