in reply to "my" slowing down programs?

Try declaring the array before the loop:


my @l1;
while (chomp ($line = <$gsr>)) {
    @l1 = split $tab, $line;
    @l1 = split $tab, $line;
    @l1 = split $tab, $line;
    print(join($tab,@l1[@okc]));
    print(join($tab,@l1[@okc]));
    print(join($tab,@l1[@okc]));
}

[download]
With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority". I knew I was on the right track :)
In the absence of evidence, opinion is indistinguishable from prejudice.
I'm with torvalds on this Agile (and TDD) debunked I told'em LLVM was the way to go. But did they listen!

Replies are listed 'Best First'.
Re^2: "my" slowing down programs?
by jf1 (Beadle) on Aug 17, 2015 at 07:45 UTC
    Yeah, that had been the original approach, alas it makes matters worse: Doing that the 1st assignment within the loop is slowed down already.
[reply]

In Section Seekers of Perl Wisdom