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
- 6958 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 |
Which feature of Perl provides code reusability ? Give any example of that feature.
How can information be put into hashes?
What is it meants by '$_'?
What are perl array functions?
What does Perl do if you try to exploit the execve(2) race involving setuid scripts?
Write an expression or perl script to identify the entered ip address is valid or not?
What is epoch time in perl?
Explain gmtime() function in perl?
How do I pass a command line argument in perl?
What do the symbols $ @ and % mean when prefixing a variable?
Why to use perl scripting?
What are some of the key features of objects in perl?
ASP 
