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

Bw

Author: 中村 心 Shin Nakamura, Email: sn(at)i.basicwerk.com


© Shin Nakamura/BasicWerk 2008 - 2017