Perl脚本菜单的简单实现

发布时间：2020-12-16 00:42:53 所属栏目：大数据来源：网络整理

导读：用《Learning Perl》上的一段代码来说明实现： #!/usr/bin/perl?-w ? use?strict; ? foreach( 1 ?..? 10 ){ ? ? print ? "Iteratin?number?$_.nn" ; ? ? print ? "Please?input?the?choice:?last,?redo,?next,?or?none?of?the?above?" ; ? ? chomp(my?$cho

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

 
 
#!/usr/bin/perl?-w ?
  
  use?strict; ?
  
  
foreach(1?..?10){ ?

  
  ?
  
  
print?"Iteratin?number?$_.nn"; ?

  
  ?
  
  
print?"Please?input?the?choice:?last,?redo,?next,?or?none?of?the?above?"; ?

  
  ?
  
  chomp(my?$choice=<STDIN>); ?
  
  
print?"n"; ?

  
  
last?if?$choice=~?/last/i; ?

  
  
next?if?$choice=~?/next/i; ?

  
  
redo?if?$choice=~?/redo/i; ?

  
  
print?"That?wasn't?any?of?the?choices..?onward!nn"; ?

  
  ?
  
  } ?
  
  
print?"That's?all,?folks!n";?

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!