perl hecking once once 모든 가치는

Question

나는 기본적으로 네트워킹 녀석과 너무 잘 쓰는 스크립트입니다.

몇 가지 스크립트를 작성하면서 필자는 아래 요구 사항을 발견했습니다.

는 I 3 ","1 "의 일부 값을 갖는 해시 배열하거나"2 "내 요건 이외의 값이 모두 동일한 경우

"1 "("2 "가 될 수 또는 ") 그런 다음 한 번 명령문을 인쇄 한 다음 해당 루프에서 빠져 나올 것입니다.

"1"과 같은 값이 있으면 명령문이 인쇄됩니다.

예 : 모든 값이 비 때문에 언급 hash_array 예상 아니라 코드가 작동 위

No Evolution 

를 인쇄

my %hash_array1=(A=>2,B=>2,C=>2); 
my @array2=values (%hash_array1); 

foreach my $line (@array2) { 

    if ($line!=1) { 

     print BOLD GREEN "\rNo Evolution ",RESET; 

     last; 
    } 
    else { 
     print BOLD RED "Evolution \n",RESET; 
    } 
} 

"1",하지만 해시 아래 잘 작동하지

my %hash_array1=(A=>1,B=>2,C=>2); 

Evolution 

No Evolution 

이것은 내 예상대로 아닙니다. 한 번에 인쇄 할 때 "진화"와 "진화하지 않음"을 더 이상 인쇄해서는 안됩니다. (그러나 루프를 계속 반복해야합니다.)

더 많은 명확성이 필요하면 알려주십시오.

내가 제대로 귀하의 요구 사항을 읽고 있어요 경우, 당신은 당신이 공격하지 않는 한 전체 세트를 검토 할 필요 해요

Answer 1

나는 같은 것을 사용하는 것이 :

#!/usr/bin/perl 
my %hash_array1=(A=>1,B=>1,C=>2); 
my $values = join('', values(%hash_array1)); 

if ($values =~ /1/) { 
    print "at least one 1"; 
} else { 
    print "no 1"; 
} 

Answer 2

감사

마헤시에 "1"

은 기본적으로 다음을 수행해야 당신이 "1"히트 경우에만 상태를 유지하고 루프를 종료

my %hash_array1=(A=>2,B=>2,C=>2); 
my @array2=values (%hash_array1); 
my $state = 0; 

foreach my $line (@array2) 
{ 
    if ($line == 1) 
    { 
     $state = 1; 
     last; 
    } 
} 

if ($state == 1) 
{ 
    print BOLD RED "Evolution \n",RESET; 
} 
else 
{ 
    print BOLD GREEN "\rNo Evolution ",RESET; 
} 

Answer 3

my %hash_array1=(A=>2,B=>2,C=>2); 
if (grep $_ == 1, values %hash_array1) { 
    print BOLD RED "Evolution \n",RESET; 
} 
else { 
    print BOLD GREEN "\rNo Evolution ",RESET; 
} 

(일부 의견은 실행 시간을 말합니다. 성능 문제가 있음이 증명되지 않는 한 걱정할 필요가 없습니다.)