如何使用GetOptions实用程序来处理Perl中的"可选"命令行参数？

cpan install Getopt::Long

#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Long;

# 定义可选参数
my $verbose;
my $help;

# 解析命令行参数
GetOptions(
    'verbose' => \$verbose,
    'help'    => \$help,
);

# 处理帮助参数
if ($help) {
    print "Usage: example.pl [--verbose] [--help]\n";
    exit;
}

# 处理verbose参数
if ($verbose) {
    print "Running in verbose mode...\n";
}

# 主要功能代码
print "Hello, world!\n";

perl example.pl --verbose