Perl 正则表达式替换

Perl 正则表达式替换文本处理中经常需要将字符串中的某些字符替换后再进行处理,以下是新发现的非常方便的方法,充分发挥了Perl正则表达式的威力。$str=”thisisatesting”;$str=~s/(/w+)(/w+)/$2$1/;print$str;————————————OUTPUT:isthisatesti

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

文本处理中经常需要将字符串中的某些字符替换后再进行处理,以下是新发现的非常方便的方法,充分发挥了Perl正则表达式的威力。

$str = “this is a testing”;
$str =~ s/(/w+) (/w+)/$2 $1/;
print $str;
————————————
OUTPUT:
is this a testing

下边是另外一个列子,可以将一个字符串做为表达式并传入匹配。

$str = “EJV.done.2010-09-09-1234.2010-09-09-2345.xml.2.of.5.gz”;
$re = ‘[0-9-]{15}/.[/d-]{15}’;
print $str if $str =~ /$re/;

用Perl就必需会使用它的正则表达式。

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

发布者:全栈程序员-用户IM,转载请注明出处:https://javaforall.cn/138286.html原文链接:https://javaforall.cn

【正版授权,激活自己账号】: Jetbrains全家桶Ide使用,1年售后保障,每天仅需1毛

【官方授权 正版激活】: 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...

(0)


相关推荐

发表回复

您的电子邮箱地址不会被公开。

关注全栈程序员社区公众号