Perl

После того, как Укртелеком ввел новые тарифы на ADSL и до 24 Мбіт/с дома — это уже реальность, начал я думать какой-то скрипт для перезапуска PPPoE соединения. Моя линия смогла выдержать соединение на 17 Мбіт/с, но соединение на FreeBSD стало регулярно 1 раз в сутки зависать.

И так, на Perl написал скрипт, который пингует Яндекс (у Вас должен быть установлен perl модуль p5-Net-Ping) и если пинг не проходит, перезапускаем соединение. События логируем в /var/log/ppp.log для анализа. А вот и сам скрипт, который нужно прописать в crontab:

Стояла задача: швидко замінити у 200 XML файлах стрічку «tbl_Offering» на «tbl_OfferingMovement». Ось як це можна зробити одним рядком Perl коду під Debian GNU/Linux (оригінал кожного файлу зберігається окремо з розширенням bak):

perl -i.bak -p -e 's/tbl_Offering/tbl_OfferingMovement/gi;' *