Perl 中的 given-when-default 语句

Perl 中的 given-when-default 语句,正如我在上一篇文章中所讨论的那样,switch-casePerl 5 中被弃用。三个新关键字:given-when-default在 Perl 5 中引入,提供类似于switch case的功能。

语法:

given (argument) {
  when (condition) { statement(s); }
  when (condition) { statement(s); }
  when (condition) { statement(s); }
  .
  .
  .
  default { statement(s); }
}

示例如下:

#!/usr/local/bin/perl
use v5.10;
no warnings 'experimental';
printf "Enter any number:";
num = <STDIN>;

given(num){
  when (num>10) {
    printf "number is greater than 10\n";
  }
  when (num<10) {
    printf "number is less than 10\n";
  }
  default {
    printf "number is equal to 10\n";
  }
}

输出:

Enter any number:10
number is equal to 10

Python教程

Java教程

Web教程

数据库教程

图形图像教程

大数据教程

开发工具教程

计算机教程