Interested to Buy Any Domain ? << Click Here >> for more details...
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.
- 2 Answers
- 7605 Views
- I also Faced
- E-Mail Answers
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
what is perl language?
How are parameters passed to subroutines in perl?
What is the different between array and hash in perl programming?
Which feature of perl provides code reusability?
What is 'commit' command in perl?
what are the three groups involved in information sharing?
What is stdin in perl?
How to concatenate strings with perl?
What is lexical variable in perl?
Demonstrate subroutines in perl with a simple example.
explain the various functions/directives in perl that allow you to include/import a module. Also, state the differences between them.
Explain split function in perl?
Why does Perl not have overloaded functions?
What is the purpose of “_file_ literal” and “_line_ literal” in perl?
what is CPAN?
