Замена строчки в файле
При применении такого кода:
файл очищается полностью, вместо замены одной строки. Хотя так:
срабатывает. Подскажите пожалуйста, что поправить?
Код:
open (IF, "/var/www/d-link/switch150.cfg");
open (OF, ">/var/www/d-link/switch150.cfg");
while (<IF>)
{
chomp;
s/account admin//ig;
}
close (IF);
close (OF);
open (OF, ">/var/www/d-link/switch150.cfg");
while (<IF>)
{
chomp;
s/account admin//ig;
}
close (IF);
close (OF);
Код:
# perl -e 's/account admin//g' -pi switch150.cfg