perl中的标签和next last语句练习

最新推荐文章于 2023-08-05 17:00:24 发布

wgz7747147820

最新推荐文章于 2023-08-05 17:00:24 发布

阅读量402

点赞数

分类专栏： perl 文章标签： perl

本文链接：https://blog.csdn.net/wgz7747147820/article/details/90475192

版权

perl 专栏收录该内容

31 篇文章 0 订阅

订阅专栏

[root@rwsoda203db1 perl_tidb]# cat p.pl
#!/usr/bin/perl
my $var_i =0;
OUT: while ($var_i <8) {

	$var_i++;
	INN: for (my $var_h = 1;$var_h<5; $var_h++){
		if($var_i == 3){
			next OUT;
		}
		if($var_i == 6){
			last OUT;
		}
		if($var_i == 4 && $var_h == 2){
			next INN;
		}
		if($var_i == 5 && $var_h == 3){
			last INN;
		}
		print "var_i : $var_i,var_h : $var_h\n";
	}
}
[root@rwsoda203db1 perl_tidb]# ./p.pl
var_i : 1,var_h : 1
var_i : 1,var_h : 2
var_i : 1,var_h : 3
var_i : 1,var_h : 4
var_i : 2,var_h : 1
var_i : 2,var_h : 2
var_i : 2,var_h : 3
var_i : 2,var_h : 4
var_i : 4,var_h : 1
var_i : 4,var_h : 3
var_i : 4,var_h : 4
var_i : 5,var_h : 1
var_i : 5,var_h : 2