在Perl中执行SQL文件

use DBI;
use DBD::mysql;

# 连接到MySQL数据库
my $dbh = DBI->connect("DBI:mysql:host=localhost;dbname=example", "username", "password");

# 创建一个游标对象
my $cursor = $dbh->prepare("SELECT * FROM example");

# 执行SQL语句
$cursor->execute();

# 打印所有数据
while (my $row = $cursor->fetchrow()) {
    print $row;
}

# 关闭游标和数据库连接
$cursor->close();
$dbh->disconnect();

perl -d:DBI -e "my $dbh = DBI->connect('DBI:mysql:host=localhost;dbname=example', 'username', 'password'); $dbh->do('SELECT * FROM example')"