Forum Webscript.Ru

Программирование => Perl => Тема начата: Axion от 14 Декабря 2002, 00:43:17

Название: Удаление строки
Отправлено: Axion от 14 Декабря 2002, 00:43:17

Вот кусок кода:

open (FILE,">$base_autors");
@LINES=;
$SIZE=@LINES;
for ($i=0;$i<=$SIZE;$i++) {
   $_=$LINES[$i];
   if (/\\-\\|\\-$god\\-\\|\\-$tom\\-\\|\\-$nom\\-\\|\\-$sta\\-\\|\\-(.*)\\-\\|\\-(.*)\\-\\|\\-/) {
   $del="ok";
   } else {
      print FILE $_;
   }
}
close FILE;

Он по идее должен делать:
открывает файл, удаляет строку, содержащую:
-|-$god-|-$tom-|-$nom-|-$sta-|-(.*)-|-(.*)-|-
остальные строки должны остаться без изменений

Он делает:
Удаляет из файла ВСЁ


Почему так?

Название: Удаление строки
Отправлено: YA от 14 Декабря 2002, 01:41:53

Цитировать

Почему так?

Ты очищаешь файл первой же строкой. Читай про open, sysopen.
А еще используй поиск по форуму - недавно вроде обсуждали.

Название: Удаление строки
Отправлено: Axion от 14 Декабря 2002, 01:56:36

Н ведь я же делаю:
 print FILE $_;

...непонимаю

Название: Удаление строки
Отправлено: YA от 14 Декабря 2002, 02:04:50

Если тебе лень почитать доки (я же пальцем уже ткнул!), учись отлаживать свои скрипты - проверь для начала, что находится в @LINES после второй строки - там не будет того, что ты ожидаешь.

Название: Удаление строки
Отправлено: Mog. от 14 Декабря 2002, 08:21:16

Axion

Цитировать

Н ведь я же делаю:
print FILE $_;

а еще ты делаешь

Цитировать

open (FILE,">$base_autors");

поэтому YA тебе тонко намекает, что открыв файл в режиме записи туды, ты первым "принтом" стираешь все содержимое тама. Ибо как сказано в мануале, открывши файл только для записи и записамши туда хоть что нибудь, да уничтожишь все содержимое файла.

Название: Удаление строки
Отправлено: ---===STINGER===--- от 03 Января 2003, 16:15:30

ГЫ! Точно! и ещё одно! Правельнее писать не open (FILE,">$base_autors"); А open (FILE,">",$base_autors"); так скрпт не перепутает имя файла с Аргементом, что вполне вероятно под Unix системами ....
Так написанно в Кемел Буке (Лари Уол)!:)

Название: Удаление строки
Отправлено: NeoNox от 03 Января 2003, 16:37:45

---===STINGER===---
Ты бы хоть когда советы даешь проверял что пишешь.

Название: Удаление строки
Отправлено: YA от 03 Января 2003, 20:30:34

---===STINGER===---, еще не забывай, что многие до сих пор сидят на версии 5.0 - там такое работать вообще не будет.