Перевод из Perl в Php

  • Автор темы fryze
  • Дата начала
F

fryze

Гость
#1
Здравствуйте! Подскажите есть ли в 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;