|
Модераторы: korob2001, ginnie |
|
Aversus |
|
|||
Новичок Профиль Группа: Участник Сообщений: 1 Регистрация: 14.5.2017 Репутация: нет Всего: нет |
Ребята помогите пожалуйста с таким вопросом! Думаю многие когда начинали изучать 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 |
|
|||
Эксперт Профиль Группа: Завсегдатай Сообщений: 1495 Регистрация: 31.10.2004 Репутация: 38 Всего: 40 |
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
|
|||
|
||||
Правила форума "Perl" | |
|
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq. |
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Perl: Общие вопросы | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |