OpenForum RSS: perl+dbi, передача dbh в функцию

OpenForum RSS: perl+dbi, передача dbh в функцию https://opennet.me/openforum/vsluhforumID9/7197.html Вот такой вот тестовый код<br><br>#cat test.pl<br>use DBI;<br>use warnings;<br>use strict;<br><br>sub main {<br> my $dbh=DBI->connect("DBI:Pg:dbname=test","test", "test") or die $DBI::errstr;<br> &test($dbh);<br> $dbh->disconnect;<br>}<br><br>sub test {<br> my $dbh = @_;<br> my $sth = $dbh->prepare("select * from tests");<br> print $sth->dump_results;<br> $sth->finish;<br>}<br><br>приводит к ошибке: Can't call method "prepare" without a package or object reference at test.pl line 13.<br> perl+dbi, передача dbh в функцию (CombatPenguin) https://opennet.me/openforum/vsluhforumID9/7197.html#2 Wed, 20 Feb 2008 15:27:12 GMT >может надо так <br>><br>> my $dbh = $_[0]; <br>><br>>а то @_ массив вроде как ... <br><br>да вы правы :) спасибо<br><br>p.s. в листинге забыл $sth->execute в функции и &main; в конце<br> perl+dbi, передача dbh в функцию (Slimm) https://opennet.me/openforum/vsluhforumID9/7197.html#1 Wed, 20 Feb 2008 15:24:19 GMT может надо так<br><br> my $dbh = $_[0]; <br><br>а то @_ массив вроде как ...<br><br><br>