Write a perl script to find whether a given line of text is starting and ending with same word or not?
Submitted by: AdministratorLets 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";
}
}
Submitted by: Administrator
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";
}
}
Submitted by: Administrator
Read Online CGI Perl Job Interview Questions And Answers
Top CGI Perl Questions
☺ | Difference between Perl and Mod_perl? |
☺ | Write a script to display mirror image of a entered value and also check whether Palindrome? |
☺ | Write an expression or Perl script to identify the entered IP address is valid or not? |
☺ | Write a script to generate n prime no.s? |
☺ | How to find a substring in a string without using substr built in functions, and print the substring found? |
Top Coding/Programming Categories
☺ | Python Interview Questions. |
☺ | OOP Interview Questions. |
☺ | Software engineering Interview Questions. |
☺ | PHP Interview Questions. |
☺ | VBA (Visual Basic for Applications) Interview Questions. |