Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Re: Ranking files, largest to smallest

by prasadbabu (Prior)
on May 27, 2008 at 05:31 UTC ( #688598=note: print w/replies, xml ) Need Help??


in reply to Ranking files, largest to smallest

Hi ewexperts,

Change

my @lines = <FILE>; chop(@lines); foreach my $str (@lines) { chomp(@lines); }
into chomp (@lines = <FILE>);

Here chop is not necessary to remove the newline character, it ll remove the last character, not only newline character. Instead you can use chomp which removes only the newline character at the end.

Prasad