perl surft nicht richtig

Hallo,

ich versuche gerade perl das surfen beizubringen. Ich möchte mit folgendem
Code diese Seite abrufen:
use strict;
#use WWW::Mechanize;
#use HTML::Entities;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new();

#my $agent = WWW::Mechanize->new(autocheck => 1);

my $url = 'http://XXXX/test.php?a=Name&b=Test';

my $request = HTTP::Request->new('GET', $url);
my $file = 'local.html';
my $response = $ua->request($request,$file);

if ( $response->is_error() ) {
print "Error-Code : ", $response->code() , "\n";
print "Fehlermeldung: ", $response->message() , "\n";
}
else {
print $response->content() , "\n";
}

Leider steht in der Datei die html Seite und nicht die Interperation
derselben.









<br /> Daten<br /> <P><br /> <DIV ALIGN="CENTER"><A<br /> HREF="http://xxx/test.php?a=Name&b=Test">http://XXXX/</A></DIV><br />


Was mache ich falsch?
wie kann perl die Datenbankabfrage machen. Wenn ich die Datei Local.html in
einen Browser lade verfolständigt es sich zu dem was ich haben will. Das
sollte aber perl machen.

Vielen Dank für eine Idee.

Marc

Re: perl surft nicht richtig

Marc Wiemers writes:

> Hallo,
>
> ich versuche gerade perl das surfen beizubringen. Ich möchte mit folgendem
> Code diese Seite abrufen:
[...]
> Leider steht in der Datei die html Seite und nicht die Interperation
> derselben.

Was meinst du mit diesem Satz? Welche *Interpretation*?

--
Slaven Rezic - slaven rezic de

tkruler - Perl/Tk program for measuring screen distances
http://ptktools.sourceforge.net/#tkruler

Re: perl surft nicht richtig

Marc Wiemers schrieb:
> Hallo,
>
> ich versuche gerade perl das surfen beizubringen. Ich möchte mit folgendem
> Code diese Seite abrufen:
> use strict;
> #use WWW::Mechanize;
> #use HTML::Entities;
> use LWP::UserAgent;
>
> my $ua = LWP::UserAgent->new();
>
> #my $agent = WWW::Mechanize->new(autocheck => 1);
>
> my $url = 'http://XXXX/test.php?a=Name&b=Test';
>
> my $request = HTTP::Request->new('GET', $url);
> my $file = 'local.html';
> my $response = $ua->request($request,$file);

[...]

> Leider steht in der Datei die html Seite und nicht die Interperation
> derselben.
> Was mache ich falsch?
> wie kann perl die Datenbankabfrage machen. Wenn ich die Datei Local.html in
> einen Browser lade verfolständigt es sich zu dem was ich haben will. Das
> sollte aber perl machen.

Wenn ich Dich recht verstehe, soll Perl die HTML-Datei für Dich
anzeigen, als wäre es ein Browser. Allerdings ist Perl kein Browser.
Perl macht genau das, was Du ihm sagst: Von der URL das HTML abholen und
anschließend in eine Datei speichern.
Für die Anzeige wirst Du nicht um einen Browser drumrumkommen (den
kannst Du allerdings mittels Perl mit Deiner HTML-Datei starten).

Re: perl surft nicht richtig

Slaven Rezic wrote:

> Marc Wiemers writes:
>
>> Hallo,
>>
>> ich versuche gerade perl das surfen beizubringen. Ich möchte mit
>> folgendem Code diese Seite abrufen:
> [...]
>> Leider steht in der Datei die html Seite und nicht die Interperation
>> derselben.
>
> Was meinst du mit diesem Satz? Welche *Interpretation*?
>

Hallo,

in der Seite ist eine Abfrage einer Datenbank drin. Die Daten hätte ich
gerne nicht die Seite an sich. Vielleicht muss ich die Datenbankabfrage
umprogrammieren damit es geht.

Oder gibt es eine Möglichkeit lynx aufrufen und die Seite zurückerhalten.

Marc

Re: perl surft nicht richtig

Chris writes:

> Marc Wiemers schrieb:
> > Hallo,
> > ich versuche gerade perl das surfen beizubringen. Ich möchte mit
> > folgendem
> > Code diese Seite abrufen:
> > use strict;
> > #use WWW::Mechanize;
> > #use HTML::Entities;
> > use LWP::UserAgent;
> > my $ua = LWP::UserAgent->new();
> > #my $agent = WWW::Mechanize->new(autocheck => 1);
> > my $url = 'http://XXXX/test.php?a=Name&b=Test';
> > my $request = HTTP::Request->new('GET', $url);
> > my $file = 'local.html';
> > my $response = $ua->request($request,$file);
>
> [...]
>
> > Leider steht in der Datei die html Seite und nicht die Interperation
> > derselben. Was mache ich falsch?
> > wie kann perl die Datenbankabfrage machen. Wenn ich die Datei Local.html in
> > einen Browser lade verfolständigt es sich zu dem was ich haben will. Das
> > sollte aber perl machen.
>
> Wenn ich Dich recht verstehe, soll Perl die HTML-Datei für Dich
> anzeigen, als wäre es ein Browser. Allerdings ist Perl kein Browser.
> Perl macht genau das, was Du ihm sagst: Von der URL das HTML abholen
> und anschließend in eine Datei speichern.
> Für die Anzeige wirst Du nicht um einen Browser drumrumkommen (den
> kannst Du allerdings mittels Perl mit Deiner HTML-Datei starten).

Wobei es auch in Perl geschriebene Browser gibt (z.B. tkweb). Oder man
kann den HTML-Code in "menschenlesbare" Formate wie Text
(HTML::FormatText) oder druckbare Formate wie Postscript
(HTML::FormatPS) umwandeln.

--
Slaven Rezic - slaven rezic de

Visualize Makefiles with GraphViz:
http://user.cs.tu-berlin.de/~eserte/src/perl/GraphViz-Makefi le/

Re: perl surft nicht richtig

Marc Wiemers writes:

> Slaven Rezic wrote:
>
> > Marc Wiemers writes:
> >
> >> Hallo,
> >>
> >> ich versuche gerade perl das surfen beizubringen. Ich möchte mit
> >> folgendem Code diese Seite abrufen:
> > [...]
> >> Leider steht in der Datei die html Seite und nicht die Interperation
> >> derselben.
> >
> > Was meinst du mit diesem Satz? Welche *Interpretation*?
> >
>
> Hallo,
>
> in der Seite ist eine Abfrage einer Datenbank drin. Die Daten hätte ich
> gerne nicht die Seite an sich. Vielleicht muss ich die Datenbankabfrage
> umprogrammieren damit es geht.

Dir ist aufgefallen, dass die Seite ein Frameset zurückgibt? Du musst
in den einzelnen Frames nachschauen.

--
Slaven Rezic - slaven rezic de

Start a WWW browser - OS independent:
http://user.cs.tu-berlin.de/~eserte/src/perl/WWWBrowser/