ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Yuriy Kaminskiy                      2:5020/517.21  19 Jul 2001  02:22:58
 To : Iliya Petrusenko
 Subject : Re: PHP -> Perl
 -------------------------------------------------------------------------------- 
 

 
 >>>>> On 16:21 18/7/2001, ilushka@akela.inc.ru writes:
  IP> С закрытием и локами:
  IP> #!/usr/bin/perl -w
  IP> my $count=<DATA> if ( open(DATA,"+<data.inc")&& flock(DATA,2));
  IP> print "&counter=".++$count;
  IP> print DATA $count if seek(DATA,0,0);
 
  Ай-я-я. truncate DATA, tell(DATA); забыл.
 Конечно, учитывая, что длина строки в данном случае должна только
 увеличиваться, без него можно и обойтись, но...
 
  IP> close(DATA);
 
 -- 
 Yuriy Kaminskiy.
 --- Gnus v5.2.25/XEmacs 19.14
  * Origin: C2B8 59EA 497A D6F6 2640 0E49 D84A AADA EACE (2:5020/517.21@fidonet)
 
 

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