Try pattern matching for the following:
1) 10.111.23.11
2) /root/abc/cde/fgg/ac.xml --> Get file name without
extention.
3) /root/abc/ac.xml/fgg/ac.xml --> Get file name without
extention.
4) What does "DIE" meant in PERL?
5) chomp
6) "This is saturday" --> Print the weekday number.
7) 11-2-2009 --> Print the name of the month.
8) Reverse the string without using func in C.
Answer Posted / guest
my $str="This is testing of string reverse";
print scalar reverse $s
chomp is used to remove the trailing new line.
If we give chomp list then it will remove the trailing new
line in all the elements of the list.
die function is used for handling the errors in Perl.
It terminates the program immediately after printing the
message passed to the die function.
die("testing of die");
It will print the message "testing of die" on screen and
terminates the program.
Pattern Matching
----------------
[code]
my $str="10.111.23.11";
my $file="/root/abc/cde/fgg/ac.xml";
my $file1="/root/abc/ac.xml/fgg/ac.xml";
if($str=~/[0-9]{2}\.[0-9]{3}\.[0-9]{2}\.[0-9]{2}/)
{
print "Pattern $& get matched\n";
}
if($file1=~s/\/(.*)\/(.*)\.(.*)/$2/)
{
print "File Name is $file1\n";
}
print strftime("%B",0,0,0,11,2-1,2009);
[/code]
| Is This Answer Correct ? | 2 Yes | 1 No |
Post New Answer View All Answers
How will you get the count of parameters passed to a perl subroutine?
How to prevent file truncation in perl?
How do you turn on the perl warnings?
Explain arrays in perl.
What is confess function in perl?
List the prefix dereferencer in Perl.
How to deleting an existing file in perl programming?
Comment on array slicing and range operator
Write a program to decode the data in the form using cgi programming
How does a “grep” function perform?
How we can navigate the xml documents?
What is perl programming?
Explain string comparison operators in perl.
Explain a tell function in perl?
what is Perl one liner?