2007-01-12 数字の桁数を数える Perl この書き方便利だなぁ。trはあまり使ったことなかった。メモ。 # $x の桁数(ケタ数)を数える $count = $x =~ tr/0-9/0-9/;