Associative array/Merging: Difference between revisions
→{{header|Perl}}: also show a merge operation
m (→{{header|REXX}}: added wording in the REXX section header.) |
SqrtNegInf (talk | contribs) (→{{header|Perl}}: also show a merge operation) |
||
Line 267:
=={{header|Perl}}==
<lang perl>use strict;
<lang perl>my %base = ("name" => "Rocket Skates", "price" => 12.75, "color" => "yellow");▼
use warnings;
my %update = ("price" => 15.25, "color" => "red", "year" => 1974);▼
my %result = (%base, %update);▼
▲ print "$k => $v\n";
printf "%-7s %s\n", $_, $update{$_} for sort keys %update;
print "\nMerge\n";
my %merge;
$merge{$_} = [$base{$_}] for keys %base;
push @{$merge{$_}}, $more{$_} for keys %more;
printf "%-7s %s\n", $_, join ', ', @{$merge{$_}} for sort keys %merge;</lang>
{{output}}
<pre>Update
<pre>name => Rocket Skates▼
price => 15.25▼
▲color => red
year => 1974</pre>▼
year 1974
Merge
color yellow, red
name Rocket Skates
price 12.75, 15.25
=={{header|Perl 6}}==
| |||