Perl脚本菜单的简单实现

用《Learning Perl》上的一段代码来说明实现：

1. #!/usr/bin/perl -w  
2. use strict;  
3. foreach(1 .. 10){  
4.  
5. print "Iteratin number $_.\n\n";  
6.  
7. print "Please input the choice: last, redo, next, or none of the above?";  
8.  
9. chomp(my $choice=<STDIN>);  
10. print "\n";  
11. last if $choice=~ /last/i;  
12. next if $choice=~ /next/i;  
13. redo if $choice=~ /redo/i;  
14. print "That wasn't any of the choices.. onward!\n\n";  
15.  
16. }  
17. print "That's all, folks!\n"; 

我们可以替换last,next,redo为实际需要执行的函数，修改print语句来让这个菜单更漂亮。

     本文转自xiaoyuwang 51CTO博客，原文链接：http://blog.51cto.com/wangxiaoyu/494656，如需转载请自行联系原作者