ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Comoderator of RU.CGI.PERL           2:5020/371.32  31 Jul 2000  12:02:18
 To : sapa@icb.chel.su
 Subject : Moderatorial [+] (Re: ограничение)
 -------------------------------------------------------------------------------- 
 

 sics> From: Andrey Sapozhnikov <sapa@icb.chel.su>
 
 sics> Alexey Gavluk wrote:
 >> 
 >> >     Интересует, как имея файл, в который идёт постоянное дополнение строк,
 >> >   при достижении количества срок более 100, удалять старые? И вообще, если
 >> Hу а пример..... правда тут желательно еще flock еще использовать ...
 >> 
 >> my $fname="test.txt";
 >> my @str=();
 
 sics> Зачем? Он и так создается пустым.
 sics>  
 >> open (FILE,$fname) || die "Hе могу открыть $fname: $!";
 
 sics> Hеплохо привыкнуть к "<$fname", а то как-нибудь ради шутки
 sics> кто-нибудь задаст имя начинающееся с >
 
 >> while (<FILE>) {
 >>    push(@str,$_);
 >> }
 
 sics> my @str=<FILE>;
 
 >> close FILE;
 >> 
 >> unshift (@str,"New string\n");
 >> 
 >> open (FILE,">$fname") || die "Hе могу открыть $fname: $!";
 >> foreach (@str) {
 >>     print FILE $_;
 >> }
 
 sics> print FILE @str;
 
 >> truncate(FILE,tell(FILE));
 
 sics> Зачем? Мы же и так обнулили его длину когда открыли на запись?
 
 >> close FILE;
 
 sics> Андрей
 
 sics> P.S. А ответа на поставленный вопрос тут так и нет.
 sics> P.P.S. Hадо добавить строку:
 sics> $#str=99 if $#>str99; # 99 это заданные 100 минус 1 :-)
 
 Оффтопик. В RU.PERL.
 
 -- 
 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)
 
 

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