2007年12月07日19:00 カテゴリLightweight Languages perl - 勝手に添削 - SvTRUEをPurePerlで ちょっと風邪気味なので今日は家でおとなしく。 SvTRUE、PurePerl版 - D-6 [相変わらず根無し] sub SvTRUE{ my $x = shift; if (! defined $x) { return (); } if (!ref $x && $x =~ /\D/) { return length($x) > 1 || substr($x, 0, 1) ne '0'; } else { return $x; } } 長過ぎるように見えるのは体調のせいじゃないよね。 だって、一行でこう書けるんだもん。 sub SvTRUE{ !! $_[0] } で、以下証拠。 #!/usr/local/bin/perl use stric