История изменений
Исправление
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/}