regex - 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() 中取出数字。起初我只需要keywordId，并设法通过以下方式完成它:

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 将整个文件加载到内存中。并循环遍历所有匹配项，而不是仅获取第一个匹配项。