|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Alexey Gavluk 2:5020/400 28 Jul 2000 14:06:54
To : All
Subject : Re: ограничение
--------------------------------------------------------------------------------
> Интересует, как имея файл, в который идёт постоянное дополнение строк,
> при достижении количества срок более 100, удалять старые? И вообще, если
А при чем тут более 100 или менее ... на сколько я представляю в Перле нет
ограничений на это, ибо "массив" - на самом деле список.
> можно, разьясните подробно, как добавлять строку не в конец файла, а в
> начало, по идее считывать весь файл в массив, потом писать в начало
строку, а
> потом уж дописывать содержимым массива, но, как эту операцию связать с
> вышеизложеныой проблемой. Буду рад любому скрипту, даже без пояснений 8)
Hу а пример..... правда тут желательно еще flock еще использовать ...
+++++++++++++++++++++++++
my $fname="test.txt";
my @str=();
open (FILE,$fname) || die "Hе могу открыть $fname: $!";
while (<FILE>) {
push(@str,$_);
}
close FILE;
unshift (@str,"New string\n");
open (FILE,">$fname") || die "Hе могу открыть $fname: $!";
foreach (@str) {
print FILE $_;
}
truncate(FILE,tell(FILE));
close FILE;
+++++++++++++++++++++++++
--
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: Talk.Ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: ограничение 
