58问答库 > perl 里要求按回车确认的动作，如何通过程序检测输入的是回车? 有没有好的方法实现？

perl 里要求按回车确认的动作，如何通过程序检测输入的是回车? 有没有好的方法实现？

2025-05-18 18:01:36

推荐回答（2个）

回答（1）：

你那样写就可以了。

#!/usr/bin/perl

while()
{
print "Pls press [Eneter] once you done:";
if(length($_)==1 and chomp($_)){
print "Enter key pressed ... ";
last;
}else{
print "Enter key not pressed, pls double check and do it again ...";
}
}

if(length($_)==1 and chomp($_))这句还可以简化为if(length($_)==1)，因为控制台交互，只有回车键时候长度才等于1。

回答（2）：

我没太弄懂这个问题，听着有点像"鸡和蛋"的问题...

if (!$line){
print "Blank line is still a line, like /^\$/", "\n"
} else{
print "How'd you get here w/o ENTERING ???", "\n"
}