Здравствуйте! Подскажите есть ли в 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; |
Цитата (fryze @ 29.09.2009 - 08:23) | ||
Здравствуйте! Подскажите есть ли в php модуль который исполняет код perl ? Если нет, помогите перевести в php этот небольшой скрипт.
Заранее большое спасибо! |