perl数据库连接操作
来源:互联网 发布:淘宝外卖会员卡 编辑:程序博客网 时间:2024/05/16 06:58
#!/usr/bin/perl
use strict;
use warnings;
use DBI;
opendir (DIR,"dirpath/") ||die "can not open it";
my @connect = readdir(DIR);
closedir DIR;
my $dir_need;
foreach my $con (sort @connect){
if ($con =~ /-[0-9]{2}-[0-9]{2}_/){
$dir_need = $con;
}
}
my $database = "DBI:mysql:database";
my $username = "root";
my $password = "password";
my $mysql_dbh = DBI->connect($database,$username,$password )|| die "Database connection not made: $DBI::errstr";
my $count;
my @type = qw[stf utf merged];
for($count =0;$count<3;$count++)
{
open (PYTHON,"/dirpath/$dir_need/$type[$count]/python/index.html") || die "can not open it";
my @connect = <PYTHON>;
close PYTHON;
my $flag = 0;
my $data_hash ;
my $file_name ;
my @name_arr = qw[statements run excluded branches br_exec coverage];
my @key_name;
my $index = 0;
foreach my $eachline (@connect){
chomp $eachline;
if($eachline =~ /<td class='name left'><.*?>(.*?)<\//)
{
$flag = 1;
$file_name = $1;
push(@key_name,$1);
}
elsif($eachline =~ /<td>([0-9]+)<\/td>/ && $flag)
{
$data_hash->{$file_name}->{$name_arr[$index++]} = $1;
}
elsif($eachline =~ /<td class='right'>(.*)%<\/td>/ && $flag)
{
$data_hash->{$file_name}->{$name_arr[$index]} = $1;
$index = 0;
$flag = 0;
}
}
foreach my $key (@key_name)
{
my $sql ="insert into python_coverage (builds_time,framework,file,statements,run,excluded,branches,br_exec,coverage)
values (?,?,?,?,?,?,?,?,?)";
my $sth = $mysql_dbh->prepare($sql);
$sth->bind_param(1,$dir_need);
if($count == 2) {$sth->bind_param(2,"all"); }
else { $sth->bind_param(2,$type[$count]); }
$sth->bind_param(3,$key);
my $para_index = 4;
for($index =0;$index <6;$index++)
{
$sth->bind_param($para_index,$data_hash->{$key}->{$name_arr[$index]});
$para_index++;
}
$sth->execute();
}
}
use strict;
use warnings;
use DBI;
opendir (DIR,"dirpath/") ||die "can not open it";
my @connect = readdir(DIR);
closedir DIR;
my $dir_need;
foreach my $con (sort @connect){
if ($con =~ /-[0-9]{2}-[0-9]{2}_/){
$dir_need = $con;
}
}
my $database = "DBI:mysql:database";
my $username = "root";
my $password = "password";
my $mysql_dbh = DBI->connect($database,$username,$password )|| die "Database connection not made: $DBI::errstr";
my $count;
my @type = qw[stf utf merged];
for($count =0;$count<3;$count++)
{
open (PYTHON,"/dirpath/$dir_need/$type[$count]/python/index.html") || die "can not open it";
my @connect = <PYTHON>;
close PYTHON;
my $flag = 0;
my $data_hash ;
my $file_name ;
my @name_arr = qw[statements run excluded branches br_exec coverage];
my @key_name;
my $index = 0;
foreach my $eachline (@connect){
chomp $eachline;
if($eachline =~ /<td class='name left'><.*?>(.*?)<\//)
{
$flag = 1;
$file_name = $1;
push(@key_name,$1);
}
elsif($eachline =~ /<td>([0-9]+)<\/td>/ && $flag)
{
$data_hash->{$file_name}->{$name_arr[$index++]} = $1;
}
elsif($eachline =~ /<td class='right'>(.*)%<\/td>/ && $flag)
{
$data_hash->{$file_name}->{$name_arr[$index]} = $1;
$index = 0;
$flag = 0;
}
}
foreach my $key (@key_name)
{
my $sql ="insert into python_coverage (builds_time,framework,file,statements,run,excluded,branches,br_exec,coverage)
values (?,?,?,?,?,?,?,?,?)";
my $sth = $mysql_dbh->prepare($sql);
$sth->bind_param(1,$dir_need);
if($count == 2) {$sth->bind_param(2,"all"); }
else { $sth->bind_param(2,$type[$count]); }
$sth->bind_param(3,$key);
my $para_index = 4;
for($index =0;$index <6;$index++)
{
$sth->bind_param($para_index,$data_hash->{$key}->{$name_arr[$index]});
$para_index++;
}
$sth->execute();
}
}
- perl数据库连接操作
- 数据库连接操作
- 数据库连接操作
- 数据库连接操作
- Perl 操作xml
- Perl 操作Excel
- perl集合操作
- perl 文件,目录操作
- perl 基本操作
- Perl操作Mysql数据库
- Perl中的文件操作
- perl字串的操作
- Perl 时间操作函数
- perl位操作
- 文件操作函数[perl]
- 数字及操作 [perl]
- Perl chomp 操作
- perl 字符串操作
- 杭电1592
- spring+ibatis 批量提交数据
- myeclipse8.5中自带的struts2需要的jar包放在哪啊?
- 去除旋转图片时的锯齿
- CS服务器异步模式下如何建立安全连接OPENSSL之RSA篇
- perl数据库连接操作
- 关于ORACLE COMMIT操作的详解
- BOOST_TYPEOF和BOOST_AUTO
- Android获取手机通讯录调用系统短信功能
- python 爬飞机航班信息
- IT项目经理成长手记
- Tor源码文件分析 -- Connection
- Java类的生命周期
- Android VNC Server