Добавлено: 11 дек 2006, 06:17
Легко. Читайте документацию на PHP.
Например, на perl это может выглядеть так.
#!/usr/bin/perl
require LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $response = $ua->get('http://localhost:8181/status');
print ("Content-Type: text/html\n\n");
if ($response->is_success) {
print $response->content;
}
else {
print ("Error loading");
}
Например, на perl это может выглядеть так.
#!/usr/bin/perl
require LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $response = $ua->get('http://localhost:8181/status');
print ("Content-Type: text/html\n\n");
if ($response->is_success) {
print $response->content;
}
else {
print ("Error loading");
}