请教一个判断@ARGV的问题

yashiro_lj

因为foreache在第一次执行时if就匹配成功了，接着会执行last，从而结束循环。如果你想要的是执行下一次循环，请使用next。

mister_qi

#!/usr/bin/perl -w

use strict;
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!\n";
}

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

我就照你这个写的，把""改成了``，再加了句chomp，可以的啊。

cxfcxf

to 版主
那个就是我的代码 最原始的是 start那边用的or 我改掉了 还有最下面用你说的@list做的 注释掉的就是测试用的

to yashiro_lj
对的 你说的很对
用last 第一个就打断了..我想问题是这里
但是用next 结果 如果你第一个进去的argv1 是b 第一个进去的list 是a的话 那么还是会有问题 但是其实已经匹配了



不过你提醒的很对 我做出来了...
#!/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";
}

my $switch = 0;
foreach (@list) {
    if ("/var/www/apps/$ARGV[1]" eq "$_") {
        $switch = 1;
        next;
    }
}

print "wrong dir\n" if ($switch == 0);

主要问题就是最后一个循环 不等于的时候不能去print.....而是做一个开关 然后 循环过后再去print 不然就是 成功 print3边 不成功print4边
非常感谢大家...

to ls...
那个代码有问题- -别用了.....这个不是chomp的问题啦/.

MMMIX

原帖由 cxfcxf 于 2009-7-30 11:31 发表
to 版主
那个就是我的代码 最原始的是 start那边用的or 我改掉了 还有最下面用你说的@list做的

我知道那你你的代码，可那不是你执行的代码。我需要的是你实际执行的代码，直接拷贝粘贴，一个字符都不要修改。

cxfcxf

原帖由 MMMIX 于 2009-7-30 11:37 发表

我知道那你你的代码，可那不是你执行的代码。我需要的是你实际执行的代码，直接拷贝粘贴，一个字符都不要修改。

#!/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) {
print "/var/www/apps/$ARGV[1]\n";
print "$_\n";
print "\n";
}

这个是我当时测试用的代码 执行效果就是

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


这个是你要得吗?


最早那个那个 就是第一贴

这个是测试时候用的

然后之后回你那贴 是测试完了 上来提问的....
一个字都不修改 准确的那个已经没了..因为我是一遍测试一遍修改的...用vi的perl - support...\\r....



不过你说的是没错 这2个是可以匹配的 问题是出在循环上.....

谢谢

MMMIX

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

这个是我当时测试用的代码 执行效果就是

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


这个是你要得吗?

不是，我本来是指望你把这两个输出语句放在 foreach 中的 if 之前的。

这个是测试时候用的

这个对我定位你的问题完全没有帮助，因为我还是不知道在出错的时候你到底执行了什么代码，以及它们在执行时关键变量的值到底是什么。

apile

my $switch = 0;
foreach (@list) {
    s/[\r\n\]//g;
    $ARGV[1]=~s/[\r\n]//g;
    if ("/var/www/apps/$ARGV[1]" eq "$_") {
        $switch = 1;
        last;
    }
}
die  "wrong dir\n" if ($switch == 0);

这样不是就好了.....
看不懂这还需要讨论什麽??

cxfcxf

to版主...
那个也测试过的 我一般测试 就是 从上一个语句那边开始print 然后出结果 在foreach和if之前的结果 argv1是一样的 就是输入的那个目录...

to楼上..
是的..13楼就好了...主要是我之前给出的测试 没表达清楚

谢谢各位

redicaps

原帖由 cxfcxf 于 2009-7-30 03:50 发表
谢谢版主
不好意思 那个是我打错了 本来用的是``
但是其实还是有问题

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

znm,脑子有毛病的人真多，评论了一下程序烂就被喷了

cxfcxf

原帖由 redicaps 于 2009-7-30 14:50 发表



znm,脑子有毛病的人真多，评论了一下程序烂就被喷了

程序烂不烂管你p事 你谁啊?你写个不烂的给我看看?
要么给意见 要么写代码 要么就别回我贴 累不累
第一次看你这么说话的