[ Поиск ] - [ Пользователи ] - [ Календарь ]
Полная Версия: Перевод скрипта из perl в php
fryze
Здравствуйте! Подскажите есть ли в php модуль который исполняет код perl ?
Если нет, помогите перевести в php этот небольшой скрипт.
Цитата
#!/usr/bin/perl -w



use strict;

use CGI qw( :all );

use CGI::Pretty qw( :html4 );

use LWP::Simple;



# Глобальные переменные

my $cgi = new CGI;

my $charset = "windows-1251";

my $js = "http://www.site.ru/js/obj_view.js";

my $url = "http://www.site.ru/cgi-bin/view_rofferts.pl?r=1";

my $params = "&country=Индонезия&country=Доминикана&type=Новогодние туры&tours_on=1&prices_on=1&offerts_list_on=1&offerts_list_tours_on=1&offerts_list_spo_on=1";



if (param("view")) { my $view = param("view"); $url .= "&view=".$view }

else { $url .= $params }



my $js_content = get($js);

my $content = get($url);



print $cgi->header( -type=>'text/html',-charset=>$charset );

print "<script language=\"JavaScript\">".$js_content."</script>";

$content =~ s/src="/src="http:\/\/www\.site\.ru/gi;

$content =~ s/href="\/files/href="http:\/\/www\.site\.ru\/files/gi;

print $content;



exit;


Заранее большое спасибо!



Спустя 2 часа, 22 минуты, 44 секунды (29.09.2009 - 13:46) Stuff_f написал(а):
Цитата (fryze @ 29.09.2009 - 08:23)
Здравствуйте! Подскажите есть ли в php модуль который исполняет код perl ?
Если нет, помогите перевести в php этот небольшой скрипт.
Цитата
#!/usr/bin/perl -w



use strict;

use CGI qw( :all );

use CGI::Pretty qw( :html4 );

use LWP::Simple;



# Глобальные переменные

my $cgi = new CGI;

my $charset = "windows-1251";

my $js = "http://www.site.ru/js/obj_view.js";

my $url = "http://www.site.ru/cgi-bin/view_rofferts.pl?r=1";

my $params = "&country=Индонезия&country=Доминикана&type=Новогодние туры&tours_on=1&prices_on=1&offerts_list_on=1&offerts_list_tours_on=1&offerts_list_spo_on=1";



if (param("view")) { my $view = param("view"); $url .= "&view=".$view }

else { $url .= $params }



my $js_content = get($js);

my $content = get($url);



print $cgi->header( -type=>'text/html',-charset=>$charset );

print "<script language=\"JavaScript\">".$js_content."</script>";

$content =~ s/src="/src="http:\/\/www\.site\.ru/gi;

$content =~ s/href="\/files/href="http:\/\/www\.site\.ru\/files/gi;

print $content;



exit;


Заранее большое спасибо!

blink.gif , знаешь интересный вопрос, это примерно как скрестить а камболу и морского бычка,но, к сожалени, интерпретатор не поддерживает такой возможности в PHP, не знаю поможет тебе этои или нет, ты можешь в perl, а точнее, в cgi-bin ? потому что perl интерпретатор, позваляет устанавливать любые интерпретаторы в cgi-bin, но как известно, он будет php просто исполняемый, как бы тебе обьяснить, что значит исполняемый, т.е. ну будет как бы в фоне находится, это можно допустим использовать для защиты, а именно предохраняет от хакерской атаки, на кпримеру на твой сайт, как хакеры ее называют межсайтовая атака, если я не ощибаюсь потому как, давно уже, этим увлекался, кпримеру http://your_host.ru/cgi-bin/php?/../../passwd


ну наверное мне не стоило бы этого говорить, я тут не хак, кружки провожу просто пытаюсь обьяснить,что делает эта команда, тоесть тот запрос , который делает, кпримеру злоумышленик(Хакер) wink.gif, проходит как команда командной строки ,т.е, интерпретатора cgi, а обычно происходит так, что интерпретатор выполняет данную команду,т.е, если в спомнить unix систему. /../../ <- обычный переход по каталогам, а passwd это файл паролей, правда, закодированные Хеш паролями, хм, пот так вот.

но есть плюс в том, что исполняемый сgi файл php отказывается выполнять эту команду, как бы игнорирует или не реагирует на них , sad.gif ,

Но ты можешь делать пере напровления, помойму, тоесть ,а сделать и перенапровление из php в cgi,
Быстрый ответ:

 Графические смайлики |  Показывать подпись
Здесь расположена полная версия этой страницы.
Invision Power Board © 2001-2024 Invision Power Services, Inc.