Perl多线正则表达式

概述我有一个文件充满了要解析的json对象,类似于这个： {"_id" : ObjectId("523a58c1e4b09611f4c58a66"),"_items" : [ { "adGroupId" : NumberLong(1230610621), "keywordId" : NumberLong("5458816773") }, { 我有一个文件充满了要解析的Json对象,类似于这个：

{"_ID" : ObjectID("523a58c1e4b09611f4c58a66"),"_items" : [    {        "adGroupID" : NumberLong(1230610621),"keywordID" : NumberLong("5458816773")    },{        "adGroupID" : NumberLong(1230613681),"keywordID" : NumberLong("3204196588")    },"keywordID" : NumberLong("4340421772")    },{        "adGroupID" : NumberLong(1230615571),"keywordID" : NumberLong("10525630645")    },{        "adGroupID" : NumberLong(1230617641),"keywordID" : NumberLong("4178290208")    }]}

我想从de NumberLong()里面取数字.起初我只需要关键字ID,并设法完成它：

cat Listado.txt |& perl -ne 'print "," if /\"keywordID\" : NumberLong\(\"?(\d*)\"?\)/' keywordIDs.txt

这会生成带有数字的逗号分隔文件.我现在还需要de adGroupIDs,所以我正在尝试以下匹配的正则表达式而没有运气：

cat ./work/Listado.txt |& perl -ne 'print "-," if /\"adGroupID\" : NumberLong\(\"?(\d*)\"?\),\s*\"keywordID\" : NumberLong\(\"?(\d*)\"?\)/m'

正则表达式匹配,但我相信perl不会做多行,即使我正在使用/ m.

有任何想法吗？

解决方法 / m影响^和$匹配.你不使用,所以/ m没有效果.

您一次只能读取一行,因此您一次只能匹配一行. / m不可能导致正则表达式匹配等待从某些文件句柄读取的数据,它不知道任何事情.

您可以使用-0777将整个文件加载到内存中,并循环遍历所有匹配,而不是仅仅抓取第一个.

总结

以上是内存溢出为你收集整理的Perl多线正则表达式全部内容，希望文章能够帮你解决Perl多线正则表达式所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。