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
- 6987 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 |
Explain goto name?
How to renaming a file in perl programming?
What is the use of -w, -t and strict in Perl?
What does last statement do in perl?
What are the arguements we normally use for perl interpreter?
Write syntax to use grep function?
How to get help for perl?
What is perl shift array function?
What are arrays in perl?
What are stdin, stdout and stderr?
How does polymorphism work in perl? Give an example.
Remove the duplicate data from @array=(“perl”,”php”,”perl”,”asp”)
ASP 
