这是我第一次尝试 Perl，所以我知道这段代码很难看。其中一些来自不知道我在做什么，一些来自解决各种问题。我想要做的是搜索文件（samplefile.txt）以获取各种信息（9 个 parse_updates 函数），除非顺序发生变化，否则它可以正常工作。例如，如果一个样本文件在僵尸网络定义之前有证书包，那么它将无法找到证书包信息。我希望每个函数都开始搜索“新鲜”的示例文件，但情况似乎并非如此，我不知道为什么。不包括示例文件，因为代码帖子已经足够长，我认为问题出在我的函数逻辑中。
use strict;
use warnings;
use diagnostics;
use File::Slurp;
my @autoupdate;
my $autoupdate;
my $av_regex;
my @av_updates;
my $avdev_regex;
my @avdef_updates;
my $ipsatt_regex;
my @ipsatt_updates;
my $attdef_regex;
my @attdef_updates;
my $ipsmal_regex;
my @ipsmal_updates;
my $flowav_regex;
my @flowav_updates;
my $botnet_regex;
my @botnet_updates;
my $appdef_regex;
my @appdef_updates;
my $ipgeo_regex;
my @ipgeo_updates;
my $certbun_regex;
my @certbun_updates;
my $str1;
my $str2;
my $str3;
my $str4;
my $str5;
my $str6;
my $str7;
my $str8;
my $str9;
parse_updates1(); #AV Engine
parse_updates2(); #Virus …