merkwürdiges Problem mit if Klausel

[Struppi]

ja ich nutze CGI::Carp qw/fatalsToBrowser/; sowie #!/usr/bin/perl -w

gut.

Trotzdem wundere ich mich, dass das hier durchgeht:

.
my $i=0;
for (@query)
 {
 if (($$_{lg} != $query[$i-1]{lg}) || ($$_{bg} != $query[$i-1]{bg}))

Hier willst mit $i - 1 auf das 0-1. Element zugreifen, d.h. das letzte Element.

ansonsten würde ich die Dereferenzierung so schreiben:
$_->{lg}

Denn soweit ich das verstehe müßte es auch:
$query[$i-1]->{lg}

heißen.

Struppi.