[Perl] Новичкам: задаем вопросы

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

работа с файлами

#11

15.09.2007, 21:17

malamut

Новичок

Регистрация: 08.09.2007

Сообщений: 3

Провел на форуме:
10440

Репутация: 0

работа с файлами

Сорри за тупой вопрос. Нужно удалить из файла все строки, начинающиеся со "*". Делаю кривым путём

Код:

open (MYFILE, 'p.txt');
open(TEMP,'>>p~.txt');
while (<MYFILE>)
{
  if ( substr($_, 0, 1) != "*")
  {
    chomp;
    print TEMP "*".$_."\n";
  }
}
close (MYFILE);
close(TEMP);
rename("p~.txt", "p.txt");

Файл становится пустым (p.txt). Хотя первый символ определяет правильно. Подскажите в чём прикол?
P.S. Я понимаю, что вся эта байда с двумя файлами вообще не нужна, но, по возможности, объясните в чём трабл, а не придумывайте простые решения. Заранее спасибо