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.
Answers were Sorted based on User's Feedback
Answer / kiruthikau
Try the following code for getting weekday number.
[code]
use strict;
use warnings;
my %days=("Sunday"=>1,
"Monday"=>2,
"Tuesday"=>3,
"Wednesday"=>4,
"Thursday"=>5,
"Friday"=>6,
"Saturday"=>7,);
my $str="This is Saturday";
my @day=split(' ',$str);
print "\tWeekday Number of $day[-1] is:",$days{$day[-1]};
[/code]
Is This Answer Correct ? | 4 Yes | 0 No |
Answer / 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 |
“Perl regular expressions match the longest string possible”. What is the name of this match?
How many types of operators are used in the Perl?
Which has highest precedence in between list and terms? Explain?
How do I print the entire contents of an array with Perl?
What do the symbols $ @ and % mean when prefixing a variable?
Explain grooving and shortening of arrays?
Explain 'grep' function.
What is the difference between chop & chomp functions in perl?
10 Answers Cap Gemini, DELL, Electronic Data, TCS,
How to convert arrays into a string in perl?
how to extract pin_code,phone_number,year from text file using regular expressions in perl
How can arrays be tied?
What syntax is used for grep() function?