Есть файл вида

Коммутатор ABC - Порт 1 - Сеть SECURITY
SOMETEXT
Коммутатор ABC - Порт 2 - Сеть SECURITY
SOMETEXT

Нужно "Порт N" увеличить на 40

Sed так не умеет, perl не ловит русские буквы. Подскажите решение задачи

• Замена по шаблону + мат.операция,ciwl, 16:59 , 25-Июн-12
• Замена по шаблону + мат.операция,LSTemp, 00:54 , 26-Июн-12
  • Замена по шаблону + мат.операция,ciwl, 01:08 , 26-Июн-12
    • Замена по шаблону + мат.операция,Andrey Mitrofanov, 21:27 , 26-Июн-12

#!/usr/bin/perl

use utf8;
use open IN => ':encoding(utf8)';

open(FF, "list.txt");
while(<FF>) {
        s/(?<=Порт )([0-9][0-9]?)/$1+40/ge;
        print;
}

> Есть файл вида
> Коммутатор ABC - Порт 1 - Сеть SECURITY
> SOMETEXT
> Коммутатор ABC - Порт 2 - Сеть SECURITY
> SOMETEXT
> Нужно "Порт N" увеличить на 40
> Sed так не умеет, perl не ловит русские буквы. Подскажите решение задачи

и перл и сед может. для начала сойдет awk & shell

>> Есть файл вида
>> Коммутатор ABC - Порт 1 - Сеть SECURITY
>> SOMETEXT
>> Коммутатор ABC - Порт 2 - Сеть SECURITY
>> SOMETEXT
>> Нужно "Порт N" увеличить на 40
>> Sed так не умеет, perl не ловит русские буквы. Подскажите решение задачи
> и перл и сед может. для начала сойдет awk & shell

как, например, awk&shell и sed? С перлом-то худо-бедно разобрался (см. выше)

> как, например, awk&shell и

$ echo "Коммутатор ABC - Порт 2 - Сеть SECURITY"|awk '$4=="Порт"{$5+=40}{print}'
Коммутатор ABC - Порт 42 - Сеть SECURITY
$ _