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


P is for Practical
	PerlMonks

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

by SparkeyG (Curate)

on Mar 16, 2001 at 01:46 UTC ( [id://64800]=note: print w/replies, xml )

Need Help??

in reply to 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 Stephan,

Your solution in much more elegant than mine, and it works on my data-set.
The one thing that I'd left out was that @bigArr will be a list-of-lists. The following references to $place, a temp var, and making the assignment into a anon array fixes that problem.

my $place=0;

foreach my $record ( @dataArr ) {
    my (@date) = &ParseRecur($record->[3], $base, $start, $stop);
    foreach my $line (@date) {
        $bigArr[$place] = [ @$record[0, 1, 2], $line, @$record[4] ];
        $place++;
    }
}
[download]

--SparkeyG

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

Replies are listed 'Best First'.

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

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] ]);
    }
}
[download]

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

stephen

[reply]
[d/l]

In Section Seekers of Perl Wisdom