Perl 的last ,next ,redo 程序控制操作

最新推荐文章于 2023-08-13 17:00:29 发布

wind9984

最新推荐文章于 2023-08-13 17:00:29 发布

阅读量296

点赞数

CC 4.0 BY-SA版权

分类专栏： perl 文章标签： Perl 程序控制

本文链接：https://blog.youkuaiyun.com/wind9984/article/details/83985087

perl 专栏收录该内容

12 篇文章

订阅专栏

本文探讨了使用Perl编程语言实现循环迭代与条件选择的基本概念，通过实例展示了如何使用foreach循环进行迭代，并根据不同条件执行不同的操作，如结束循环、跳过当前迭代或重新执行循环。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

#!/usr/bin/perl

foreach(1..10){
	print "Iteration number $_.\n\n";
	print "Please choose: last, next, redo, 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 was't any of the choices. onward!\n\n";
}
print "That's all, folks\n"