PERL получить из формы и сформировать

Из формы получаю данные вида (name-value соответственно).

f40: 2930
f41: 6353
f42: 14755
f43: 21221

Далее пытаюсь получить значения без F

    foreach my $key (param()) {
    if ($key =~ /^f(\d+)$/) {
        my $gid = $1;
        if (param($key) =~ /^\d+$/) {
        my $nn{$gid} = $key;
        push(@pos, $nn);
        $hash->{nn2} = \$nn;
        }
    }
}

Далее нужно из БД по этим номерам сделать выборку

my @items = ();
        my $sth = $dbh->prepare("SELECT * FROM catn c WHERE c.id IN (?)");
        my $rvs = $sth->execute($hash->{nn2}) or die "execute: ".$sth->errstr."\n";
        while (my $item = $sth->fetchrow_hashref) {
  
            push(@items, $item);
        }
     $hash->{items} = \@items;

И не работает :) Смысл в том, что нужно из формы получить номера (без f), и по ним сделать выборку.


Ответы (0 шт):