[Tokyo-pm] Re: これはどう動くの？

[Tatsuhiko Miyagawa]

宮川です。

On Thu, 26 Aug 2004 20:48:25 +0900
Keiichi Okabe <okabek at beige.ocn.ne.jp> wrote:

> >        my $head = substr(shift @lines, 0, -1);
> 
> この部分です．これが
> 
>   sub {substr(shift,0,-1), \@_}
> 
> になるわけですよね．

いえ、これ($head) はカンマ(,) の左側です。
右側(\@_)が、残りの配列のリファレンスです。

> なんで@_じゃないのかな，という
> ところから混乱を起こしました．でもなんで \@_に
> なるんでしょう．何を見ればわかるでしょうか？

2文にすると、

sub {
    my $head  = substr(shift, 0, -1);
    return ($head => \@_);
};

こうなります。

-- 
Tatsuhiko Miyagawa <miyagawa at livedoor.jp>