「Perl 5.20 リリース」記事へのコメント

サブルーチンの引数

[Anonymous Coward]

ん？なにが変わったんだろ？と一瞬分からなかった。
最近PHPの案件が多かったせいでその書き方に違和感が無くなってたんだな。

Re:

[sakamoto (8009)]

変更内容とか見ても、my($a,$b)=$_とは違いますと、否定文の説明しか無いので、ライバルPHPに似せるために、新たな概念の変数を導入したんじゃないかな？シンタックスシュガーでは無いようだ。

--
-- 哀れな日本人専用(sorry Japanese only) --

Re:

[taka2 (14791)]

単に my($bar,$hoge)=@_;としただけだと、関数呼び出し時の引数型チェックが行われません。

sub foo($$) {
    my ($bar, $hoge) = @_;
    …
}

と等価って感じじゃないかな。こう書いた場合は、関数fooの呼び出しで引数がスカラー値2つじゃなかったらエラーになります。

こう書くよりは直感的(というかC言語的というか他のC言語系スクリプト言語に近い)だしわかりやすいと思いますが、Experimental だし、既存のPerlでも動くようにってことを考えると、しばらくは使

Re:サブルーチンの引数

[fcp (32783)]

Perl 5.20 の perlsub (英語) [metacpan.org] とかを読んでちょっと調べてみた。

単に my($bar,$hoge)=@_;としただけだと、関数呼び出し時の引数型チェックが行われません。

sub foo($$) {
    my ($bar, $hoge) = @_;
    …
}

と等価って感じじゃないかな。こう書いた場合は、関数fooの呼び出しで引数がスカラー値2つじゃなかったらエラーになります。

だいたい等価だけれど、完全に等価ではないのでメモ。

従来のプロトタイプはサブルーチンの本体の一部にはならないので、サブルーチンへの参照を使って呼び出した時にはチェックされない。

sub func($$) {}
my $ref = \&func;
&$ref(1); # エラーも警告もなし

これに対し、新しいシグネチャーはサブルーチンの本体の一部なので、参照を使って呼び出した時でもチェックされる。

use feature 'signatures';
sub func($left, $right) {}
my $ref = \&func;
&$ref(1); # エラー: Too few arguments for subroutine

ほかにも何か違いがあるかも。

Re:

[Anonymous Coward]

現実の挙動は、こうですね。
↓
% export PERL5OPT=''
% perl -MO=Deparse -Mfeature=signatures -le 'sub func($a, $b){} ;my $ref =\&func ; $ref->()'
The signatures feature is experimental at -e line 1.
BEGIN { $/ = "\n"; $\ = "\n"; }
sub func {
        use feature 'signatures';
        die 'Too many arguments for subroutine' unless @_ = 2;
        my $a = $_[0];
        my $b = $_[1];
        ();
}
use feature 'signat