Avatar billede odie Nybegynder
30. september 2003 - 15:09 Der er 8 kommentarer og
1 løsning

view-source i perl/CGi

Hejsa

Når man bruger view-source:http://www.google.com kommer http koden op i min notesblok.

Jeg kunne nu godt tænke mig at få lavet det således at http koden kommer op i en form og går ud fra at jeg skal bruge perl til det, men hvordan.

Jeg har forsøgt med:
------
#!/usr/bin/perl

use LWP::UserAgent;
$ua = LWP::UserAgent->new;

my $req = HTTP::Request->new(GET => 'http://www.google.dk');
$req->content_type('text/plain');

my $res = $ua->request($req);
print $res->as_string;
exit;
------
Men det får jo bare min side til at åbne en normal http side i min browser.

Det skal bruges til noget automatisk statistik i et spil jeg spiller på nettet.

Håber på lidt hjælp.

/Odie
Avatar billede clausjul Nybegynder
30. september 2003 - 15:12 #1
Prøv denne:

my $res = $ua->request($req);
-> my $retval = $res->content; <- skal på
print $res;
Avatar billede odie Nybegynder
30. september 2003 - 15:23 #2
Hmmmm
---------
#!/usr/bin/perl

use LWP::UserAgent;
$ua = LWP::UserAgent->new;

my $req = HTTP::Request->new(GET => '<http://www.google.dk');
$req->content_type('text/plain');

my $retval = $res->content;

my $res = $ua->request($req);
my $retval = $res->content;
print $res;
exit;
---------
Giver flg. fejlkode:
"Can't call method "content" on an undefined value at xxxxx\test.pl line 9."
Avatar billede odie Nybegynder
30. september 2003 - 15:35 #3
Hova der er 2 my @retval....

Men koden:
--------
#!/usr/bin/perl

use LWP::UserAgent;
$ua = LWP::UserAgent->new;

my $req = HTTP::Request->new(GET => 'http://www.google.dk');
$req->content_type('text/plain');

my $res = $ua->request($req);
my $retval = $res->content;
print $res;
exit;
--------
CGI Error
The specified CGI application misbehaved by not returning a complete set of HTTP headers. The headers it did return are:

HTTP::Response=HASH(0x1c4687c)
Avatar billede clausjul Nybegynder
30. september 2003 - 17:02 #4
Aha - du skal skrive:
my $retval = $res->content;
print $retval; <- Det var ikke $res, men $retval - Sorry
Avatar billede odie Nybegynder
30. september 2003 - 17:09 #5
Den prøvede jeg også at bruge. prøv at se resultatet her: http://www.thelastcall.dk/cgi-bin/test.pl

med flg. kode:
----
#!/usr/bin/perl

use LWP::UserAgent;
$ua = LWP::UserAgent->new;

my $req = HTTP::Request->new(GET => 'http://www.google.dk');
$req->content_type('text/plain');

my $res = $ua->request($req);
my $retval = $res->content;
print $retval;
exit;
-----
Sorry.. Jeg er ikke så stærk i cgi script endnu, men jeg arbejder på det ;-)
Avatar billede clausjul Nybegynder
30. september 2003 - 17:14 #6
prøv at skrive:

print "content-type:text/html\n\n"; <- ny
print $retval;

Læs mere om det på http://www.httprevealer.com/usage_perl.htm
Avatar billede odie Nybegynder
30. september 2003 - 17:18 #7
Ok. Nu kommer der ingen fejl (har læst siden), men jeg får ikke min view-source frem.. Og det har "content-type" da ikke noget at gøre med eller ?
Avatar billede clausjul Nybegynder
30. september 2003 - 19:07 #8
Aha - du vil have sourcen frem - hm... normalt kan det ikke lade sig gøre, men jeg har en hint:

$retval =~ s/</&lt;/gi;
$retval =~ s/>/&gt;/gi;
print $retval;

Prøv det!
Avatar billede odie Nybegynder
30. september 2003 - 19:09 #9
Kanon... Ligesom jeg vil have det !!!! Tusind tak ..
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester