Getopt::Std模块

ljlyun

UID: 35302
帖子: 60
积分: 138
在线时间: 5 小时

1^# ljlyun 发表于 2006-04-04 14:24

Getopt::Std模块

Getopt::Std模块
我想通过Getopt::Std模块，在命令行下读取一些parameter，但是似乎遇到aaa cc dd这样的parameter，只能读到aaa，有什么办法解决吗？

fkiori

UID: 16132
帖子: 1
积分: 2
在线时间: 10 分钟

2^# fkiori 发表于 2006-04-04 15:35

看 Getopt::Std 的文档，一定可以解决的

ljlyun

UID: 35302
帖子: 60
积分: 138
在线时间: 5 小时

3^# ljlyun 发表于 2006-04-04 16:07

。。。。。。。。。。.

junier

UID: 15085
帖子: 1
积分: 2
在线时间: 10 分钟

4^# junier 发表于 2006-08-14 13:05

很容易啊，直接把你要的parameter放在双引号里面就ｏｋ了
例如：
use Getopt::Std;

my %opts;
getopts('hd:', \%opts);

print "\$opt_h =>; $opts{'h'}\n" if $opts{'h'};
print "\$opt_d =>; $opts{'d'}\n" if $opts{'d'};

然后在命令行中运行：
perl file.pl -d “aaa cc dd”
看看你的输出结果吧：）

jayma

UID: 11468
帖子: 37
积分: 85
在线时间: 2 小时

5^# jayma 发表于 2006-08-14 18:50

[quote]回复给 fkiori : 看 Getopt::Std 的文档，?...[/quote]

哪里有文档看？

lyz857

UID: 29237
帖子: 8
积分: 18
在线时间: 10 分钟

6^# lyz857 发表于 2006-08-14 21:10

[quote]回复给 jayma : [q.
[quote]回复给 jayma : [quote]回复给 fkiori : ?...[/quote]
去cpan上查看吧
http://search.cpan.org/~nwclark/perl-5.8.8/lib/Getopt/Std.pm

cnhacktnt

UID: 40772
帖子: 111
积分: 255
在线时间: 17 小时

7^# cnhacktnt 发表于 2006-08-15 12:06

在你的命令控制台下:[quot.
在你的命令控制台下:[quote]perldoc Getopt::Std[/quote]
即可

alucard

UID: 46526
帖子: 20
积分: 46
在线时间: 10 分钟

8^# alucard 发表于 2006-08-16 23:41

搭车问下----command..
搭车问下

command.pl -p 'abc:fff:123:345'

输入这个之后，我用
foreach($options{p})
{
@account = split(/:/, $_);
$username = $account[0];
}
如何去掉第一个'单引号？不要读进$username里

jackycheng

UID: 28750
帖子: 152
积分: 349
在线时间: 1 天 7 小时

9^# jackycheng 发表于 2006-08-17 20:31

没测试，凑活玩吧。--$o.
没测试，凑活玩吧。
$options{p}=~s/\B'//;

alucard

UID: 46526
帖子: 20
积分: 46
在线时间: 10 分钟

10^# alucard 发表于 2006-08-17 23:29

刚才试了下，似乎自动不读.
刚才试了下，似乎自动不读取'这个字符