Perl脚本常用操作

最新推荐文章于 2025-06-11 15:35:21 发布

八十万禁军教头_

最新推荐文章于 2025-06-11 15:35:21 发布

阅读量1.6w

点赞数 7

CC 4.0 BY-SA版权

分类专栏： Perl 文章标签： perl 脚本

本文链接：https://blog.youkuaiyun.com/tsummerb/article/details/77050034

一、Perl脚本连接数据库

#! /usr/bin/perl
use URI::Escape;
use POSIX qw(strftime);
use DBI;
require "public.pl";
#$file=$ARGV[0];              #获取第一个输入数据
my $source_file = "read.log"; #读取文件
my $dest_file = "write.txt";  #写入文件
my $db = DBI->connect("DBI:mysql:database=mysql;host=127.0.0.1", "root", "", {'RaiseError' => 1});
open (FILE,"<$source_file") or die "Cannot open file $!\n";
open (SORTED,">$dest_file") or die "Cannot open file $!\n";
while(defined (my $line = <FILE>))
{
        chomp($line);         #读取行
        #@arr=split(/\s/,$line);
        #$app=$arr[0];
        #$tel=$arr[1];
        $log="log201706";
        $sql="select pid from $log.table where ... limit 1";
        print $sql."\n";
	my $rs = $db -> prepare($sql);
        $rs -> execute;
        if($rs->rows ne "0"){    
	        while(my $tmpRow = $rs->fetchrow_hashref()){
		   $p=$tmpRow->{'pid'};
		   print SORTED "$line\t$p\n";
	        }