perl中的模式匹配

Question

my $line = "Name:Amanda_Marry_Rose,Region:US,host:USE,cardType:DebitCard,product:Satin,Name:Raghav.S.Thomas,Region:UAE,";
my $name = "";

@name = ( $line =~ m/Name:([\w\s\_\,/g );
foreach (@name) {
   print $name."\n";
}

我希望捕获Name:和,Region之间的单词，无论它出现在整个代码行中的哪个位置。主要的漏洞是名称可以是任何格式

Amanda_Marry_Rose
Amanda.Marry.Rose
Amanda Marry Rose
Amanda/Marry/Rose

我需要一个帮助来捕获这样的模式，每次它出现在生产线上。因此，对于我提供的行，输出应该是

Amanda_Marry_Rose
Raghav.S.Thomas

有谁知道怎么做吗？我试着保持下面这一行，但它给我的输出是错误的。

@name=($line=~m/Name:([\w\s\!\"\#\$\%\&\'\(\)\*\+\,\-\.\/\:\;\<\=\>\?\@\[\\\]\^\_\`\{\|\}\~\´]+)\,/g);

输出

Amanda_Marry_Rose,Region:US,host:USE,cardType:DebitCard,product:Satin,Name:Raghav.S.Thomas,Region:UAE

Answer 1

要在Name:和第一个逗号之间进行捕获，请使用negated character class

/Name:([^,]+)/g

这表示匹配Name:后面的一个或多个不是逗号的字符：

while (/Name:([^,]+)/g) {
    print $1, "\n";
}

这比非贪婪的quantifier更有效，例如：

/Name:(.+?),/g

因为它不需要backtracking。

Answer 2

Reg-ex已更正：

my $line = "Name:Amanda_Marry_Rose,Region:US,host:USE,cardType:DebitCard,product:Satin,Name:Raghav.S.Thomas,Region:UAE,";

my @name = ($line =~ /Name\:([\w\s_.\/]+)\,/g);
    foreach my $name (@name) {
    print $name."\n";
}

Answer 3

您所拥有的是逗号分隔的数据。应该如何解析它在很大程度上取决于您的数据。如果是完整的csv数据，最安全的方法是使用适当的csv解析器，比如Text::CSV。如果是不太严格的数据，您可以使用轻量级解析器Text::ParseWords，它的好处还在于它是Perl5中的核心模块。如果这里提供的是相当基本的用户输入字段，那么我建议使用split --这只是因为当您知道分隔符时，定义它比定义其中的所有其他分隔符都更容易、更安全。

use strict;
use warnings;
use Data::Dumper;

my $line = "Name:Amanda_Marry_Rose,Region:US,host:USE,cardType:DebitCard,product:Satin,Name:Raghav.S.Thomas,Region:UAE,";

# Simple split
my @fields = split /,/, $line;
print Dumper for map /^Name:(.*)/, @fields;

use Text::ParseWords;
print Dumper map /^Name:(.*)/, quotewords(',', 0, $line);

use Text::CSV;
my $csv = Text::CSV->new({
        binary => 1,
    });
$csv->parse($line);
print Dumper map /^Name:(.*)/, $csv->fields;

除了使用Text::CSV的选项之外，所有这些选项都会给出相同的输出，它也会非常正确地发出一个未定义的警告，因为您的数据有一个尾随的逗号(意思是末尾有一个空字段)。

每种方法都有不同的优点和缺点。Text::CSV可能会被不符合CSV格式的数据阻塞，并且split无法处理嵌入的逗号，如Name:"Doe, John",...。

我们用来非常简单地提取名称的正则表达式只捕获以Name:开头的整个其余行。这还允许您对字段名称执行完整性检查，例如，如果突然发现名为Doe;Name:的字段，则会发出警告