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
- 15847 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 |
What are some of the key features of objects in perl?
What are the logical operators used for small scale operations?
Which functions in perl allows you to include a module file.
“The methods defined in the parent class will always override the methods defined in the base class”. What does this statement means?
What syntax is used for grep() function?
What is perl? What is the basic command to print a string in perl?
What are the reasons that cookie server can’t handle multiple connections?
What is the use of –w?
For a situation in programming, how can you determine that Perl is a suitable?
Try pattern matching for the following: 1) 10.111.23.11 2) /root/abc/cde/fgg/ac.xml --> Get file name without extention. 3) /root/abc/ac.xml/fgg/ac.xml --> Get file name without extention. 4) What does "DIE" meant in PERL? 5) chomp 6) "This is saturday" --> Print the weekday number. 7) 11-2-2009 --> Print the name of the month. 8) Reverse the string without using func in C.
How do you you check the return code of a command in perl?
Why to use perl scripting?
ASP 
