使用 Perl 获取 MySQL 元数据,元数据是有关数据库中数据的信息,MySQL 中的元数据包含有关存储数据的表和列的信息。 受 SQL 语句影响的行数是元数据。 结果集中返回的行数和列数也属于元数据。
方法名称 | 描述 |
---|---|
column_info() |
提供有关列的信息 |
table_info() |
提供有关表的信息 |
primary_key_info() |
提供有关表中主键的信息 |
foreign_key_info() |
提供有关表中外键的信息 |
上表列出了四种用于检索元数据的 Perl DBI 方法。
#!/usr/bin/perl
use strict;
use DBI;
my dbh = DBI->connect( "dbi:mysql:dbname=mydb", "user12", "34klq*", { RaiseError => 1 },
) or dieDBI::errstr;
my sth =dbh->primary_key_info(undef, "mydb", "Cars");
my @ary = sth->fetchrow_array();
print join(" ", @ary), "\n";sth->finish();
$dbh->disconnect();
在第一个示例中,我们将在Cars
表中找到有关主键的信息。
my sth =dbh->primary_key_info(undef, "main", "Cars");
primary_key_info()
返回一个活动语句句柄,该句柄可用于获取有关构成表主键的列的信息。
my @ary = $sth->fetchrow_array();
从语句句柄,我们检索信息。
$ ./pk_info.pl
mydb Cars Id 1 PRIMARY
从输出中我们可以看到Cars
表中有一个主键。 主键是第一列,名为 Id。
接下来,我们将打印Cars
表中的所有行及其列名。
#!/usr/bin/perl
use strict;
use DBI;
my dbh = DBI->connect( "dbi:mysql:dbname=mydb", "user12", "34klq*", { RaiseError => 1 },
) or dieDBI::errstr;
my sth =dbh->prepare( "SELECT * FROM Cars LIMIT 8" );
sth->execute();
myheaders = sth->{NAME};
my (id, name,price) = @headers;
printf "%s %-10s %s\n",id, name,price;
my row;
while(row = sth->fetchrow_hashref()) {
printf "%2d %-10s %d\n",row->{Id}, row->{Name},row->{Price};
}
sth->finish();dbh->disconnect();
我们将Cars
表的内容打印到控制台。 现在,我们也包括列的名称。 记录与列名对齐。
my headers =sth->{NAME};
我们从语句对象获得列名。
my (id,name, price) = @headers;
printf "%s %-10s %s\n", id,name, $price;
列名将打印到控制台。 我们使用printf
功能应用某些格式。
my row;
while(row = sth->fetchrow_hashref()) {
printf "%2d %-10s %d\n",row->{Id}, row->{Name},row->{Price};
}
数据被检索,格式化并打印到终端。
$ ./column_names.pl
Id Name Price
1 Audi 52642
2 Mercedes 57127
3 Skoda 9000
4 Volvo 29000
5 Bentley 350000
6 Citroen 21000
7 Hummer 41400
8 Volkswagen 21601
column_names.pl
脚本的输出。
在与元数据有关的最后一个示例中,我们将列出test.db
数据库中的所有表。
#!/usr/bin/perl
use strict;
use DBI;
my dbh = DBI->connect( "dbi:mysql:dbname=mydb", "user12", "34klq*", { RaiseError => 1 },
) or dieDBI::errstr;
my @tables = dbh->tables();
foreach mytable ( @tables ) {
print "Table: table\n";
}dbh->disconnect();
该代码示例将当前数据库中的所有可用表打印到终端。
my @tables = $dbh->tables();
表名使用tables()
方法检索。
$ ./list_tables.pl
Table: `mydb`.`Cars`
Table: `mydb`.`Friends`
Table: `mydb`.`Images`
这些是我们系统上的表。