Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 11646
Последний выпуск: 19.06.2015

Почему не происходит замены в файле?

10K
25 июня 2013 года
trinitro
48 / / 14.06.2010
Пытаюсь написать скрипт который за менял бы в одну фразу на другую.
Скрипт вот:


Код:
#!/use/bin/perl -w

use strict;

open(OF, "+< /var/www/d-link/conf")

    While(my $file = <OF>)
    {
        $file =~ s/sa/ppp/g;
    }

close(OF);
После выполнения #perl ./var/www/d-link/conf ошибок на консоли нет, но и в файле conf ничего не меняется. Помогите пожалуйста!
10K
25 июня 2013 года
trinitro
48 / / 14.06.2010
Разделил чтение и запись:


Код:
open(IF, "< /var/www/d-link/conf") or die $!;
open(OF, "> /var/www/d-link/conf.tmp" ) or die $!;
while(<IF>)
{
    s/sa/*/g;
    print NEW $_;
}

close(OF);
close(IF);

#copy new to old:

rename $/var/www/d-link/conf, /var/www/d-link/conf.bkp;
rename $/var/www/d-link/conf.tmp, /var/www/d-link/conf;
Так сработало

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог