Обсуждение статьи тематического каталога: Поправьте скрипт - есть ошибкиСсылка на текст статьи: http://www.opennet.me/base/patch/parse_affix.txt.html
Скрипт прекрасен, но
1) слишком жаден, в регекпе ошибка:
строки /flag\s+\*(\w):/ надо заменить на
/flag\s+\*?(\w):/ в двух местах, иначе после flag *M: из файла аффиксов прочтется например flag T: и "слипнуться" шаблоны.(T пропадёт, а M будет избыточно-неверным)2. плюс еще print NEWDIC записать повсюду как print NEWDIC $word,"\t",ла-ла-ла что было, это хоть слово покажет из которого генерили.