빈 줄을 입력하면 펄이 while 루프를 종료하지 않습니다.

Question

숫자 목록의 합계, 최대 값 및 최소값을 인쇄하려고하는데 작동하지 않으려 고합니다.

나는 종료해야 루프를 입력 누르면하지만 이를 입력 감지 할 경우, 프로그램은 이전하지 chomp 입력 할 수있는,

use strict; 
use warnings; 

my @items; 
my ($sum, $max, $min); 

while (chomp(my $num = <STDIN>)) { 
    last if ($num eq '\n'); 

    $max ||= $num; 
    $min ||= $num; 
    $sum += $num; 

    $max = $num if ($num > $max); 
    $min = $num if ($num < $min); 

    push(@items, $num); 
} 

printf("Entered numbers are: %s \n", join(', ', @items)); 
print("Sum of all numbers is : ", $sum); 
print "\n"; 
print("Minimum number is : ", $min); 
print "\n"; 
print("Maximum number is : ", $max) 

Answer 1

• 당신이

  while (chomp(my $num = <STDIN>)) { ... } 
  

  같은 while 조건 내에서 chomp를 사용할 수없는 경우 파일의 끝 부분에있는 <> 반환 undef. 이 입력이 정규 표현식 /\S/

• 를 사용하여 비 공백 문자가 포함되어 있는지 여부를 확인하는 것 같은 당신은 루프를 종료 루프

• 의 첫 번째 문으로 간단한 방법을 chomp를 삽입해야합니다 확인

  last if ($num eq '\n') 
  

  chomp을 입력하여 개행을 제거 했으므로 작동하지 않습니다. 또한 작은 따옴표를 사용하는 경우 '\n'은 \의 두 자로 된 문자열 다음에 n이옵니다. 스칼라 변수가 처음이 값 undef을 가지고 선언 할 때 당신은 줄 바꿈

• 을 만들 "\n"처럼 따옴표가 필요합니다, 그래서 당신은 이전 값이 이미하지 않는 $min 및 $max을 이것에 대한 테스트 및 업데이트하여 모든 서투른 초기화를 방지 할 수 있습니다 새 값보다 정의되고 높은 (또는 낮은)

이렇게 프로그램을 다시 작성합니다.

use strict; 
use warnings; 

my @items; 
my ($sum, $max, $min); 

while (my $num = <STDIN>) { 
    chomp $num; 
    last unless $num =~ /\S/; 

    $max = $num unless defined $max and $max >= $num; 
    $min = $num unless defined $min and $min <= $num; 
    $sum += $num; 
    push @items, $num; 
} 

print 'Entered numbers are: ', join(', ', @items), "\n"; 
print "Sum of all numbers is: $sum\n"; 
print "Minimum number is: $min\n"; 
print "Maximum number is: $max\n"; 

Answer 2

실행 유지합니다. 또한 '\n'은 입력되지 않으므로 특수 문자를 사용하려면 큰 따옴표 "\n"을 사용해야합니다.

루프는 보통 Ctrl + D으로 끝납니다.

또한 작업을 수행 할 모듈을 찾을 수 있습니다. while 루프가 종료 할 필요가 있기 때문에

#!/usr/bin/perl 
use warnings; 
use strict; 

use List::Util qw{ max min sum }; 

my @items = <>; 
chomp @items; 
my $max = max(@items); 
my $min = min(@items); 
my $sum = sum(@items); 

print "Entered numbers are: @items\n"; 
print "Sum of all numbers is: $sum\n"; 
print "Minimum number is: $min\n"; 
print "Maximum number is: $max";