181
Perl / Запуск PHP скрипта из Perl
« : 05 Декабря 2006, 10:56:44 »
если вы уже апач приплели, то можете просто генерить запрос
Запрос в PHP:
http://www.example.com/\'); ?>
#array file ( string filename [, int use_include_path [, resource context]] )
Запрос в Perl:
use LWP;
my $def_url = shift || http://default.url\';
my ($line) = get_url_content($def_url);
#http://search.cpan.org/~gaas/libwww-perl-5.805/lib/LWP.pm#The_Response_Object
sub get_url_content {
my $url = $_[0];
my $agent = LWP::UserAgent->new;
my $request = HTTP::Request->new( GET => $url );
my $response = $agent->request($request);
$response->is_success or die "can\'t connect $url", $response->message, "\\n";
return $response->content();
}
Запрос в PHP:
http://www.example.com/\'); ?>
#array file ( string filename [, int use_include_path [, resource context]] )
Запрос в Perl:
use LWP;
my $def_url = shift || http://default.url\';
my ($line) = get_url_content($def_url);
#http://search.cpan.org/~gaas/libwww-perl-5.805/lib/LWP.pm#The_Response_Object
sub get_url_content {
my $url = $_[0];
my $agent = LWP::UserAgent->new;
my $request = HTTP::Request->new( GET => $url );
my $response = $agent->request($request);
$response->is_success or die "can\'t connect $url", $response->message, "\\n";
return $response->content();
}