perl 采集数据写入数据库

最新推荐文章于 2021-01-21 06:26:42 发布

scan724

最新推荐文章于 2021-01-21 06:26:42 发布

阅读量1.2k

点赞数

CC 4.0 BY-SA版权

分类专栏： zj-脚本

本文链接：https://blog.youkuaiyun.com/zhaoyangjian724/article/details/46048787

zj-脚本专栏收录该内容

93 篇文章 ¥39.90 ¥99.00

订阅专栏

这是一个使用Perl脚本实现的日志监控程序，它读取Apache Tomcat的日志文件，查找特定的关键字（如'Exception'，'登录失败'等），统计出现次数，并将相关信息写入Oracle数据库的SYSTEM.ERR_INFO表中。当监控到异常关键字时，脚本还会捕获上下文信息，包括用户名，以便记录详细错误信息。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

<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_f

了解本专栏