есть SELECT и вывод из таблицы:

print"<form action='/cgi-bin/zapros.pl' method='post'>";
while (my @row = $sth1->fetchrow_array)
{
print"<input type='text' name='row' value='$row[0]">
print"<input type='text' name='row' value='$row[1]">
print"<input type='text' name='row' value='$row[2]">
print"<input type='text' name='row' value='$row[3]">
}
print</form>
=======
Теперь в zapros.pl надо делать INSERT в другую таблицу:
принимаю данные из формы:
my $cit = new CGI;
my @p=$cit->param('row');
потом:
$query1="insert into table2(field1,field2,field3,field4) values (?,?,?,?)";
$sth1=$dbh->prepare($query1);
$sth1->execute(@p);
========
Ругается, подскажите pls что я делаю неправельно, заранее благодарен

• Perl-Mysql,A, 15:23 , 27-Мрт-07
  • Perl-Mysql,freevict, 15:27 , 27-Мрт-07
    • Perl-Mysql,A, 18:08 , 27-Мрт-07
• Perl-Mysql,Jared, 21:31 , 01-Апр-07

а как ругается?
может в @p не правильное кол-во элементов?

>а как ругается?
>может в @p не правильное кол-во элементов?

меня интересует если я правельно делаю, а ругается :
execute falled:called with 56 bind variables when 7 are needen
  

>>а как ругается?
>>может в @p не правильное кол-во элементов?
>
>меня интересует если я правельно делаю, а ругается :
>execute falled:called with 56 bind variables when 7 are needen
>

если правильно делать, то не ругается :-)

# Добавочная строка:
use Data::Dumper;

my $cit = new CGI;
my @p=$cit->param('row');

$query1="insert into table2(field1,field2,field3,field4) values (?,?,?,?)";
$sth1=$dbh->prepare($query1);

# Добавочная строка:
print Dumper(\@p);
# Смотрим теперь, что у вас там в @p

# А вот это комментим:
# $sth1->execute(@p);

__END__
И учимся самосатоятельно дебажить свои программки и писать на форум, тока если совсем затык.