不懂用Getopt 所以自己写了一个程序处理用户输入,不管用户输入中带多少个空格都可以识别出来,只要不要把格式写错就行了。
usage: getcmd.pl command --key=value ........
复制内容到剪贴板
代码:
#!/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";
}
}