求助：关于perl中文匹配

喊喊290

"title=每日邮报：研究显示结婚可能让人更容易抑郁","subtitle":"title=外媒：澳洲或于5年内实现“定制婴儿”,"title=全球“手机上瘾者”激增","

以上是一整行，该怎么弄才能将”title=“ 后面的中文提取出来，3个都要？

q1208c

这不就是简单的 正则匹配么? 有啥问题?

sjdy521

确实，就是普通的正则匹配，和有没有中文没啥影响

mcshell

1. echo  '"title=每日邮报：研究显示结婚可能让人更容易抑郁","subtitle":"title=外媒：澳洲或于5年内实现“定制婴儿”,"title=全球“手机上瘾者”激增","'|perl -lne '@re=/title=([\x80-\xff\w]+)/g;END{print join "\n",@re}'
   
2. 
   
3. 每日邮报：研究显示结婚可能让人更容易抑郁
   
4. 外媒：澳洲或于5年内实现“定制婴儿”
   
5. 全球“手机上瘾者”激增
   

复制代码

回复 1# 喊喊290


   

喊喊290

回复 4# mcshell


谢谢！刚开始用perl，对中文和/g不大理解，

        if (/title\":\"([\x80-\xff\w\s]+)/ig)
        {
                print "$1\n";
        }
    这个如果一行能多次匹配的话，print能打印多次，这么好像和C语言里面的if有差别啊！？

jason680

回复 5# 喊喊290

  while(m/.../ig){
     ...
  }

喊喊290

回复 6# jason680

不好意思，是我搞错了。再次感谢！
   

sxlwzl

mcshell 发表于 2014-04-30 14:35
回复 1# 喊喊290

高手，膜拜一下

jsjhy

一点小问题

use strict;
use warnings;

my $_= 'title=每日邮报：研究显示结婚可能让人更容易抑郁,祂说要有光,title=外媒：澳洲或于5年内实现“定制婴儿”';
my @re= /title=([\x80-\xff\w]+)/g;
print "@re \n" ;
system('pause');

输出：  每日邮报：研究显示结婚可能让人更容易抑郁 外媒：澳洲或于5年内实现“定制婴儿”


回复 4# mcshell