ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Comoderator of RU.CGI.PERL           2:5020/371.32  31 Jul 2000  12:01:25
 To : kulv@ukrnet.net
 Subject : Moderatorial [+] (Re: ограничение)
 -------------------------------------------------------------------------------- 
 

 kun> From: "Alexey Gavluk" <kulv@ukrnet.net>
 
 >>     Интересует, как имея файл, в который идёт постоянное дополнение строк,
 >>   при достижении количества срок более 100, удалять старые? И вообще, если
 
 kun> А при чем тут более 100 или менее ... на сколько я представляю в Перле нет
 kun> ограничений на это, ибо "массив" - на самом деле список.
 
 >>   можно, разьясните подробно, как добавлять строку не в конец файла, а в
 >>   начало, по идее считывать весь файл в массив, потом писать в начало
 kun> строку, а
 >>   потом уж дописывать содержимым массива, но, как эту операцию связать с
 >>   вышеизложеныой проблемой. Буду рад любому скрипту, даже без пояснений 8)
 
 kun> Hу а пример..... правда тут желательно еще flock еще использовать ...
 
 kun> +++++++++++++++++++++++++
 kun> my $fname="test.txt";
 kun> my @str=();
 
 kun> open (FILE,$fname) || die "Hе могу открыть $fname: $!";
 kun> while (<FILE>) {
 kun>    push(@str,$_);
 kun> }
 kun> close FILE;
 
 kun> unshift (@str,"New string\n");
 
 kun> open (FILE,">$fname") || die "Hе могу открыть $fname: $!";
 kun> foreach (@str) {
 kun>     print FILE $_;
 kun> }
 kun> truncate(FILE,tell(FILE));
 kun> close FILE;
 kun> +++++++++++++++++++++++++
 Оффтопик. В RU.PERL.
 kun> -- 
 kun> Отправлено через сервер Talk.Ru - http://www.talk.ru
 
 -- 
 Artem Chuprina        2:5020/371.32 AKA cmrcp@ran.pp.ru        Артём Чуприна
 Comoderator of FIDOnet conference         Комодератор эхоконференции FIDOnet
                                 RU.CGI.PERL
 
 --- ifmail v.2.14.os-p7-tma3
  * Origin: MemoNet (2:5020/371.32@fidonet)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор