Perl输入问题

stale

UID: 22658
帖子: 14
积分: 32
在线时间: 10 分钟

1^# stale 发表于 2008-02-16 08:18

Perl输入问题

请问一下，如果我想要一个格式为:
gs.pl "key word" --number 100

的输入(调用gs.pl,传入参数 key word，和switch 100).其中--number 100,我知道可以用Getopt：：Long来实现，但是"keyword"这部分，因为不要operand,只要operand value,应该通过Getopt中的哪个模块或函数来实现呢？(不要正则表达式)。

哪位高手可以帮忙讲解一下，谢谢了。

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

2^# churchmice 发表于 2008-02-16 15:21

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl
use strict;
use strict;
use warnings;
use Getopt::Long;
my $number;
print "\@ARGV -->@ARGV\n";
GetOptions("number=i" => \$number);
print "\@ARGV -->@ARGV\n";
my $keyword = shift;;
print "\@ARGV -->@ARGV\n";
print "\$number -->$number\n";
print "\$keyword --->$keyword\n";

Getopt::Long 只是处理@ARGV中跟GetOptions匹配的东西,其余的还是在@ARGV中
参见运行结果

QUOTE:

<lig@other-server:~/chinaunix>$ ./gs.pl "key word" --number 100
@ARGV -->key word --number 100
@ARGV -->key word
@ARGV -->
$number -->100
$keyword --->key word

stale

UID: 22658
帖子: 14
积分: 32
在线时间: 10 分钟

3^# stale 发表于 2008-02-16 15:51

学会了，谢谢churchmice 了！