write a perl script to find whether a given line of text is starting and ending

write a perl script to find whether a given line of text is
starting and ending with same word or not ???

Question Posted / hemalatamegh

2 Answers
5991 Views
CSS, I also Faced
E-Mail Answers

Answers were Sorted based on User's Feedback

write a perl script to find whether a given line of text is starting and ending with same word or n..

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

write a perl script to find whether a given line of text is starting and ending with same word or n..

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

Post New Answer