Help for this page

Select Code to Download

Select or download this

c:\@Work\Perl\monks>perl -wMstrict -MO=Deparse,-p -le
"my %h1 = qw( a 1  b 2  c 3      );
...
(my(%h2) = ('b', '7', 'c', '8', 'd', '4'));
(my(%h3) = map({($_, (($h1{$_} // (0 + $h2{$_})) // 0));} keys(%h1), k
+eys(%h2)));
-e syntax OK