Question

我需要编写将解析字符串的正则表达式：

Build-Depends: cdbs, debhelper (>=5), smthelse

我想提取包名（没有版本号和括号）。

我写了这样的话：

$line =~ /^Build-Depends:\s*(\S+)\s$/

但这并不是我想要的。

有人知道如何管理吗？

P.S。我只想得到这个清单：“cdbs debhelper smthelse”结果

Answer 1

这个正则表达式应该做你想做的事：/\s(\S*)(?:\s$.*?$)?(?:,|$)/g

修改：您可以这样调用它来循环显示所有结果：

while ($str =~ /\s(\S*)(?:\s\(.*?\))?(?:,|$)/g) {
    print "$1 is one of the packages.\n";
}

Answer 2

使用正则表达式/^Build-Depends:\s*(\S+)\s$/，您将匹配到字符串结尾。请尝试使用/^Build-Depends:\s*(\S+)\s/。

Answer 3

这适用于此处列出的包名称类型。

use warnings;
use strict;

my @packs;
my $line = "Build-Depends: cdbs, debhelper (>=5), smthelse";

if ( $line =~ /^Build-Depends: (.+)$/ ) { # get everything
    @packs = split /,+\s*/, $1;
    s/\([^)]+\)//g for @packs; # remove version stuff
}

print "$_\n" for @packs;

Answer 4

如果在(不存在的情况下，如何在空格上拆分输入并打印每个元素？这样的事可能

perl -lane 'foreach $_ (@F[1..scalar(@F)]) {print if not m/\(/}'
cdbs,
debhelper
smthelse

有关reg exps的问题在perl中

4 个答案: