Help for this page

Select Code to Download


  1. or download this
    $b = 0;
while ( @slog = $sth->fetchrow_array ) {
...
    ($a,$b) = split(/=/, $info);
    push(@info,$b)
}
  2. or download this
    if (defined($info{$b})) { die "Duplicate reference"; }
$info{$b} = $b;