15.09.2007, 21:17
|
|
Новичок
Регистрация: 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. Я понимаю, что вся эта байда с двумя файлами вообще не нужна, но, по возможности, объясните в чём трабл, а не придумывайте простые решения. Заранее спасибо  |
|
|