<pre name="code" class="sql">#!/usr/bin/perl
use POSIX;
use CGI;
use DBI;
my $dbName = 'oadb';
my $dbUser = 'system';
my $dbUserPass = 'a2xxxxxmvh';
my $dbh = DBI->connect("dbi:Oracle:$dbName", $dbUser, $dbUserPass) or die "can't connect to database " ;
my $dir = '/usr/local/apache-tomcat-7.0.55_8081/logs';
my $file = 'catalina.out';
my $tom_home='/usr/local/apache-tomcat-7.0.55_8081/webapps/mon';
$mon_file = "$dir/$file";
$IPMACHINE = "MBANKtest1";
$RTXNO="04657";
my $SDATE = strftime("%Y%m%d%H%M%S",localtime());
$UPLOADPATH = "/data/swap/mbanklog/$IPMACHINE-$SDATE$file";
print "\########################################################################################################################\n";
print "\######监控日志文件: $mon_fi
#!/usr/bin/perl use POSIX;use CGI;use DBI; my $dbName = 'oadb'; my $dbUser = 'system'; my $dbUserPass = 'a2p13mvh'; my $dbh = DBI->connect("dbi:Oracle:$dbName", $dbUser, $dbUserPass) or die