perl学习笔记（十六）given-when语句

hh199203

于 2022-07-02 15:38:28 发布

阅读量577

点赞数

分类专栏： perl 文章标签： perl 学习开发语言 given-when

本文链接：https://blog.csdn.net/hh199203/article/details/125573547

版权

perl 专栏收录该内容

25 篇文章 6 订阅

订阅专栏

文章目录

前言
16 given-when语句
总结

前言

本文主要记录一下，perl中的given-when语句。

perl中的given-when语句相当于C语言中的switch-case语句。

given-when的语法
continue的应用

16 given-when语句

#=====================================
# given-when语句，相当于C语言中的switch-case
#=====================================
use 5.010;

my $name = $ARGV[0];

   if($name =~ /fred/i) { say 'if: Name has fred'}
elsif($name =~ /^Fred/) { say 'if: Name starts with Fred'}
elsif($name eq 'fred')  { say 'if: Name equal fred'}
else                    { say 'if: I dont see fred'}
# 上边的if和下边的given-when等效
given($name){
    when(/fred/i) { say 'if: Name has fred'}
    when(/^Fred/) { say 'if: Name starts with Fred'}
    when('fred')  { say 'if: Name equal fred'}
    default       { say 'if: I dont see fred'}
}

# 加上continue后下边的语句会继续执行，默认是break
given($name){
    when(/fred/i) { say 'if: Name has fred'; continue}
    when(/^Fred/) { say 'if: Name starts with Fred'; continue}
    when('fred')  { say 'if: Name equal fred'}
    default       { say 'if: I dont see fred'}
}

given($ARGV[1]){
    when( /^-?\d+$/){ #匹配数字
        say 'This is a num!'; continue
    }
    when($_ > 10){
        say 'Num is greater than 10'
    }
}