当使用以下命令调用 perl 脚本时:
myPerlScript --myarg 10 --my2Darg 42x87
.
我如何做作业:
$myarg = 10;
$my2Darg_x = 42;
$my2Darg_y = 87;
当且仅当myarg
且my2Darg
是有效参数?
我想我需要这样的东西:
#!/usr/bin/perl
foreach (@ARGV) {
if ($_ eq '--myarg') {
$myarg =
}
elsif ($_ eq '--my2Darg') {
$my2Darg_x =
$my2Darg_y =
}
else {
print "Not valid argument!!";
}
}
如您所见,此代码不完整。请。帮助。
有没有一种简短的写法if($_ eq 'text')
(是if('text')
有效的 Perl 吗?)?