在Perl数组中保存命令行选项的多个值

use Getopt::Long;

my @options;  # 用于保存命令行选项的数组

GetOptions(\@options, 'option1=s', 'option2=i', 'option3');  # 解析命令行选项

# option1为字符串类型，option2为整数类型，option3为布尔类型

# 在命令行中使用时，可以通过"-option1 value1 -option2 value2 -option3"的方式传递选项和参数

# 例如：perl script.pl -option1 foo -option2 42 -option3

# 解析后，@options数组中将保存相应的值

# 访问选项的值
my $value1 = $options[0];  # option1的值
my $value2 = $options[1];  # option2的值
my $value3 = $options[2];  # option3的值

# 输出选项的值
print "option1: $value1\n";
print "option2: $value2\n";
print "option3: $value3\n";