텍스트를 읽는 좋은 방법은 무엇입니까? 내 SMS 스크립트에서

Question

나는이 서브 루틴과 함께 보낼 수있는 텍스트로 읽어

my $input = input("Enter the input: "); 

sub input { 
    my $arg = shift; 
    print $arg if $arg; 
    print "\n "; 
    chomp(my $in = <>); 
    return $in; 
} 

이 방법 난 단지 내가 오류에 도달 할 때까지 모든 취소를 통해 오류를 수정하고이 마지막 줄 수 있습니다. 본문을 더 잘 읽을 수있는 방법이 있습니까?

Answer 1

이 입력 읽을 수있는 "일반적인"방법 :

use strict; 
use warnings; 

# ... 

while (my $input = <>) 
{ 
    chomp $input; 
    handle_error($input), next unless validate($input); 

    # do something else with $input...  

} 

Answer 2

input 서브 루틴 내에서 while 루프를 사용할 수 있습니다.

my $is_valid = 0; 
my $input; 

while (!$is_valid) { 
    print "Enter something: "; 
    $input = <>; 
    $is_valid = validate_input($input); 
}