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

perl 正则表达式 匹配字符串 或逻辑mark 备忘 usr local bin perl use strict use warnings my data qw nihao wohao foreach data if ni wo hao print perl 正则表示式的备忘 http www runoob

mark,备忘

#!/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

编程小号
上一篇 2025-06-02 21:57
下一篇 2025-03-03 23:21

相关推荐

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。
如需转载请保留出处:https://bianchenghao.cn/hz/112545.html