ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexandr Maskalik                    2:450/215.35   17 Jul 2001  13:10:09
 To : All
 Subject : PHP -> Perl
 -------------------------------------------------------------------------------- 
 

 
 Люди добрые помогите! Если кто может преоброзуйте маленький кодик из PHP в
 Perl:
 
 <?php // начало выполнения программы;
 $var1 = '&counter='; // присваиваем переменной значение, в стандарте, который
 будет понимать флеш;
 if ($file=fopen("data.inc", "r"))
 {
 $count = fread($file, 10);
 } // если существует файл data.txt, его открыть, и присвоить значение
 переменной count такое, какое число в том файле;
 $count++; // добавляем единицу;
 if ($file=fopen("data.inc", "w"))
 {
 fputs ($file, $count);
 } // записываем результат переменной count в файл data.inc при удачном открытии
 его для записи;
 echo $var1; // выводим переменную для того, чтоб это барахло смог распознать
 флеш;
 echo $count; // выводим кол-во посетителёй;
 
 ?> // конец.
 
 ----------------------------------------------------------------------
 Он вроде несложный и с коминтариями.
                 C уважением, Alexandr Maskalik.
 ... -=[RaZe]=-
 --- Текстовый редактор "Блокнот" v 4.10.1998
  * Origin: Hу усе... Рэгламент! (2:450/215.35)
 
 

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