perl - 什么是文本阅读的好方法？

Question

在我的 sms-script 中，我读入了用这个子程序发送的文本:

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...    

}