无涯教程-Perl - last 语句函数

这篇具有很好参考价值的文章主要介绍了无涯教程-Perl - last 语句函数。希望对大家有所帮助。如果存在错误或未考虑完全的地方,请大家不吝赐教,您也可以点击"举报违法"按钮提交疑问。

当在循环内遇到 last 语句时,循环立即终止,程序控制在循环后的下一条语句处恢复。您可以为LABEL提供最后一个语句,其中LABEL是循环的标签。 last 语句可以在嵌套循环内使用,如果未指定LABEL,则该语句将适用于最近的循环。

last - 语法

last [LABEL];

last - 流程图

last - 示例

#!/usr/local/bin/perl

$a=10;
while( $a < 20 ) {
   if( $a == 15) {
      # terminate the loop.
      $a=$a + 1;
      last;
   }
   print "value of a: $a\n";
   $a=$a + 1;
}

执行以上代码后,将产生以下输出-

value of a: 10
value of a: 11
value of a: 12
value of a: 13
value of a: 14

让我们举一个示例,我们将在下一条语句中使用LABEL-

#!/usr/local/bin/perl

$a=0;
OUTER: while( $a < 4 ) {
   $b=0;
   print "value of a: $a\n";
   INNER:while ( $b < 4) {
      if( $a == 2) {
         # terminate outer loop
         last OUTER;
      }
      $b=$b + 1;
      print "Value of b : $b\n";
   }
   print "\n";
   $a=$a + 1;
}

执行以上代码后,将产生以下输出-

value of a : 0
Value of b : 1
Value of b : 2
Value of b : 3
Value of b : 4

value of a : 1
Value of b : 1
Value of b : 2
Value of b : 3
Value of b : 4

value of a : 2

Perl 中的 last 语句函数 - 无涯教程网无涯教程网提供当在循环内遇到 last 语句时,循环立即终止,程序控制在循环后的下一条语句处恢复。您...https://www.learnfk.com/perl/perl-last-statement.html文章来源地址https://www.toymoban.com/news/detail-626617.html

到了这里,关于无涯教程-Perl - last 语句函数的文章就介绍完了。如果您还想了解更多内容,请在右上角搜索TOY模板网以前的文章或继续浏览下面的相关文章,希望大家以后多多支持TOY模板网!

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处: 如若内容造成侵权/违法违规/事实不符,请点击违法举报进行投诉反馈,一经查实,立即删除!

领支付宝红包赞助服务器费用

相关文章

  • 无涯教程-Perl - grep函数

    此函数从LIST中提取EXPR为TRUE的所有元素。 以下是此函数的简单语法- 此函数返回在标量context中表达式返回true的次数以及在列表context中与表达式匹配的元素列表。 以下是显示其基本用法的示例代码- 执行上述代码后,将产生以下输出- Perl 中的 grep函数 - 无涯教程网 无涯教程网

    2024年02月13日
    浏览(9)
  • 无涯教程-Perl - undef函数

    此函数未定义EXPR的值。用于标量,列表,哈希,函数或类型范围。在带有诸如undef $hash {$key}之类的语句的哈希上使用;实际上将指定键的值设置为未定义的值。 如果要从哈希中删除元素,请使用delete函数。 以下是此函数的简单语法- 此函数返回undef。 以下是显示其基本用法的示例

    2024年02月12日
    浏览(10)
  • 无涯教程-Perl - getservbyport函数

    此功能转换协议PROTO的服务编号PORT,在标量context中返回服务名称,并在列表context中返回名称和相关信息- ($name,$aliases,$port_number,$protocol_name) 该调用基于/etc/services文件返回这些值。 以下是此函数的简单语法- 此函数在错误时返回undef,否则在标量context中返回服务编号,在错误时返回

    2024年02月13日
    浏览(9)
  • 无涯教程-Perl - binmode函数

    此函数设置在区分两者的操作系统上以二进制形式读取和写入FILEHANDLE的格式。非二进制文件的CR LF序列在输入时转换为LF,在LF时在输出时转换为CR LF。这对于使用两个字符分隔文本文件中的行的操作系统(MS-DOS)至关重要,但对使用单个字符的操作系统(Unix,Mac OS,QNX)没有影响。 以下

    2024年02月13日
    浏览(9)
  • 无涯教程-Perl - print函数

    此函数将LIST中的表达式的值打印到当前的默认输出文件句柄或FILEHANDLE指定的句柄中。 如果设置,则$变量将添加到LIST的末尾。 如果LIST为空,则打印$_中的值。 print接受一个值列表,列表中的每个元素都将被解释为一个表达式。 以下是此函数的简单语法- 如果失败,此函数返回0

    2024年02月13日
    浏览(10)
  • 无涯教程-Perl - setservent函数

    在第一次调用getservent之前,应先调用此函数。 STAYOPEN参数是可选的,在大多数系统上未使用。当getservent()检索服务数据库中下一行的信息时,然后setervent设置(或重置)枚举到主机条目集的开头。 以下是此函数的简单语法- 此函数不返回任何值。 以下是显示其基本用法的示例代码

    2024年02月12日
    浏览(15)
  • 无涯教程-Perl - endservent函数

    此功能告诉系统您不再期望使用getservent从服务文件中读取条目。 以下是此函数的简单语法- 此函数不返回任何值。 以下是显示其基本用法的示例代码- Perl 中的 endservent函数 - 无涯教程网 无涯教程网提供描述此功能告诉系统您不再期望使用getservent从服务文件中读取条目。 语

    2024年02月13日
    浏览(12)
  • 无涯教程-Perl - endpwent函数

    此功能告诉系统您不再希望使用getpwent从密码文件读取条目。在Windows下,使用Win32API::Net函数从域服务器获取信息。 以下是此函数的简单语法- 此函数不返回任何值。 以下是显示其基本用法的示例代码- 执行上述代码后,将产生以下输出- Perl 中的 endpwent函数 - 无涯教程网 无涯教

    2024年02月14日
    浏览(12)
  • 无涯教程-Perl - bless函数

    此函数告诉REF引用的实体,它现在是CLASSNAME包中的对象,如果省略CLASSNAME,则为当前包中的对象。建议使用bless的两个参数形式。 以下是此函数的简单语法- 该函数返回对祝福到CLASSNAME中的对象的引用。 以下是显示其基本用法的示例代码,通过祝福对包类的引用来创建对象引用-

    2024年02月13日
    浏览(9)
  • 无涯教程-Perl - symlink函数

    此函数在OLDFILE和NEWFILE之间创建符号链接。在不支持符号链接的系统上,会导致致命错误。 以下是此函数的简单语法- 如果失败,此函数返回0,如果成功,则返回1。 以下是显示其基本用法的示例代码,首先在/tmp目录中创建一个文件test.txt,然后尝试以下示例,它将在同一目录中创建符

    2024年02月12日
    浏览(9)

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

博客赞助

微信扫一扫打赏

请作者喝杯咖啡吧~博客赞助

支付宝扫一扫领取红包,优惠每天领

二维码1

领取红包

二维码2

领红包