perl 实现日志抓错功能

#!/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); 

>>阅读原文<<