Здравствуйте! Подскажите есть ли в php модуль который исполняет код perl ? Если нет, помогите перевести в php этот небольшой скрипт. Код (Text): #!/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;
Если perl стоит в системе и скрипт имеет нужные права, то можно просто из скрипта php PHP: exec('someperlscript.pl'); ну или так PHP: exec('perl someperlscript.pl');
Мда, тут скрипта кот наплакал. Зачем его внедрять в страницу на php? Впрочем, вам виднее. А перевод perl->php, это не ко мне.
чтобы на php-шных сайтах он отрабатывал. Скрипт изначально на html страницу вставляется инклюдом. Ну пожалуйста!
PHP: <?php $charset = "windows-1251"; $js = "http://www.site.ru/js/obj_view.js"; $url = "http://www.site.ru/cgi-bin/view_rofferts.pl?r=1"; $params = "&country=Индонезия&country=Доминикана&type=Новогодние туры&tours_on=1&prices_on=1&offerts_list_on=1&offerts_list_tours_on=1&offerts_list_spo_on=1"; $url .= !empty($_GET["view"]) ? "&view=" . $_GET["view"] : $params; $js_content = file_get_contents($js); $content = file_get_contents($url); header("Content-Type: text/html; charset=" . $charset); print "<script language=\"JavaScript\">" . $js_content . "</script>"; $content = preg_replace('/src="/si', 'src="http://www.site.ru', $content); $content = preg_replace('/href="\/files/si', 'href="http://www.site.ru/files', $content); print $content; как-то так