perl增量分析日志

最新推荐文章于 2022-05-22 23:50:04 发布

scan724

最新推荐文章于 2022-05-22 23:50:04 发布

阅读量729

点赞数

分类专栏： zj-脚本

本文链接：https://blog.csdn.net/zhaoyangjian724/article/details/46309041

版权

zj-脚本专栏收录该内容

93 篇文章 30 订阅 ¥39.90 ¥99.00

订阅专栏

这个Perl脚本用于分析日志文件，特别是关注登录失败等警告信息。它首先读取先前记录的行数，然后更新记录数。如果发现新的日志条目，这些条目将被写入临时文件。接着，脚本查找特定的警告关键字，并从临时文件中提取相关信息，如用户名、错误消息和日期，最后将这些信息插入到数据库的错误信息表中。

摘要由CSDN通过智能技术生成

#!/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) or die "can't connect to database " ;
my $dir  = '/usr/local/apache-tomcat-7.0.55_8081/logs';
my $file = 'catalina.out';
my $SDATE = strftime("%Y-%m-%d",localtime());
my $XDATE = strftime("%Y%m%d%H%M%S",localtime());
$mon_file = "$dir/$file";
if (-f "tmp.out"){
open FILE,">tmp.out";
close FILE;}

open( A, "<", "count.txt" );
            while (<A>) {
            $count = $_;

了解本专栏