v-lhb-db01:/root/perl# cat 1.log
1111
2222
3333
4444
5555
异常111
a1
a2
a3
a4
a5
java.lang.NullPointerException]
1
2
3
4
java.lang.NullPointerException
5
6
7
8
--------------------------------------------
#!/usr/bin/perl
use POSIX;
my $dir = '/root/perl';
my $file = '1.log';
$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_file\n";
print "\######监控服务器&#x
Perl 循环内没关闭文件句柄引发的问题
最新推荐文章于 2024-06-30 16:01:04 发布
这篇博客讨论了在Perl脚本中,由于循环内未正确关闭文件句柄导致的错误。作者通过分析一个监控日志的Perl脚本示例,指出在检查异常关键字时,未关闭文件句柄,这使得后续读取同一文件时出现问题。修复这个问题的方法是在每次读取文件后确保关闭文件句柄。
摘要由CSDN通过智能技术生成