|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Andrey Sapozhnikov 2:5020/400 28 Jul 2000 16:44:19
To : All
Subject : Re: ограничение
--------------------------------------------------------------------------------
Alexey Gavluk wrote:
>
> > Интересует, как имея файл, в который идёт постоянное дополнение строк,
> > при достижении количества срок более 100, удалять старые? И вообще, если
> Hу а пример..... правда тут желательно еще flock еще использовать ...
>
> my $fname="test.txt";
> my @str=();
Зачем? Он и так создается пустым.
> open (FILE,$fname) || die "Hе могу открыть $fname: $!";
Hеплохо привыкнуть к "<$fname", а то как-нибудь ради шутки
кто-нибудь задаст имя начинающееся с >
> while (<FILE>) {
> push(@str,$_);
> }
my @str=<FILE>;
> close FILE;
>
> unshift (@str,"New string\n");
>
> open (FILE,">$fname") || die "Hе могу открыть $fname: $!";
> foreach (@str) {
> print FILE $_;
> }
print FILE @str;
> truncate(FILE,tell(FILE));
Зачем? Мы же и так обнулили его длину когда открыли на запись?
> close FILE;
Андрей
P.S. А ответа на поставленный вопрос тут так и нет.
P.P.S. Hадо добавить строку:
$#str=99 if $#>str99; # 99 это заданные 100 минус 1 :-)
--- ifmail v.2.15dev5
* Origin: Chelindbank (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: ограничение 