在perl中提取模式

是否有可能只有一個正則表達式可以在這 3 種條件中的任何一種（即 $dummy）中提取模式“ **Mango-1.whatever.. ”。**我在這個模式之後繼續列印所有東西。如果我最後使用逗號，那麼它無法在 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";

關於什麼

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

即 Mango-1 加上逗號或字元串結尾的任何內容。

引用自：https://unix.stackexchange.com/questions/527058