perl 匹配特定的数字和单词

Question

给定一个文件包括：

const users = [
  {
    name: 'Jeff',
    age: 52,
    gender: 'male'
  },
  {
    name: 'Andy',
    age: 25,
    gender: 'male'
  },
  {
    name: 'Sarah',
    age: 30,
    gender: 'female'
  },
  {
    name: 'Phoebe',
    age: 21,
    gender: 'female'
  },
  {
    name: 'Doris',
    age: 81,
    gender: 'female'
  }
];

我正在尝试匹配“年龄与性别是男性”，但我不知道为什么我的代码不能匹配这个。但它适用于“https://regex101.com/r/cO8lqs/24”

while ($line = <FILE>){
    if($line =~ /age:(.*)\,\s*gender: 'male'\}/g){
        print "$1\n"; #output display number only
        print "$line\n";
    }   
}

应该像这样匹配：

age: 52,
gender: 'male'

age: 25,
gender: 'male'

Answer 1

你犯了一个大错误和一个小错误。

主要是，您似乎忘记了<FILE> 将从您的文件中读取一行。并且您文件中的每一行都不会与您的正则表达式匹配。您可以通过在循环中打印 $line 的值来验证这一点。

解决此问题的最简单方法是使用$/ 变量。 $/ 是 Perl 的“输入记录分隔符”。它包含 Perl 在读取文件时用来确定记录结束的文本字符串。默认值为\n（这就是<...> 一次读取一行的原因），但我们可以更改它以使其更有用。

$/ = "},\n";

现在，如果你打印$line，你会得到更有用的东西。

但代码仍然不起作用。因为你的正则表达式中的小错误。

您的正则表达式如下所示：

age:(.*)\,\s*gender: 'male'\}

假设结束 } 直接跟在字符串 male 之后。但事实并非如此——它们之间有一个换行符。如果您更改正则表达式以解决此问题，那么它将起作用：

age:(.*)\,\s*gender: 'male'\s*\}

您的代码现在可以工作，但是像这样解析代码相当脆弱。最好建议您删除 const users =，然后使用 JSON 解析器解析其余部分。

Answer 2

你也可以用 Perl-oneliner 来做。我使用 \x27 十六进制来匹配单引号。看看这个

> perl -ne ' BEGIN {$/="}"} { print $x if /(age:(.+?).*(gender:\s\x27male\x27))/osmg and $x="$1\n" } ' const.txt
age: 52,
    gender: 'male'
age: 25,
    gender: 'male'
>

或更紧凑的。

> perl -ne ' BEGIN {$/="}"} { print $x if /age:.*gender:\s\x27male\x27/osmg and $x="$&\n" } ' const.txt
age: 52,
    gender: 'male'
age: 25,
    gender: 'male'
>