我将尝试将表名传递给一个子程序,该子程序获取该表的所有字段名并将它们存储到数组中,然后与另一个SQL查询的fetchrow结合使用,在这些字段中显示数据。以下是我现在拥有的代码:
Shamoo订阅:
我正在寻找一种方法,将这个转化为不必明确定义的东西...
将表名作为参数进行子调用的示例:
shamoo("reqhead_rec");
shamoo("approv_rec");
shamoo("denial_rec");
Shamoo订阅:
sub shamoo
{
my $table = shift;
print uc($table)."\n=====================================\n";
#takes arg (table name) and stores all the field names into an array
$STMT = <<EOF;
select first 1 * from $table
EOF
my $sth = $db1->prepare($STMT);$sth->execute;
my ($i, @field);
my $columns = $sth->{NAME_lc};
while (my $row = $sth->fetch){for $i (0 .. $#$row){$field[$i] = $columns->[$i];}}
$STMT = <<EOF;
select * from $table where frm = '$frm' and req_no = $req_no
EOF
$sth = $db1->prepare($STMT);$sth->execute;
$i=0;
while ($i!=scalar(@field))
{
#need code for in here...
}
}
我正在寻找一种方法,将这个转化为不必明确定义的东西...
my ($frm, $req_no, $auth_id, $alt_auth_id, $id_acct, $seq_no, $id, $appr_stat, $add_date, $approve_date, $approve_time, $prim);
while(($frm, $req_no, $auth_id, $alt_auth_id, $id_acct, $seq_no, $id, $appr_stat, $add_date, $approve_date, $approve_time, $prim) = $sth->fetchrow_array())