Write a script for 'count the no.of digits using regular
expressions in perl..
- 6 Answers
- 14112 Views
- AppLabs, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / rajendran
($test,$number) = ("","");
$test = "12344tyyyyy456";
@test=split('',$test);
foreach(@test)
{
if ($_ =~ /\d/)
{$number++;
}
}
print $number;
| Is This Answer Correct ? | 10 Yes | 3 No |
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 |
Answer / santha
$testnumber='34535sssss24';
$numbercount=0;
while($testnumber=~m{\d}igs)
{
$numbercount++;
}
print "\n $numbercount";
| Is This Answer Correct ? | 3 Yes | 2 No |
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 |
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 |
How many data types are there in perl?
Write a script to reverse a string without using Perl's built in function
When would you not use Perl for a project?
Why does Perl not have overloaded functions?
How are parameters passed to subroutines in perl?
What is perl programming?
Which guidelines by Perl modules must be followed?
How to deleting an existing file in perl programming?
What are the benefits of perl in using it as a web-based application?
Explain join function in perl?
Which feature of perl provides code reusability?
Explain the meaning of perl one-liner?
ASP 
