ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Ed V. Bartosh                        2:5020/400     18 Jul 2001  02:46:59
 To : Alexandr Maskalik
 Subject : Re: PHP -> Perl
 -------------------------------------------------------------------------------- 
 

 
 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);
 
 ?>
 
 Да и вообще все это, скажем так, далеко от совершенства :)
 Файлы закрывать и лочить их тут прям-таки напрашивается,
 но это уже другая история.
 
 -- 
 Best regards, Ed
 
 Отправлено через сервер Talk.Ru - http://www.talk.ru
 --- ifmail v.2.15dev5
  * Origin: Ed @ home (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