https://opennet.me/openforum/vsluhforumID9/7014.html Подскажите как на Перле или может ещё на чём в нужное место (т.к. в ЛОГ-файле все поля в одних и тех же местах) при условии, что слово наинается на 77 или 76 подставить в начало тройку,т.е. чтоб на выходе получить результат в том поле 377 или 376 ??<br><br>Скрипт просто поиска по шаблону и замены не подходит, т.к. в других полях файла тоже может быть совпадение.<br><br>примерный алгаритм:<br><br>Если строка начианется с символа "N" и 18й символ имеет значение "7" а 19е "6", то <br> между 17м и 18м символом воткнуть символ "3" , чтоб при этом как при обычном форматировании текста в текстовом редакторе всё содержимое с права сдвинулось на право на один символ,таким образом, что вставленный символ "3" оказался на 18м месте.. и далее удалить пробел с 24го места.<br><br>т.е. на входе:<br><br>N 115 00 T013028 76005 11/28 23:04 00:08:44 <br> & 0000 0000 375434XXXXXXXXXX <br><br>а на выходе должно быть так:<br><br>N 115 00 T013028 376005 11/28 23:04 00:08:44 <br> & 0000 0000 375434XXXXXXXXXX <br><br><br><br> https://opennet.me/openforum/vsluhforumID9/7014.html#2 Sat, 08 Dec 2007 18:38:54 GMT &gt;Для вывода на экран <br>&gt;<br>&gt;perl -p -e 'if( substr($_,17,2) =~ /7[67]/ ) { substr($_,23,1) = ""; <br>&gt;substr($_,17,0)="3";}' /path/to/log <br>&gt;<br>&gt;Для правка файла <br>&gt;<br>&gt;perl -pi -e 'if( substr($_,17,2) =~ /7[67]/ ) { substr($_,23,1) = ""; <br>&gt;substr($_,17,0)="3";}' /path/to/log <br><br>Спасибо, работает :)<br> https://opennet.me/openforum/vsluhforumID9/7014.html#1 Sat, 08 Dec 2007 16:10:09 GMT Для вывода на экран<br><br>perl -p -e 'if( substr($_,17,2) =~ /7[67]/ ) { substr($_,23,1) = ""; substr($_,17,0)="3";}' /path/to/log <br><br>Для правка файла <br><br>perl -pi -e 'if( substr($_,17,2) =~ /7[67]/ ) { substr($_,23,1) = ""; substr($_,17,0)="3";}' /path/to/log <br>