VPF::Работа с файлами - Форум программистов

study

Дата 22.6.2005, 11:03 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 126
Регистрация: 20.9.2004

Репутация: нет
Всего: нет

Привет Всем...
Народ, помогите мне написать код, который бы удалял из файла первую строчку...
smile

вот как последную удалить знаю:

Код


use Tie::File;
tie @lines, Tie::File, $file or die "Cannot update $file: $!";
delete $lines[-1];

Хотя почему-то этот код, удаляет весь файл....

Это сообщение отредактировал(а) study - 22.6.2005, 11:07

chaos

Дата 22.6.2005, 11:22 (ссылка)

(нет голосов)

Загрузка ...

Серийный программист

Профиль
Группа: Завсегдатай
Сообщений: 2979
Регистрация: 7.7.2004
Где: Екатеринбург

Репутация: 6
Всего: 44

самый простой вариант сделать так

Код


open(F, "<file") || die;
@arr = <F>;
close(F);

open(F,">file") || die;
print F $arr[$_] for(1..$#arr); 
close(F);

но не самый красивый

study

Дата 22.6.2005, 11:34 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 126
Регистрация: 20.9.2004

Репутация: нет
Всего: нет

Ща попробую, а нельзя как-нибудь сделать, что-бы не копировать весь файл в память, а то он большой....

chaos

Дата 22.6.2005, 11:40 (ссылка)

(нет голосов)

Загрузка ...

Серийный программист

Профиль
Группа: Завсегдатай
Сообщений: 2979
Регистрация: 7.7.2004
Где: Екатеринбург

Репутация: 6
Всего: 44

можно конечно извратится и написать так:

Код


open(F, "<file") || die;
open(F2, ">file2") || die;
$flag = 0;
while (<F>) {
  $flag = 1, next if ($flag == 0);
  print F2 $_;
}
close(F2);
close(F);

rename "file2", "file";

study

Дата 22.6.2005, 11:44 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 126
Регистрация: 20.9.2004

Репутация: нет
Всего: нет

Спасиьо за помощь chaos!!!
Добавлено @ 11:45
Слушай, а ты не помнишь, как проверить существует ли файл, по-моему -e, можешь написать пимерчик...

chaos

Дата 22.6.2005, 11:48 (ссылка)

(нет голосов)

Загрузка ...

Серийный программист

Профиль
Группа: Завсегдатай
Сообщений: 2979
Регистрация: 7.7.2004
Где: Екатеринбург

Репутация: 6
Всего: 44

Цитата

написать пимерчик...

тут писать нельзя)))

вот тебе ссылка, на твою же проблему
http://forum.vingrad.ru/index.php?showtopic=30215&hl=chaos

Это сообщение отредактировал(а) chaos - 22.6.2005, 11:48

study

Дата 22.6.2005, 13:05 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 126
Регистрация: 20.9.2004

Репутация: нет
Всего: нет

точно, спасибки!!!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »