perl - 在询问 时建议一个值

Question

我希望用户只需按 enter 键，perl 脚本就可以继续。示例:

# in the line below the 'y' should be given as a suggestion, 
# thus only pressing "enter" to continue.

print "Are you over 18? (y/n): "; 
chomp(my $allow = <STDIN>);

Answer 1

print "Are you over 18? (Y/n): "; 
chomp(my $allow = <STDIN>);
$allow ||= "y";

if (lc($allow) ne "y") {
  die "you're not allowed\n";
}