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

Categories >> Software >> Scripts >> CGI Perl
Suggest New Category

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

Question Posted / jkonakan

6 Answers
15617 Views
AppLabs, I also Faced
E-Mail Answers

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