count digit in a numeric value

wusphere has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: count digit in a numeric value by Zaxo (Archbishop) on Aug 15, 2004 at 04:11 UTC
`my $digit_count = $num =~ tr/0-9//;` After Compline, Zaxo	[reply] [d/l]
Re^2: count digit in a numeric value by wusphere (Novice) on Aug 15, 2004 at 04:26 UTC
Thank you Monks!	[reply]
Re: count digit in a numeric value by hsinclai (Deacon) on Aug 15, 2004 at 04:09 UTC
with length().. `$str=123; $fu = length($str); print $fu,"\n";` [download] hm.. To count the digits in an alphanum string.. `perl -e '$str="fff123"; $fu = ($str =~ tr/[a-z]//c); print $fu,"\n";'` [download] I know, it's not what you asked, just trying to complicate things needlessly:) updated, pls see following reply	[reply] [d/l] [select]
Re^2: count digit in a numeric value by wusphere (Novice) on Aug 15, 2004 at 04:16 UTC
Thanks	[reply]
Re^2: count digit in a numeric value by hsinclai (Deacon) on Aug 16, 2004 at 03:11 UTC
wusphere pay no attention to the one liner above, it's wrong, and off the point of your original question, as was pointed out offline .. brackets don't belong in tr///, should be looking for digits not anything else like a-z .. `perl -e '$str="fff123"; $fu = $str =~ tr/0-9//c; print $fu,"\n";'` [download] Which is what Zaxo said anyway.	[reply] [d/l]
Re: count digit in a numeric value by johnnywang (Priest) on Aug 15, 2004 at 05:02 UTC
Please see a recent post: number of numbers in a string. Mine was: `$a = 234234; print scalar(()= $a =~ /\d/g); __END__ 6` [download]	[reply] [d/l]