我应该在Perl中使用嵌套的子例程吗?

• 我有5个Perl文件,它们是我环境中5种不同状态的验证脚本。

  它们每个至少有一对子程序。

• 到目前为止,各州的数量限制在5个,而且这些州运作良好。但是现在,根据当前的设计,我有20多个环境状态,因此还有20多个Perl脚本。

• 我想将这五个脚本全部移动到一个脚本中,该脚本将状态作为参数,并为5个不同的状态提供5个不同的子例程。

  这样,当我需要为另一个状态添加一个验证时,我只需要定义一个新的子程序,而不是一个全新的Perl脚本。

• 问题是它将意味着使用嵌套的子例程 known to run into issues 或者展开子例程本身。

例如,

原始脚本

$ cat verify1.pl
sub a1 {
    ...
}
sub b1 {
    ...
}
a1(); b1(); a1();
$ cat verify2.pl
sub a2 {
    ...
}
sub b2 {
    ...
}
sub c2 {
    ...
}
a2(); b2(); c2(); a2();
$

合并脚本

$ cat verify.pl
sub one {
    ...
}
sub two {
    ...
}
my ($arg) = @ARGV;
if ($arg == 1) {
    one();  # should do what verify1.pl did
}
elsif ($arg == 2) {
    two();  # should do what verify2.pl did
}
$

我该怎么做才能解决这个问题?