Perl, ne 연산자가 작동하지 않습니다.

Question

내 ne 연산자가 아래 if 문에서 작동하지 않는 이유를 알려주실 수 있습니까? 작동하지만 프로그램을 저장 한 후에 작동이 멈췄습니다. 어떤 도움이라도 대단히 감사하겠습니다.

$inFile = "animals.txt"; 
open (IN, $inFile) or 
die "Can't find file: $inFile"; 

@animallist = (<IN>); 

foreach $line (@animallist) 
{ 
    if ($line =~ $search) 
    { 
    print "$line <br> <br>";  
    } 
} 
if ($line ne $search) 
{ 
    print "$search isn't in the animal list"; 
} 

print end_html; 

Answer 1

들여 쓰기를 사용하면 부적절한 장소에서 블록이 끝나는 것을 볼 수 있습니다.

($ line ne $ search)가 파일에서 $ line을 채우고 처리하는 foreach 루프 내에 있지 않은 경우에도 마찬가지입니다. 나는 적어도 당신이 찾고 있다고 생각하는 기능을 얻으려면 블록 안에 넣는 것이 좋습니다.

Answer 2

프로그램에서하는 일에 대해 혼란스러워 보였습니다.

$inFile = "animals.txt"; 
open (IN, $inFile) or die "Can't find file: $inFile"; 
@animallist = (<IN>); 

# here you define a file name, open a file, and read all of the lines 
# in the file into the array @animallist 

foreach $line (@animallist) { 
# here you iterate over all the lines, putting each line into $line 
    if ($line =~ $search) { 
    print "$line <br> <br>";  
    } 
# here you perform the regex match: $line =~ /$search/ and if it 
# succeeds, print $line 
} 
# here you end the loop 

if ($line ne $search) { 
    print "$search isn't in the animal list"; 
} 
# here you take the now uninitialized variable $line and try to match 
# it against the as of yet undefined variable $search 
# If both of these variables are undefined, and you are not using warnings 
# it will simply return false (because "" ne "" is false) 
# without warning about undefined variables in ne 

당신은 당신의 전체 라인이 경우에도, 예를 들어, cat, 당신은 여전히 ​​파일에서 읽을 때, 그것은 뒤에 줄 바꿈을 가지고 있기 때문에, 문자열 cat에 ne를 사용하여 비교할 수 없다는 것을 알고 있어야합니다, 그래서 그것은 정말로 cat\n입니다. 너 chomp이 아니라면.

은으로 보이지만 파일을 읽은 후 파일에 $search이 포함되어 있는지 확인할 수는 없습니다. 파일을 읽는 동안 그렇게해야합니다.

Answer 3

$search에 무엇이 포함되어 있는지 모르기 때문에 어떤 일이 일어날 지 알기가 어렵습니다. 파일에있는 동물의 이름이라고 가정 해 봅시다.

당신은 당신의 코드를 실행

, $search이 포함 ( $line은 당신의 foreach 루프 내에서 데이터를 포함로) 말, "개구리"와 $line는 undef이 포함되어 있습니다. 이러한 값은 같지 않으므로 ne이 true를 반환하고 메시지가 인쇄됩니다.

if 문을 foreach 블록으로 옮기려면 $line 값이 있어야합니다. 그러나 여전히 줄 바꿈 문자가 첨부 된 파일에서 줄을 읽으면서 일치하지 않습니다. 그리고 "개구리"는 "개구리 \ n"과 같지 않습니다. $line에서 개행을 제거하려면 chomp()을 사용해야합니다.

이것은 another recent question과 매우 유사합니다. 같은 숙제를하고 있니?

Answer 4

나는 여러 지점이 여기에 있다고 생각 :는 $ 라인은 선언 된 foreach는의 범위를 벗어나있는 경우 ($ 라인 북동 $ 검색)에 대한

• 당신은 아니기 때문에 strict를 사용하면 오류가 발생하지 않으며이 조건이 항상 true이어야합니다.

• $ 행에 개행 문자가 있다고 가정하고이 $ 행을 $ search와 비교하면 문자열이 같지 않아도 조건이 참일 수 있습니다.

이 $ 라인 = "사자 \ 없음"과 $ = "사자"다음 ($ 라인 = ~ $ 검색) 경우 어떻게하면

, 조건이 될 것이다는 사실 검색하기 때문에 가정 "사자"는 "사자 \ n"문자열의 일부입니다.즉, if ($ line eq $ search)가 거짓 이고 if ($ line ne $ search)가 맞다고 가정 할 때 귀하의 경우입니다.

chomp ($ line) 함수를 사용하여 문자열 끝에서 줄 바꿈을 제거 할 수 있습니다.

이 정보가 도움이되기를 바랍니다.