https://www.opennet.ru/openforum/vsluhforumID9/9498.html Есть файл вида<br><br>Коммутатор ABC - Порт 1 - Сеть SECURITY<br>SOMETEXT<br>Коммутатор ABC - Порт 2 - Сеть SECURITY<br>SOMETEXT<br><br>Нужно "Порт N" увеличить на 40<br><br>Sed так не умеет, perl не ловит русские буквы. Подскажите решение задачи<br> https://www.opennet.ru/openforum/vsluhforumID9/9498.html#4 Tue, 26 Jun 2012 17:27:30 GMT &gt; как, например, awk&shell и<br><br>$ echo "Коммутатор ABC - Порт 2 - Сеть SECURITY"&#124;awk '$4=="Порт"{$5+=40}{print}'<br>Коммутатор ABC - Порт 42 - Сеть SECURITY<br>$ _<br> https://www.opennet.ru/openforum/vsluhforumID9/9498.html#3 Mon, 25 Jun 2012 21:08:41 GMT &gt;&gt; Есть файл вида <br>&gt;&gt; Коммутатор ABC - Порт 1 - Сеть SECURITY <br>&gt;&gt; SOMETEXT <br>&gt;&gt; Коммутатор ABC - Порт 2 - Сеть SECURITY <br>&gt;&gt; SOMETEXT <br>&gt;&gt; Нужно "Порт N" увеличить на 40 <br>&gt;&gt; Sed так не умеет, perl не ловит русские буквы. Подскажите решение задачи <br>&gt; и перл и сед может. для начала сойдет awk & shell <br><br>как, например, awk&shell и sed? С перлом-то худо-бедно разобрался (см. выше)<br> https://www.opennet.ru/openforum/vsluhforumID9/9498.html#2 Mon, 25 Jun 2012 20:54:40 GMT &gt; Есть файл вида <br>&gt; Коммутатор ABC - Порт 1 - Сеть SECURITY <br>&gt; SOMETEXT <br>&gt; Коммутатор ABC - Порт 2 - Сеть SECURITY <br>&gt; SOMETEXT <br>&gt; Нужно "Порт N" увеличить на 40 <br>&gt; Sed так не умеет, perl не ловит русские буквы. Подскажите решение задачи <br><br>и перл и сед может. для начала сойдет awk & shell<br><br> https://www.opennet.ru/openforum/vsluhforumID9/9498.html#1 Mon, 25 Jun 2012 12:59:34 GMT #!/usr/bin/perl<br><br>use utf8;<br>use open IN =&gt; ':encoding(utf8)';<br><br>open(FF, "list.txt");<br>while(&lt;FF&gt;) {<br> s/(?&lt;=Порт )([0-9][0-9]?)/$1+40/ge;<br> print;<br>}<br><br>