- バックアップ一覧
- 差分 を表示
- 現在との差分 を表示
- ソース を表示
- Perl-DBI/SELECTの結果からカラム名を取得 へ行く。
- 1 (2007-08-08 (水) 13:50:03)
SELECTの結果からカラム名を取得
$sth->{NAME}で取れる。
my $sql = 'select * from member';
my $sth = $dbh->prepare($sql);
$sth->execute();
my $col1 = $sth->{NAME}->[0];
my @colums = @{$sth->{NAME}};
print @colums;
参考
