Write a script for 'count the no.of digits using regular
expressions in perl..
- 6 Answers
- 14173 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 |
When does circular reference occur?
What is the importance of perl warnings?
Explain join function in perl?
what is the difference between java and cgi?
How will you declare a variable in perl?
What are the advantages and disadvantages of perl language?
How do you debug a Perl scripting ( at the compile time error or run time error) in Unix environment ?
What is an interpolation in perl?
What is it meants by '$_'?
How can you define “my” variables scope in Perl and how it is different from “local” variable scope?
Explain use of ‘my’ keyword in perl?
What is a chomp() function in perl?
ASP 
