perl GetOptions

在Perl中，你可以使用标准模块Getopt::Long来解析命令行选项（Command Line Options）。Getopt::Long模块允许你定义命令行选项以及它们的值，并且还可以处理各种类型的选项，如标志选项（flag options）和带有参数的选项。

以下是一个简单的示例，展示了如何在Perl中使用Getopt::Long模块来处理命令行选项：

#!/usr/bin/perl

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

my $input_file;
my $output_file;
my $verbose;

# 定义命令行选项以及它们的值
GetOptions(
    "input=s"   => \$input_file,   # 带有参数的选项，使用"s"表示字符串
    "output=s"  => \$output_file,  # 带有参数的选项，使用"s"表示字符串
    "verbose"   => \$verbose,      # 标志选项，没有参数
) or die "Error in command line arguments.\n";

# 检查选项是否正确解析
if ($verbose) {
    print "Verbose mode is enabled.\n";
}

if ($input_file) {
    print "Input file: $input_file\n";
}

if ($output_file) {
    print "Output file: $output_file\n";
}

假设以上脚本保存为script.pl。你可以通过在命令行中输入类似以下的命令来运行它：

perl script.pl --input input.txt --output output.txt --verbose

这个脚本将会解析命令行选项，并根据传递的参数输出结果。在上面的示例中，我们定义了三个选项：–input、–output 和 --verbose。其中，–input和–output是带有参数的选项，而–verbose是一个标志选项（没有参数，只需要出现与否来表示是否启用）。

Getopt::Long模块将在运行脚本时解析命令行参数，并将对应选项的值赋给我们定义的变量。注意，如果用户提供了无效的选项或选项值，Getopt::Long会返回0，此时我们使用or die语句来输出错误信息并终止脚本的执行。

总之，Getopt::Long模块为Perl脚本提供了一个方便且灵活的方式来处理命令行选项。