perl - `||` は 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;

}

score 13 · Accepted 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') { ...

または、大文字と小文字を区別しない正規表現の一致の可能性があります。

score 5 · Accepted 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";
}

score 3 · Accepted Answer

これ($ARRAY[2] ne "three") || ($ARRAY[2] ne "THREE")は||、or2 つの式の少なくとも 1 つが true の場合に true を返すことを意味します。最初のものをチェックし、それが真であれば、2 番目のものもチェックしません。$ARRAY[2]この場合、両方の文字列と等しくなることはできないため、とにかく全体が true になります。

まあ、それはCIの信念と同じです。何を達成したいですか？

score 2 · Accepted Answer

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

式$ARRAY[$i] ne "three"は常に true と評価されます。したがって、無限ループがあります。演算子には||短絡動作があるため、2 番目の式は評価されません。

score 1 · Accepted Answer

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

これはあらゆる場合に当てはまります。「3」ではないか、「3」ではないかのどちらかです。あなたがしたい&&。

perl - `||` は Perl でどのように機能しますか?

5 に答える 5

Related

Reference