История изменений
Исправление
kompospec,
(текущая версия)
:
Если одна короткая строка - для вас - месево…
#!/usr/bin/perl
open D, 'vxod.txt';
open V, '>vyxod.txt';
while (<D>) {print V if s/([^+\s]*?)([^+\s]*)[\s+]+\2/$1$2/}
В этом коде нет ничего кроме регулярки. НИ-ЧЕ-ГО
Остальное - не читал - слишком много букв
Исходная версия
kompospec,
:
Если одна короткая строка - для вас - месево…
#!/usr/bin/perl
open D, 'vxod.txt';
open V, '>vyxod.txt';
while (<D>) {print V if s/([^+\s]*?)([^+\s]*)[\s+]+\2/$1$2/}
В этом коде нет ничего кроме регулярки. НИ-ЧЕ-ГО