- Замена по шаблону + мат.операция,
 ciwl, 16:59 , 25-Июн-12 (1)#!/usr/bin/perluse utf8;
use open IN => ':encoding(utf8)'; open(FF, "list.txt");
while(<FF>) {
s/(?<=Порт )([0-9][0-9]?)/$1+40/ge;
print;
} - Замена по шаблону + мат.операция, LSTemp, 00:54 , 26-Июн-12 (2)
- Замена по шаблону + мат.операция, ciwl, 01:08 , 26-Июн-12 (3)
>> Есть файл вида
>> Коммутатор ABC - Порт 1 - Сеть SECURITY
>> SOMETEXT
>> Коммутатор ABC - Порт 2 - Сеть SECURITY
>> SOMETEXT
>> Нужно "Порт N" увеличить на 40
>> Sed так не умеет, perl не ловит русские буквы. Подскажите решение задачи
> и перл и сед может. для начала сойдет awk & shell как, например, awk&shell и sed? С перлом-то худо-бедно разобрался (см. выше)
|
Версия для распечатки
Замена по шаблону + мат.операция, 
