perl if else循环

最新推荐文章于 2024-09-06 16:39:14 发布

scan724

最新推荐文章于 2024-09-06 16:39:14 发布

阅读量3.9k

点赞数

分类专栏： Perl开发

本文链接：https://blog.csdn.net/zhaoyangjian724/article/details/39892745

版权

Perl开发专栏收录该内容

46 篇文章 30 订阅 ¥39.90 ¥99.00

订阅专栏

这篇博客介绍了如何在 Perl 中使用 if-else 循环进行条件判断，特别是结合正则表达式进行字符串匹配。通过示例代码展示了当命令行参数包含 'xy' 字符串时，程序会输出 'ok'，否则输出 'no'。

摘要由CSDN通过智能技术生成

[oracle@jhoa 7]$ cat 5.pl 
if ( $#ARGV < 0 ){
        print "请输入一个日期参数\n";
        exit(-1);
    }
  $var = $ARGV[0];
if ($var =~/xy/) ##匹配xy字符
{print "ok\n"} 
else
{print "no\n"}



[oracle@jhoa 7]$ perl 5.pl  xy
ok
[oracle@jhoa 7]$ perl 5.pl  xyzz
ok
[oracle@jhoa 7]$ perl 5.pl  yyy
no

scan724

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
打赏
0
评论
perl if else循环

[oracle@jhoa 7]$ cat 5.pl if ( $#ARGV < 0 ){ print "请输入一个日期参数\n"; exit(-1); } $var = $ARGV[0];if ($var =~/xy/) ##匹配xy字符{print "ok\n"} else{print "no\n"}[oracle@jhoa 7]$
复制链接

扫一扫