$testnumber='34535sssss24'; $numbercount=0; while($testnumber=~

Write a script for 'count the no.of digits using regular
expressions in perl..

Question Posted / santha

Answer Posted / santha

$testnumber='34535sssss24';
$numbercount=0;
while($testnumber=~m{\d}igs)
{
$numbercount++;
}
print "\n $numbercount";

Is This Answer Correct ?

3 Yes

2 No

Please Help Members By Posting Answers For Below Questions

Explain subroutine?

925

Explain grooving and shortening of arrays and splicing of arrays?

902

Explain about typeglobs?

944

What does `$result = f() .. g()' really return?

1214

Explain the meaning of closure in perl.

1037

How to do comment in perl?

961

How to concatenate strings with perl?

871

What does length(%HASH) produce if you have thirty-seven random keys in a newly created hash?

1028

What is -> symbol in perl?

1018

How to dereference a reference?

992

Which guidelines by Perl modules must be followed?

1026

How are parameters passed to subroutines in perl?

962

How many types of variable in perl?

1081

You want to connect to sql server through perl. How would you do that?

936

what is CPAN?

1003