ExtMail服务器社区 » Perl 语言编程 » 取得用户输入命令行参数

fengyong 发表于 2008-4-7 10:09

取得用户输入命令行参数

不懂用Getopt 所以自己写了一个程序处理用户输入，不管用户输入中带多少个空格都可以识别出来，只要不要把格式写错就行了。

usage:  getcmd.pl   command   --key=value  ........
[code]
#!/usr/bin/perl
#  
use strict;

my $cmdline;
foreach my $c (@ARGV){
                $cmdline.=$c;
}
print $cmdline,"\n";

my @list=split(/--/,$cmdline);
print "LIST[0]: $list[0]\n";
print "CMD:",shift @list,"\n";

foreach my $c (@list){
                if ($c =~/(\S+)=(\S+)/){
                                print "K=$1, V=$2\n";
                        }
}
[/code]

小雁塔 发表于 2008-11-12 15:07

不错 不错 继续

查看完整版本: 取得用户输入命令行参数