自定义分隔符|/i|/x|/xs|需要转译

最新推荐文章于 2024-11-19 12:43:04 发布

原创最新推荐文章于 2024-11-19 12:43:04 发布 · 289 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#perl

perl 专栏收录该内容

17 篇文章

订阅专栏

博客围绕Perl展开，聚焦于小骆驼第八章内容，着重介绍了用正则表达式进行匹配的相关知识，属于信息技术中后端开发领域。

小骆驼第八章用正则表达式进行匹配

#!/usr/bin/envperl

use strict;
use warnings;

$_ ="#adchbehnyhme3534f\nvdh5ejbnv                _+IHG\n";

if(m%(a)%){print "$1\n";}else{print "no match!\n";}

if(/(i)/i){print "$1\n";}else{print "no match!\n";}

if(/ad(.*)5e/s){print "$1\n";}else{print "no match!\n";}

if(/     j(.*)v/x){print "$1\n";}else{print "no match!\n";}

if(/    (.?)/sx){print "$1\n";}else{print "no match!\n";}

if(/\#(.*)/){print "$1\n";}else{print "no match!\n";}

#a
#I
#chbehnyhme3534f
#vdh
#bn
#
#adchbehnyhme3534f