[ 已解决 ] 求助，perl如何键盘单字符输入就执行？

zzz19760225

1. 
   
2. $| = 1;
   
3. a0:
   
4. print ":";
   
5. $a1 = <>;
   
6. chomp $a1;
   
7. print $a1;
   
8. print "\n";
   
9. goto a0;
   
10. 输入+回车显
    
11. :123
    
12. 123
    
13. :
    

复制代码

输入需要加回车，才能执行。
请问怎么输入就能执行，如choice单字符，就执行后续命令。（可设置为单1，2，3，4，5多字符，约定定量输入就执行，也可以）
谢谢大佬们！
-----------------------------我是分割线--------------------------------

1. 
   
2. use strict;
   
3. use warnings;
   
4. use Term::ReadKey;
   
5. 
   
6. # 设置原始输入模式
   
7. ReadMode('cbreak');
   
8. 
   
9. print "请输入字符（按q退出）：\n";
   
10. 
    
11. while (1) {
    
12.     # 非阻塞读取输入
    
13.     my $key = ReadKey(-1);
    
14.    
    
15.     if (defined $key) {
    
16.         if ($key eq 'q') {
    
17.             print "\n退出程序\n";
    
18.             last;
    
19.         }
    
20.         print "输入的字符是: $key\n";
    
21.     }
    
22.    
    
23.     # 稍微休眠，避免CPU占用过高
    
24.     select(undef, undef, undef, 0.1);
    
25. }
    
26. 
    
27. # 恢复正常终端模式
    
28. ReadMode('restore');
    
29. 显
    
30. 请输入字符（按q退出）：
    
31. 输入的字符是: 1
    
32. 输入的字符是: 2
    
33. 输入的字符是: 3
    
34. 输入的字符是: 4
    
35. 输入的字符是: 5
    

复制代码

523066680

好像有一个叫 Term::ReadKey 的模块
很少用到这个功能，逃……