Perl で'' と 1 == 0の区別の付け方。 - D-6 [相変わらず根無し]Perl で'' と 1 == 0の区別の付け方。 前のエントリの続き。 普通の文字列''と、s/foo/bar/、もしくは1 != 0の結果のようなbooleanを返した結果の違いを見る、ってことだが use B; sub SV_isPV { my $x = shift; my $flags = B::svref_2object(\$x)->FLAGS;; return (! ( $flags & 0x00010000 ) ) && ( $flags & 0x00040000 ); } これを通すと、区別が付く。 カテゴリ 開発 2007年12月 7日 18:18 D | ブログ記事のURL | コメント(0) | トラックバック(0) |
