諸事情により再帰プログラム。何年ぶりだ。 sub mul { my $arg = shift; if($arg == 0) { return 1; } else { return $arg * mul($arg - 1); } } 動くんだけど。最後を return $arg * mul(--$arg); とすると期待している動作をしない。納得いかなかったので…

蔑まれても見下されても別にいいけど、同情されるのは嫌だな。

% perl -le 'print +("a", "b", "c") x 3' abcabcabc % perl -le 'print ("a", "b", "c") x 3' abc カッコの意味を打ち消す…だったか？上のCONSTの例でもプラスを外すと予期しない結果になる。 忘れないうちにググろうか。

スライス自体使わなかったから、いざ使ってるコード見たら、やってることは分かるが、何で実現できるのか理解できなかった罠。 use strict; use Data::Dumper; use constant CONST => qw/one two thr/; my %type; @type{+CONST} = ('const') x CONST; print …