Få html fra en anden side automatisk!

...kan lade sig gøre i ASP, kig på:
http://www.alphasierrapapa.com/iisdev/components/asptear/
-hvis det har interesse....?!?

#!/usr/bin/perl
#use strict;
$| = 1;
my $VERSION = "1.0";

use LWP::UserAgent;
use URI::Escape;

my $query = uri_escape(shift);

my $QBASE = "http://panton.virtualave.net/";

my $ua = new LWP::UserAgent;
$ua->agent("panton/$VERSION");
$ua->env_proxy;

$_ = &fetch("$QBASE");
print $_;

 
sub fetch {
my $url = shift;


my $request = new HTTP::Request('GET',$url);
my $response = $ua->request($request);
die "$url failed: ",$response->error_as_HTML
unless $response->is_success;
$response->as_string()

}

- panton
Kan du ikke lige forklare lidt om scriptet? hvad skal/kan ændres for at få noget bestemt ned fra en bestemt side?

- Intenz

my $QBASE = "http://panton.virtualave.net/";

http://panton.virtualave.net/ ændres til din server

og starter den så bare foroven med at tage html ned? Kan man ikke få den til bare at tage noget bestemt html???

Skal man lave en
<!--#exec cgi="scriptet.cgi"-->
for at vise hvor den skal sætte det ind?

- Intenz

#!/usr/bin/perl
#use strict;
$| = 1;
my $VERSION = "1.0";

use LWP::UserAgent;
use URI::Escape;

my $query = uri_escape(shift);

my $QBASE = "http://panton.virtualave.net/";

my $ua = new LWP::UserAgent;
$ua->agent("panton/$VERSION");
$ua->env_proxy;

$_ = &fetch("$QBASE");
print $_;

 
sub fetch {
my $url = shift;


my $request = new HTTP::Request('GET',$url);
my $response = $ua->request($request);
die "$url failed: ",$response->error_as_HTML
unless $response->is_success;
$HTML = $response->as_string()

}


#$HTML er htmlsiden...
#du kan jo "bare" lave en s/søg/erstat/g;
#

nå ja...

Det fatter jeg ikke en skid af!
hmmm....

- Intenz

Hvad mener du med det dog???

Hvilken del af html-siden er det du skal bruge!!!

jaaa, det kommer jo an på hvilken side jeg får tilladelse til at "hugge" html fra!

Hvis jeg nu kun skal bruge ca. 10 linjer, 1/3 nede på siden, hva' så?

- Intenz

Først skal jeg lige sige at det ikke er alle servere at scriptet virker på

Har du prøvet at skrive:

print "Content-type: text/html\n\n";
print $HTML;

efter scriptet!!

Jeg får en 500 error!

- Intenz

se svar her:
http://www.eksperten.dk/spm.asp?id=15332

Det kan være at nogle bibloteker ikke er installeret på serveren

Det er da nemt..
<? require("http://www.server.dk/side.html"); ?>

Pis...det var der ingen der kunne svare på!

"Hvis jeg nu kun skal bruge ca. 10 linjer, 1/3 nede på siden, hva' så?"

- Intenz