in reply to Re^2: Perl Code Runs Extremely Slow
in thread Perl Code Runs Extremely Slow

I see you chomp the lines. I missed it probably because the orginal post does not seem to do it.
Many thanks for the correction.

Replies are listed 'Best First'.
Re^4: Perl Code Runs Extremely Slow
by jwkrahn (Abbot) on Jun 14, 2006 at 12:10 UTC
    Yes but you don't have to chomp the lines because split removes all whitespace, including any terminating newlines.
[reply]

      This particular usage of split removes all whitespace, not split in general. If you split on something more specific such as a space or a tab then the newline will still be found in the last element of the list. 

      use Data::Dumper;

while (<DATA>) {
    my @foo = split;
    my @bar = split / /, $_;
    print Dumper \@foo, \@bar;
}

__DATA__
hello world
foo bar baz

      [download]

      jeffa

      L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)
[reply]
[d/l]

In Section Seekers of Perl Wisdom