Perl 中的“||”如何工作？

Question

|| 在 Perl 中如何工作？我想实现c风格的||操作。

@ARRAY=qw(one two THREE four);

$i=0;

if(($ARRAY[2] ne "three")||($ARRAY[2] ne "THREE"))         #What's the problem with this
{
   print ":::::$ARRAY[2]::::::\n";
}


while(($ARRAY[$i] ne "three")||($ARRAY[$i] ne "THREE"))       #This goes to infinite loop

{

 print "->$ARRAY[$i]\n";
   $i=$i+1;

}

Answer 1

它的工作原理与您想象的完全一样。然而，你对你的情况有一个想法。每个值要么不是一个值，要么不是另一个值。

我相信您可能想要

if ($ARRAY[2] ne 'three' && $ARRAY[2] ne 'THREE') { ...

或者

if ($ARRAY[2] eq 'three' || $ARRAY[2] eq 'THREE') { ...

您可能还想要某种不区分大小写的比较方式，例如

if (lc $ARRAY[2] ne 'three') { ...

或可能是不区分大小写的正则表达式匹配。

Answer 2

两个一般要点。 (1) 您的 Perl 脚本应包含 use strict 和 use warnings。 (2) 在大多数情况下，您可以直接迭代数组，完全避免使用下标。一个例子：

use strict;
use warnings;

my @ARRAY = qw(one two THREE four);

for my $item (@ARRAY){
    last if lc $item eq 'three';
    print $item, "\n";
}

Answer 3

在 ($ARRAY[2] ne "三") || 中($ARRAY[2] ne "THREE") || 是一个逻辑 or，这意味着如果两个表达式中至少有一个则返回 true是真的。好吧，它会检查第一个，如果它是真的，它甚至不会检查第二个。在这种情况下，无论如何，整体都是 true，因为 $ARRAY[2] 不能等于两个字符串。

嗯，就像 CI 相信的那样。您想实现什么目标？

Answer 4

while(($ARRAY[$i] ne "third")||($ARRAY[$i] ne "THREE")) ：

表达式 $ARRAY[$i] ne "三” 始终评估为 true。因此你有一个无限循环。 || 运算符具有短路行为，因此永远不会计算第二个表达式。

Answer 5

 ($ARRAY[$i] ne "three") || ($ARRAY[$i] ne "THREE")) 

在任何情况下都是如此。要么不是“三”，要么不是“三”。您需要 &&。