Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: 6310
Последний выпуск: 19.06.2015

С PERL на PHP

86K
07 ноября 2012 года
deeand
1 / / 07.11.2012
Помогите, пожалуйста, перевести с PERL на PHP. С PERL никогда не сталкивался + хостинг его не поддерживает:(

Код:
#!/usr/bin/perl -w
use strict;
use 5.014;
use CGI qw(:all);
print "Content-Type: text/plain; charset=utf-8\n\n";

open FILE, "example.txt" or die "Cen't open file: $!";
my @fl = <FILE>;
close FILE;

if (@fl[0] >= 10) {
  say "10 clicks!!!!!";
  exit;
}

unless (param('i') == 1) {
  say @fl[0];
} else {
  open FL, ">example.txt" or die "Cen't open file: $!";
  print FL @fl[0]+1;
  close FL;
  say @fl[0]+1;
}
и вот этот

 
Код:
#!/usr/bin/perl -w
use strict;
print "Content-Type: text/plain; charset=utf-8\n\n";
open FILE, ">example.txt" or die "Cen't open file: $!";
close FILE;
print "Done!";
Буду вам весьма признателен.
4
08 ноября 2012 года
mike
3.7K / / 01.10.2002
Код изначально корявый. Никаких проверок.

Код:
<?php

print "Content-Type: text/plain; charset=utf-8\n\n";

$fl=file("example.txt");
if (intval($fl[0]) >= 10) {
    print "10 clicks!!!!!\n";
    exit;
    }

if ($_REQUEST('i') != 1) {
    print $fl[0]."\n";
    }
else {
    $fw=fopen("example.txt","w");
    fputs($fw,($fl[0]+1)."\n");
    fclose($fw);
    print $fl[0]+1;
    }
?>

 
Код:
<?php

print "Content-Type: text/plain; charset=utf-8\n\n";
$fw=fopen("example.txt","w");
if ($fw) close($fw); else die "Cen't open file!";
print "Done!";

?>

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог