finding the number of digits in a string 1

[danny2785]

Is there a way to find the number of digits that occur in a string without splitting the string into an array and then iterating through it?

 

[nbowden]

Hi,

Best I can do is :

print scalar(grep( /\d/, split(//,'12345abc')));

HTH



Nigel Bowden

http://www.bowden-software.com

 

[nbowden]

...I also came up with this :

$test_string = 'abc1234';
@test_array= ($test_string =~ /(\d)/g);
print scalar(@test_array);"

HTH

Nigel Bowden

http://www.bowden-software.com

 

[ishnid]

Try this:

my $number_of_digits =  $test_string =~ tr/0-9/0-9/;

 

[danny2785]

Thanks

 

[danny2785]

Ishnid, do you think you could step through the code for me? I don't get quite understand why that works. Just trying to learn.. Thanks

 

[Kirsle]

my $number_of_digits =  $test_string =~ tr/0-9/0-9/;

tr/_in_/_out_/ does a translation of characters and counts the number of translations it made. In this case, it swaps each number with itself (not changing the original string), but counts how many numbers it translated.