Write a script for 'count the no.of digits using regular
expressions in perl..
Answer Posted / 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 |
Post New Answer View All Answers
what is the function of Return Value?
Explain subroutine in perl?
Explain perl one-liner?
What is -> symbol in perl?
Explain about typeglobs?
Explain arrays in perl.
How do you set environment variables in perl?
Why to use perl?
What is the purpose of _package_ literal?
What is cpan in perl?
Explain lists and ivalue?
how to create a flat file database as shown below s.no name age city phone 0 hema 22 Calcutta 4312542 1 hema 21 Bangalore 2344345 2 ganesh 25 delhi 2445454 3 kartik 45 pune 4312121 4 santosh 25 Hyderabad 2254231 5 kumar 25 mysore 2344567 6 gita 34 mangalore 6532123 7 gita 32 pune 2213456 Q1.print the details of the person who r from bangalore q2.Replace the city name managlore to pune q3.prints no of person having name gita and hema q4.print how many are of age 25.
How do you turn on the perl warnings?
How we can navigate the xml documents?
Explain the different types of data perl can handle.