请教一个判断@ARGV的问题

cxfcxf

#!/usr/bin/perl

use strict;
use warnings;
my @list = "ls /var/www/apps";

$ARGV[0] or die "usage:line.pl start|stop|restart dirs\n";
$ARGV[1] or die "no dir\n";


if ($ARGV[0] ne "start" or "stop" or "restart") {
    print "usage again!";
}

foreach (@list) {
    if ($ARGV[1] ne "$_") {
    print "wrong dir";
    }
}

这是代码
文件名是test.pl

apps下有 a b c d 4个空文件夹 用来做判断的

# ./line.pl restart a
usage again!
wrong dir

怎么对比 最后那个都是wrong dir
perl这么处理@ARGV后面那个第一和第二个参数的?分隔符貌似不是空格? 我估计是这个原因...我单打retsart 跳出正确信息...但是 只要多加一个参数@ARGV[1] 就出问题
然后下面一个foreach内的if出错..估计是没拿到那个参数 或者拿到错误参数 判断错误..请大牛指教...

MMMIX

原帖由 cxfcxf 于 2009-7-29 16:13 发表
#!/usr/bin/perl

use strict;
use warnings;
my @list = "ls /var/www/apps";

把最后一句的 "ls /var/www/apps" 换成 glob "/var/www/apps/*".

[ 本帖最后由 MMMIX 于 2009-7-29 16:30 编辑 ]

iceberg77

my @list = "ls /var/www/apps";   #只是把"ls /var/www/apps"这个字串赋给数组list

if ($ARGV[0] ne "start" or "stop" or "restart") {  #这个太想当然了。。。。

MMMIX

原帖由 iceberg77 于 2009-7-29 16:29 发表

if ($ARGV[0] ne "start" or "stop" or "restart") {  #这个太想当然了。。。。

合法的语句，虽然达不到楼主期望的效果。

redicaps

与@ARGV一毛钱关系都没有
完全是程序太烂

cxfcxf

谢谢版主
不好意思 那个是我打错了 本来用的是``
但是其实还是有问题

@list = glob "/var/www/apps/*";
foreach (@list) {
    if ("/var/www/apps/$ARGV[0]" ne "$_") {
         print "wrong dir";
         last;
}

这样出来 还是有问题 不管怎么都匹配不上
不知道哪里问题

那个strat or stop or restart 可以用正则解决....当时没想起来...


ps 楼上 你妈没教你说人话么 只会用"毛"?
我又没说肯定这个问题 你不会像人家那样回复 就不要回
我邻居已经养狗了 不要在cu上还来听动物叫 谢谢

[ 本帖最后由 cxfcxf 于 2009-7-30 06:20 编辑 ]

MMMIX

原帖由 cxfcxf 于 2009-7-30 03:50 发表
@list = glob "/var/www/apps/*";
foreach (@list) {
    if ("/var/www/apps/$ARGV[0]" ne "$_") {
         print "wrong dir";
         last;
}

这样出来 还是有问题 不管怎么都匹配不上
不知道哪里问题

这个你在 if 之前把 "/var/www/apps/$ARGV[0]" 和 "$_" 打印出来看看不就清楚了？

mister_qi

在foreach循环里，加一句
chomp($_);

./line.pl restart a
后面跟的两个参数是用空格分开的，你写的是对的

cxfcxf

原帖由 MMMIX 于 2009-7-30 09:27 发表

这个你在 if 之前把 "/var/www/apps/$ARGV[0]" 和 "$_" 打印出来看看不就清楚了？

打印过了才问的....一模一样...
development:~# ./line.pl start c
/var/www/apps/c
/var/www/apps/a

/var/www/apps/c
/var/www/apps/b

/var/www/apps/c
/var/www/apps/c

/var/www/apps/c
/var/www/apps/d

只答应 第一行是ARGV[1] 第二行是$_  然后循环...应该在第三次循环的时候 匹配..结果还是输出错误...

楼上的 使用了chomp($_); 没用

下面是全部代码

#!/usr/bin/perl use strict; use warnings; my @list = glob "/var/www/apps/*"; $ARGV[0] or die "usage:line.pl start|stop|restart dirs\n"; $ARGV[1] or die "no dir\n"; if ($ARGV[0] =~ /start|stop|restart/) { }else{     print "usage again!\n"; } foreach (@list) { #    chomp($_); #    print "/var/www/apps/$ARGV[1]\n"; #    print "$_\n"; #    print "\n";     if ("/var/www/apps/$ARGV[1]" ne "$_") {     print "wrong dir\n";     last;     } }

MMMIX

原帖由 cxfcxf 于 2009-7-30 10:35 发表

打印过了才问的....一模一样...
development:~# ./line.pl start c
/var/www/apps/c
/var/www/apps/a

把你执行过的代码原封不动的贴上来，而不要贴一个修改版