perl增量分析日志

#!/usr/bin/perl #取文件行数 ##循环开始清空文件 use POSIX; use CGI; use DBI; my $dbName = 'oadb'; my $dbUser = 'query'; my $dbUserPass = 'query'; my $dbh = DBI->connect("dbi:Oracle:$dbName", $dbUser, $dbUserPass) o

>>阅读原文<<