Beefy Boxes and Bandwidth Generously Provided by pair Networks vroom
The stupid question is the question not asked
 
PerlMonks  

Re: Re: Re: Why does this core? or How am I being a bonehead

by stephen (Priest)
on Mar 16, 2001 at 02:57 UTC ( #64829=note: print w/ replies, xml ) Need Help??


in reply to Re: Re: Why does this core? or How am I being a bonehead
in thread Why does this core? or How am I being a bonehead

Brother SparkeyG...

How about this? (Minor change)

my @bigArr = (); foreach my $record ( @dataArr ) { foreach my $line ( &ParseRecur($record->[3], $base, $start, $stop) + ) { push(@bigArr, [ @$record[0, 1, 2], $line, @$record[4] ]); } }
<PEDANTIC>
As a general principle: using counting variables like $place can increase program complexity unnecessarily... if you're building a list it's best to use push.

In the same spirit, I eliminated @date, since it's only used in one place.
</PEDANTIC>

stephen


Comment on Re: Re: Re: Why does this core? or How am I being a bonehead
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://64829]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (4)
As of 2014-04-19 19:24 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (483 votes), past polls