怎样用正则表达式匹配汉字 (perl) - Perl -
答案:1 悬赏:10 手机版
解决时间 2021-03-21 01:08
- 提问者网友：回忆在搜索
- 2021-03-20 01:00
怎样用正则表达式匹配汉字 (perl) - Perl -
最佳答案
- 五星知识达人网友：毛毛
- 2021-03-20 02:09
use Encode;$_=\"abc你好wert\";$a=decode(\'cp936\',$_);($x)=($a=~m/(\\p{Han}+)/);print encode(\'cp936\',$x),\"\\n\"; 先谢谢分享，但似乎有个问题。如何匹配多段汉字呢。比如:$_=\"abc你好，汤姆qwer\";怎么匹配?我试过use Encode;$_=\"abc你好，汤姆qwer\";$a=decode(\'cp936\',$_);while（m/(\\p{Han}+)/g）{push @hanzi,$1;}print encode(\'cp936\',@hanzi),\"\\n\"; 不管用。我是菜鸟。还没理解您的这段。能不能给讲解一下。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯