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

Answers were Sorted based on User's Feedback



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

Answer / rajendran

($test,$number) = ("","");
$test = "12344tyyyyy456";
@test=split('',$test);
foreach(@test)
{
if ($_ =~ /\d/)
{$number++;
}
}
print $number;

Is This Answer Correct ?    10 Yes 3 No

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

Answer / arun janardhanan

Simple guys here we go :-).........


#!/usr/bin/perl -w

use strict;
my($test,$number) = ("","");
$test = "12344tyyyyy456";
$number = ($test =~ tr/[0-9]/[0-9]/);
print "Number of digits in variable is :- $number ";
exit;

Is This Answer Correct ?    11 Yes 5 No

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

Answer / santha

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

Is This Answer Correct ?    3 Yes 2 No

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

Answer / tclgeek

to find the count of no of digits using regular expression in TCL

set val "abbj68689kbj8798797"
set a [regexp {[a-z]+(\d+)[a-z]+(\d+)} $val val1 val2 val3]
if { $a == 1 } {
puts "matched pattern found are : $val2$val3"
puts "the number of digits are [expr [string length $val2] + [string length $val3]]"
} else {
puts "error"
}

Is This Answer Correct ?    0 Yes 0 No

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

Answer / swdaer\zffgasdt

AEWT AWET
WEKLFJCM
w?E:,f
"W:lrc";E

Is This Answer Correct ?    2 Yes 5 No

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

Answer / anandan

#!/usr/bin/perl -w

use strict;
my($test,$number) = ("","");
@test = "12344tyyyyy456";
foreach(@test)
{
if ($_ =~ /\d/)
{$number++;
}
}
print $number;

Is This Answer Correct ?    5 Yes 15 No

Post New Answer

More CGI Perl Interview Questions

What happens when you return a reference to a private variable?

0 Answers  


How do you turn on the perl warnings?

0 Answers  


how to connect cisco switch uisng perl script

0 Answers   ABC,


What happens to objects lost in "unreachable" memory, such as the object returned by Ob->new() in `{ my $ap; $ap = [ Ob->new(), $ap ]; }' ?

0 Answers  


What are stdin, stdout and stderr?

0 Answers  


Give an example of using the -n and -p option.

0 Answers  


When does circular reference occur?

0 Answers  


What are prefix dereferencer?

0 Answers  


How can you replace the characters from a string and save the number of replacements?

0 Answers  


How to remove a directory in perl?

0 Answers  


What does a die() function do in perl?

0 Answers  


Is there any way to add two arrays together?

0 Answers  


Categories