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), и по ним сделать выборку.