substring

[marcos rebelo]

If I'm not wrong, Changing this lines:

                my @col = grep(!/\t/, split(/(\t)/, $line));
                push(@col, "") if $line =~ /\t$/;


by


                $line .= "\t";
                my @col;
                my $lastIndex = 0;
                foreach my $actualIndex (0..length($line)) {
                    if (substr($line, $actualIndex, 1) eq "\t") {
                        push(@col, substr($line, $lastIndex,
$actualIndex - $lastIndex));
                        $lastIndex = $actualIndex+1;
                    }
                }

give me 10% faster code. 


Is it possible to do faster?

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>