Perl日記

日々の知ったことのメモなどです。Perlは最近やってないです。

2012-03-12から1日間の記事一覧

引数が格納される配列@_はローカル変数です

これまでまったく意識したことなかったけれど @_はlocalだと知ったのでメモ。 sub speak { my $w = &_speak_word; # ←引数なし print $w,"\n"; } sub _speak_word { my $type = shift; # ←でも引数が取り出せる if ($type eq 'laugh') { return 'HAHAHA'; } …