perl 正则表达式 匹配字符串 或逻辑

大家好，又见面了，我是你们的朋友全栈君。

mark，备忘

代码语言：javascript复制

#!/usr/local/bin/perl

use strict;
use warnings;

my @data=qw( nihao wohao );
foreach(@data){
    if($_ =~ /^(ni|wo)hao$/){
        print $_
    }
}

perl正则表示式的备忘 http://www.runoob.com/perl/perl-regular-expressions.html

发布者：全栈程序员栈长，转载请注明出处：https://javaforall.cn/145138.html原文链接：https://javaforall.cn

perl java html https http

1 人点赞