| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Perl: Общие вопросы > Поиск слов в файле и его замена! |
| Автор: Aversus 14.5.2017, 19:33 |
| Ребята помогите пожалуйста с таким вопросом! Думаю многие когда начинали изучать Perl каким то образом с ним сталкивались! Просто необходимо прошерстить весь сервак по словам напимер: @mycompany1.com и @mycompany1.com - (с возможностью исключить какие либо диектории и расширении файлов) и в тех файлах в которых встречаются эти слова: 1. Cделать бэкап этого файла так сказать на всякий случай (для отката) Пример: Файл назывался script.pl и в эту же директорию ложиться его копия с названием script.pl.13_05_2017.backup12345 2. А в оригинальном файле (script.pl) сделать замену этих слов @mycompany1.com и @mycompany1.com на @mycompany3.com Думаю может у кого будет готовый вариант, буду крайне благодарен! |
| Автор: arto 14.8.2017, 14:42 |
| find / -type f -print0 |xargs -r0 grep -l str | while read file; do sed -i".13_05_2017.backup12345" -e "s#str#str2#g"; done |