是否可能只有一个正则表达式可以在这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加上任何以逗号或字符串结尾的内容。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句