我不认为有必要直接从GetOptions调用调用子例程。像这样控制顺序：

use strict;
use warnings;
use Getopt::Long;

my %opts = (config => '');

GetOptions(\%opts, qw(
   config|c=s
   add|a
   del|d
));

add_server() if $opts{add};
del_server() if $opts{del};

sub add_server {    
    print "$opts{config}\n";
}

sub del_server {}

字符串

把这个例子稍微简化一下...

use strict;
use warnings;
use Getopt::Long;

my $config_file = '';

GetOptions (

    'config|c=s' => \$config_file,
    'add|a' => sub{add_server($config_file);}
);

sub add_server
{

    my $config=shift;

    if(defined($config))
    {
        print "Got this for a config file: $config\n";
    }
    else
    {
        print "No argument supplied to add_server\n";
    }

}

字符串
运行config.pl -c blurg -a返回输出Got this for a config file: blurg，运行config.pl -a -c blurg返回Got this for a config file:。
所以，我怀疑正在发生的是，选项是按照给出的顺序分配的。因此，在第一种情况下，$config_file被分配给-c参数，然后调用add_server子例程（使用正确的参数），而在第二种情况下，add_server立即被无参数地触发，然后分配$config_file。
除此之外，我建议将-a设置为布尔值，如果启用了它（并且提供了-c的参数），则可以执行任何您想执行的操作。

回调在遇到选项时被调用，因此在遇到-c之前调用add_server

./config.pl -a -c config.xml

字符串
根据最新信息，您现在需要：

use Getopt::Long qw( GetOptions );

GetOptions(
   'a=s' => \my $opt_a,
   'd=s' => \my $opt_d,
   'h=s' => \my $opt_h,
   'p=s' => \my $opt_p,
) or usage();

型

在Getopt：：Long上启用pass_through选项，以便它将忽略未知选项，然后为您的选项调用GetOptions一次，再次禁用它，然后再次为您的命令使用GetOptions。

GetOptions(
        'arg=s' => sub { print "$_[1]\n"; },
);

字符串