Interested to Buy Any Domain ? << Click Here >> for more details...
Write a script for 'count the no.of digits using regular
expressions in perl..
- 6 Answers
- 15663 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 |
Why we use "use lib $path"?
Explain the difference between my and local?
What is the usage of -i and 0s options?
Write a program to concatenate the $firststring and $secondstring and result of these strings should be separated by a single space.
How the interpreter is used in Perl?
How do I sort a hash by the hash key?
What do the symbols $ @ and % mean when prefixing a variable?
What is eval function in perl?
Can any1 tell me 2 write the script using perl script 2 looking at a log file 2 see wheather the test has passed or not.
What is the main function of cookie server?
You want to open and read data files with perl. How would you do that?
What is goto statement in perl?
ASP 
