本文介绍了一个使用Perl编写的简单脚本，该脚本用于读取指定的日志文件（默认为“/var/log/messages”），并查找包含“error”关键字的行。通过这个实用工具，用户可以快速定位到系统日志中的错误信息。
#!/usr/bin/perl
$logfile="/var/log/messages";
open(LOG,$logfile) or die "Unable to open logfile:$!/n";
while(<LOG>){
print if //berror/b/i;
}
close(LOG);
$logfile="/var/log/messages";
open(LOG,$logfile) or die "Unable to open logfile:$!/n";
while(<LOG>){
print if //berror/b/i;
}
close(LOG);
扫一扫
761
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
