用Term::Readline::readline停止无限循环的正确方法是什么?
这样我就无法阅读0
#!/usr/bin/env perl
use warnings;
use strict;
use 5.010;
use Term::ReadLine;
my $term = Term::ReadLine->new( 'Text' );
my $content;
while ( 1 ) {
my $con = $term->readline( 'input: ' );
last if not $con;
$content .= "$con\n";
}
say $content;
与
last if not defined $con;
循环永远不会结束。