perl - 范围介于正则表达式之间

Question

我有一个像这样的文件

$ cat num_range.txt
rate1, rate2, rate3, rate4, rate5
pay1, pay2, rate1, rate2, rate3, rate4
rev1, rev2
rate2, rate3, rate4

我需要通过匹配前缀和数字范围来过滤逗号分隔的行。 例如 - 如果输入是“rate”并且范围是 2 到 5，那么我应该得到

rate2, rate3, rate4, rate5
rate2, rate3, rate4
rate2, rate3, rate4

如果它是 5 到 10，那么我应该得到

rate5

当我使用perl -ne ' while ( /rate(\d)/g ) { print "$&," }; print "\n" ' num_range.txt perl -ne ' while ( /rate(\d)/g ) { print "$&," }; print "\n" ' num_range.txt我得到了前缀的所有匹配项，

但是低于一个是行不通的。

perl -ne ' while ( /rate(\d){2,5}/g ) { print "$&," } ; print "\n" '  num_range.txt

Answer 1

一个简单的方法

perl -wnE'
    print join",", grep { /rate([0-9]+)/ and $1 >= 2 and $1 <= 5 } split /\s*,\s*/
' file

硬编码关键字rate和限制（ 2和5 ）当然可以是从输入设置的变量

Answer 2

您的代码不会将匹配的数字与范围进行比较。

此外，您在最后一个条目之后无偿地打印了一个逗号。

试试这个。

perl -ne '$sep = ""; while (/(rate(\d+))/g ) {
    if ($2 >= 2 and $2 <= 5) {
        print "$sep$1"; $sep=", ";
    }
}
print "\n" if $sep' num_range.txt

另请注意\d+如何用于匹配rate之后的任何数字并提取到单独的数字比较中。 单独来看这有点笨拙，但很容易适应不同的数字范围。

Answer 3

要解释为什么您的代码不起作用：

 /rate(\d){2,5}/g

这并不像您认为的那样。 {x,y}语法定义前一个字符串出现的次数。

所以这匹配“字符串‘rate’后跟 2 到 5 位数字”。 这与您的数据中的任何内容都不匹配。

Answer 4

这是做的工作：

perl -anE '@rates=();while(/rate(\d+)/g){push @rates,$& if $1>=2 && $1<=15}say"@rates" if @rates' file.txt

Output：

rate2 rate3 rate4 rate5
rate2 rate3 rate4
rate2 rate3 rate4