use DBI;
$user="root";
$password="";
$database="a1121134327"; #数据库
my $dbh = DBI->connect("DBI:mysql:$database;host=localhost", $user, $password) or die "无法连接数据库: " . DBI->errstr;
$dbh->do("SET NAMES 'gbk'");#执行查询语句
$glob="f:\\cardinfo\\*.txt";
@files=glob($glob);#返回所有TXT文件
foreach (@files) {
print "$_\n";
if (-s $_) {/#判断文件存在并且大小不为0
}
}
Perl连接Mysql
最新推荐文章于 2022-10-25 13:03:48 发布