ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Iliya Petrusenko                     2:5020/400     18 Jul 2001  17:21:54
 To : All
 Subject : Re: PHP -> Perl
 -------------------------------------------------------------------------------- 
 

 
 "Ed V. Bartosh" <ed@vitebsk.net> wrote in message
 news:85hewb89fk.fsf@bartosh.org...
 
 >
 > Hi, Alexandr!
 >
 > /Tue, 17 Jul 2001 13:10:09 +0400/ Alexandr Maskalik wrote to All:
 >
 > AM> Люди добрые помогите! Если кто может преоброзуйте маленький кодик из
 
 PHP в
 
 > AM> Perl:
 >
 > Если в лоб, то так:
 >
 > #!/usr/bin/perl -w
 >
 > my $count=<DATA> if ( open DATA,"<data.inc");
 > print "&counter=".++$count;
 > print DATA $count if (open DATA,">data.inc");
 >
 > Hо справедливости ради надо отметить, что php-шный код можно аналогично
 > записать:
 >
 > #!/usr/local/bin/php -q
 > <?php
 > if ($file=fopen("data.inc", "r"))  $count=fgets($file,20);
 > echo "&counter=".++$count;
 > if ($file=fopen("data.inc", "w"))  fputs($file,$count);
 > ?>
 >
 > Да и вообще все это, скажем так, далеко от совершенства :)
 > Файлы закрывать и лочить их тут прям-таки напрашивается,
 > но это уже другая история.
 
 С закрытием и локами:
 
 #!/usr/bin/perl -w
 
 my $count=<DATA> if ( open(DATA,"+<data.inc")&& flock(DATA,2));
 print "&counter=".++$count;
 print DATA $count if seek(DATA,0,0);
 close(DATA);
 
 Удачи!
 Илья.
 --- ifmail v.2.15dev5
  * Origin: Demos Online Service (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Re: PHP -> Perl   Ed V. Bartosh   18 Jul 2001 02:46:59   Re: PHP -> Perl   Iliya Petrusenko   18 Jul 2001 17:21:54   PHP -> Perl   Oleg Nevedomsky   19 Jul 2001 02:02:37   Re: PHP -> Perl   Ed V. Bartosh   19 Jul 2001 22:21:49