perl中的提取模式

Question

在这3种条件(即$dummy)中，是否可能只有一个正则表达式可以提取模式“Mango-1.”。在这个图案之后我一直在打印所有的东西。如果我在结尾使用逗号，那么它就无法在第二种情况下打印任何内容。

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;

即芒果-1加上任何跟随逗号或字符串结尾的内容。