babu

• Jun 20th, 2012

Hi i am babu.chomp is pre define function it will delete last character if it is a new line character ex1:$a="babu "; chomp($a); print $a;#it will not print new line ...after babu. ex2:print "Enter a...

sergant

 Profile Answers by sergant Questions by sergant

• Apr 28th, 2012

chomp VARIABLE chomp( LIST ) chomp This safer version of "chop" removes any trailing string that corresponds to the current value of $/ (also known as $INPUT_RECORD_SEPARATOR in...

Answer Question  Select Best Answer

You have unsorted array of strings, like:my @arr = qw(hello World Show must go on);Print this array, sorted in reversed case-insensitive order.

iamkamalnayan

 Profile Answers by iamkamalnayan Questions by iamkamalnayan

• Dec 26th, 2016

Code
print join  , sort {lc $b cmp lc $a} @arr;

Gaurav.khurana

 Profile Answers by Gaurav.khurana Questions by Gaurav.khurana

• Apr 18th, 2015

Code
        @array = qw( Udzial IS going Where means  How are Youu you share);
        print join (" ", reverse(sort{lc($a) cmp lc ($b) } (@array)));
     #  cmp used to do characters sort and 
     #  lc to do case insensitive
     # after sorting applied reverse on it

Answer Question  Select Best Answer

pritish pattanaik

• Feb 15th, 2017

- Dont use Perl when you have no idea about Perl.
- Dont use Perl when you have no idea about its use.
- Dont use Perl if don't understand this (TMTOWTDI)

ahinav

• Aug 22nd, 2015

Please read the question again ... when NOT to use perl ....

Answer Question  Select Best Answer

Gaurav.khurana

 Profile Answers by Gaurav.khurana Questions by Gaurav.khurana

• Apr 18th, 2015

R should be small here i.e.
`rm -rf /home/udzial/*`

Navrattan

• Oct 8th, 2013

Rmtree () is function which is used to remove a directory which has files in it

Answer Question  Select Best Answer

soumdgr8

• Aug 1st, 2015

If its UNIX (ish) Env., use below"perl #tail.pl #this will work for default behaviour of tail(i.e. last 10 lines), you can enhance it to tail certain no. of lines #usage : tail.pl ...

Arunesh

• Jun 15th, 2015

You can do it in one liner

Code
perl -lne push(@tail,$_);shift @tail if($#tail >=10);END{print $_ foreach(@tail)} filename

Answer Question  Select Best Answer