Memoize2

Perl 長さの異る配列をZIPすると短い方にあわせて処理される¶

# @a1の要素が3つ、@a2が2つだと、空席は undef に
$ perl -M"Data::Dumper" \
    -we 'my @a1=qw/a b c/; my @a2=qw/111 112/; my %h; @h{@a1}=@a2; print Dumper \%h;'
$VAR1 = {
          'b' => '112',
          'a' => '111',
          'c' => undef
        };

# @a1の要素が3つ、@a2が4つだと、はみ出し者は切り捨てられる
$ perl -M"Data::Dumper" \
    -we 'my @a1=qw/a b c/; my @a2=qw/111 112 113 114/; my %h; @h{@a1}=@a2; print Dumper \%h;'
$VAR1 = {
          'c' => '113',
          'b' => '112',
          'a' => '111'
        };

Last modified: 2016-12-21

Page Top

Index