+ -
当前位置:首页 → 问答吧 → perl 子程序参数传替请教

perl 子程序参数传替请教

时间:2010-07-30

来源:互联网

  1. my ( $id, $name,$str,$sta);

  2. sub Mysql_DBI {

  3. my ($sql,$sta)=@_;

  4. my $sqr = $dbh->prepare("$sql");

  5. $sqr->execute();

  6. $sqr->bind_columns( undef, \$id, \$name);
  7. while ( $sqr->fetchrow_array ) {
  8. # print $id;
  9. #my $str;
  10. $str.=$sta;
  11. print "$str ##############";
  12. }

  13. }
  14. my $sql='SELECT id,name FROM user';
  15. $sta="<option value=\"$id\">$name</option>";
  16. &Mysql_DBI($sql,$sta);
复制代码


这个例子我可以把$sql变量传给子程序,为什么不能把 $sta传给之程序

作者: mitmax   发布时间: 2010-07-30

$name这有问题?换个常量试试?

作者: Mr-Summer   发布时间: 2010-07-30