Perl脚本常用操作

Perl脚本实战

最新推荐文章于 2024-08-18 19:49:28 发布

原创

最新推荐文章于 2024-08-18 19:49:28 发布 · 1.6w 阅读

82 ·

CC 4.0 BY-SA版权

文章标签：

#perl #脚本

一、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";
	        }