Perl多线正则表达式

Question

我有一个文件充满了要解析的json对象,类似于这个:

{
"_id" : ObjectId("523a58c1e4b09611f4c58a66"),
"_items" : [
    {
        "adGroupId" : NumberLong(1230610621),
        "keywordId" : NumberLong("5458816773")
    },
    {
        "adGroupId" : NumberLong(1230613681),
        "keywordId" : NumberLong("3204196588")
    },
    {
        "adGroupId" : NumberLong(1230613681),
        "keywordId" : NumberLong("4340421772")
    },
    {
        "adGroupId" : NumberLong(1230615571),
        "keywordId" : NumberLong("10525630645")
    },
    {
        "adGroupId" : NumberLong(1230617641),
        "keywordId" : NumberLong("4178290208")
    }
]}

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

cat listado.txt |& perl -ne 'print "$1," if /\"keywordId\" : NumberLong\(\"?(\d*)\"?\)/' keywordIds.txt

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

cat ./work/listado.txt |& perl -ne 'print "$1-$2," if /\"adGroupId\" : NumberLong\(\"?(\d*)\"?\),\s*\"keywordId\" : NumberLong\(\"?(\d*)\"?\)/m'

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

有任何想法吗？

Answer 1

/m影响什么^和$匹配.你不使用,所以/m没有效果.

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

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