Perl 循环内没关闭文件句柄引发的问题

最新推荐文章于 2024-06-30 16:01:04 发布

scan724

最新推荐文章于 2024-06-30 16:01:04 发布

阅读量1.4k

点赞数

分类专栏： Perl 大骆驼

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

版权

Perl 大骆驼专栏收录该内容

72 篇文章 31 订阅 ¥39.90 ¥99.00

订阅专栏

这篇博客讨论了在Perl脚本中，由于循环内未正确关闭文件句柄导致的错误。作者通过分析一个监控日志的Perl脚本示例，指出在检查异常关键字时，未关闭文件句柄，这使得后续读取同一文件时出现问题。修复这个问题的方法是在每次读取文件后确保关闭文件句柄。

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

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

了解本专栏