symbolic ref error

Lhamo_rin has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: symbolic ref error by merlyn (Sage) on Aug 10, 2005 at 16:45 UTC
You shouldn't be using symbolic refs in the first place! Maybe you should back up a step. Can you describe your goal without going into implementation? -- Randal L. Schwartz, Perl hacker Be sure to read my standard disclaimer if this is a reply.	[reply]
Re^2: symbolic ref error by Lhamo_rin (Friar) on Aug 10, 2005 at 17:11 UTC
I know it looks messy but what I am trying to do is put a value into an array that is named after the conditions in which the value was taken. Here is more: `$seq = 'KLLS3'; $point = 'weight'; $index = 4; $mean = 1.443; sorting($seq, $index, $point, $mean); sub sorting { if ($_[0] eq "KLLS3_LT.V4_0") { if ($_[1] == "1") {push @{{$_[2]}{$_[0]}{$_[1]}}, $_[3];} }` [download]	[reply] [d/l]
Re^3: symbolic ref error by runrig (Abbot) on Aug 10, 2005 at 17:25 UTC
...put a value into an array that is named after the conditions... Is there any reason why you can't use a hash array instead of a symbolic reference to a regular array (and use strict)? E.g.: `my $seq = 'KLLS3'; my $point = 'weight'; my $index = 4; my $mean = 1.443; my %hash; sorting($seq, $index, $point, $mean); sub sorting { if ($_[0] eq "KLLS3_LT.V4_0") { if ($_[1] == "1") {push @{$hash{$_[2]}{$_[0]}{$_[1]}}, $_[3];} } }` [download]	[reply] [d/l]
Re^4: symbolic ref error by Lhamo_rin (Friar) on Aug 10, 2005 at 18:26 UTC
Re^5: symbolic ref error by runrig (Abbot) on Aug 10, 2005 at 18:31 UTC
Re: symbolic ref error by Ovid (Cardinal) on Aug 10, 2005 at 16:44 UTC
The error is here: `{$_[2]}{$_[0]}{$_[1]}` I don't know what that is supposed to be. However, you might want to consider reformatting this and actually naming your variables. You'll notice the syntax error is here, but it's still much easier to read: `my ($foo, $bar, $baz, $quux) = @_; if ($bar == 1) { push @{ {$baz}{$foo}{$bar} }, $quux; }` [download] Cheers, Ovid New address of my CGI Course.	[reply] [d/l] [select]
Re: symbolic ref error by Transient (Hermit) on Aug 10, 2005 at 16:45 UTC
ick, why not assign variable names first and see what's going on? `if ($_[1] == "1") {push @{{$_[2]}{$_[0]}{$_[1]}}, $_[3];}` [download] to `my ( $w, $x, $y, $z ) = @_; if ( $x == 1 ) { # or $x eq "1" push @{{$y}{$w}{$x}}, $z; }` [download] Wait... what does that mean? `@{{$y}{$w}{$x}}`? Is that supposed to be a HoHoHoA? If so, try `@{$y->{$w}->{$x}}` [download]	[reply] [d/l] [select]
Re: symbolic ref error by neniro (Priest) on Aug 10, 2005 at 17:04 UTC
Maybe `$_[2]` or `$_[0]` aren't defined?! `if ($_[1] == 1) { die "something went wrong!\n" unless (defined $_[2] and defined $_[0]); # ... }` [download] See above: 482663 - for a reasonable solution.	[reply] [d/l] [select]