在 Perl 中提取模式

Question

是否有可能只有一个正则表达式可以提取模式“芒果-1.随便.." 在这 3 个条件中的任何一个（即 $dummy）中。我继续打印此模式后的所有内容。如果我最后使用逗号，那么它无法在 CASE-2 中打印任何内容。

CASE-1: my $dummy = "Apple-1.fruit,Banana,Peach,Mango-1.Fruit";
OR
CASE-2: my $dummy = "Mango-1.Fruitssss";
OR
CASE-3: my $dummy = "Apple-1.fruit,Mango-1.Fruits,Orange-1.Fruit,Papaya";

$dummy =~ /(Mango-1.*),/i;
$dummy = $1;
chomp($dummy);

print "$dummy";

Answer 1

关于什么

$dummy =~ /(Mango-1[^,]*)/i;

即 Mango-1 加上逗号或字符串末尾之前的任何内容。