Задание: есть текст, допустим abc/*de/*f*/m*/x
с комментариями, которые нужно удалить регулярным выражением, причем, если в комментарии есть вложенный комментарий, то сначала надо удалить его.
У меня получилось что-то такое:
while ($string =~ m|/\*(.*?)\*/|) {
$string =~ s|(/\*((?!(.*?/\*).*?).*?)\*/.*?)|$_|;
print ""$string\n;
}
Получим:
abc/*de/*f*/m*/x
abc/*dem*/x
abcx
И все вроде работает хорошо, но если в примере будут идти два комментария подряд, допустим теперь строка abc/*de/*f*/*/x
, то программа зациклится.
Подскажите, как можно решить эту проблему.