Interested to Buy Any Domain ? << Click Here >> for more details...
write a perl script to find whether a given line of text is
starting and ending with same word or not ???
- 2 Answers
- 6968 Views
- CSS, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / guest
Lets assume that the text to match is present in a file
say "data.txt".
Following program will print the line containing same
starting and ending word.
open(FILE,"data.txt") or die "cannot open file : $!";
while(<FILE>) {
if($_ =~ /^(\w+)\s+.*?\1$/) {
print "the line is $_ \n";
}
}
| Is This Answer Correct ? | 5 Yes | 1 No |
Answer / vipul dalwala
Above solution ($_ =~ /^(\w+)\s+.*?\1$/) does not work for
string like "vipul on allinterview.com onvipul";
I would suggest :
if( $_ =~ /^([^\s]+)(\s.*?)*\s\1$/ ) {
print "the line is $_ \n";
}
| Is This Answer Correct ? | 3 Yes | 3 No |
Why do we use "use strict" in perl?
What is cpan ? What are the modules coming under this?
Difference between the variables in which chomp function work ?
How can memory be managed in Perl?
what is Polymorphism in Perl?
What does `$result = f() .. g()' really return?
how to find a substring in a string without using substr built in functions, and print the substring found
How can you create an object of a class in a package?
What is the use of "stderr()"?
How to make the following assignment, as arrayreference assignment ? my $arr_ref='[1,2,3,4,4,'elem']';
What are the steps involved when the cgi program starts running?
What is epoch time in perl?
ASP 
