↑を相談したときに教えてもらった。 困った事があったらperldocを見るのだけど、この引数、perlop perlvar -f -m -l perldoc しか知らなくて、結局ググってた。 perlopとかperlvarをPageNameというのは、perldoc perldoc を見て知っていたのだけど。 俺「Pag…

久々に。 use strict; use warnings; use Data::Dumper;sub p {warn Dumper [@_];my @c = caller;print STDERR " at $c[1]:$c[2]\n\n"} my $s = "hoge"; my ($d,$r) = (0,0); ($d,$r) = (($s =~ /sss/),($s =~ /hoge/)); p $d, $r; # case 1 ($d,$r) = (($s …