perl - 如何使用 Getopt::Long 方法？

Question

如何使用 Getopt::Long方法如果输入命令执行是这样的:

$ testcmd -option check  ARG1 ARG2 ARG3

或

$ testcmd  ARG1 ARG2 ARG3

Answer 1

一个简单的例子:

#! /usr/bin/perl

use warnings;
use strict;

use Getopt::Long;

sub usage { "Usage: $0 [--option=VALUE] ARG1 ARG2 ARG3\n" }

my $option = "default";

GetOptions("option=s", \$option)
  or die usage;

die usage unless @ARGV == 3;

print "$0: option=$option: @ARGV\n";

Getopt::Long 在接受什么方面非常灵活:

$ ./cmdUsage: ./cmd [--option=VALUE] ARG1 ARG2 ARG3$ ./cmd 1 2 3./cmd: option=default: 1 2 3$ ./cmd --option=foo 4 5 6./cmd: option=foo: 4 5 6$ ./cmd -option=bar 7 8 9./cmd: option=bar: 7 8 9$ ./cmd -option check a b c./cmd: option=check: a b c