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

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,


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.