LWP::UserAgent: LWP::UserAgent emulate Mozilla (Perl/CGI)

[thread]877[/thread]

LWP::UserAgent: LWP::UserAgent emulate Mozilla

Leser: 1

gintonic

2007-01-15 19:21

User since
2006-03-10
1 Artikel
BenutzerIn
[default_avatar]

Ich möchte von einer Webseite HTML Code auslesen, um dann einige Angaben daraus weiterzuverwenden. Leider kann die Seite nicht geladen werden, da der Server merkt, dass nicht ein "echter Browser" sondern LWP::UserAgent den Code anfordert und eine Fehlermeldung liefert (die zwar fehlerfrei gelesen wird, aber das bringt mich natürlich nicht weiter).
Ideen wie das Emulieren eines modernen Browsers möglich wäre? (für den gewünschten HTML-Code müsst ihr die Seite halt im Browser laden)

thx

Code: (dl )

#!/usr/bin/perl


use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/5.0");





  $req = HTTP::Request->new(GET => 'http://www.immomarktschweiz.ch/anzeige/pgObjekt.aspx?id=1&pc=lkb');
  $req->header('Accept' => 'text/html');

  # send request
  $res = $ua->request($req);

  # check the outcome
  if ($res->is_success) {
     print $res->decoded_content;
  }
  else {
     print "Error: " . $res->status_line . "\n";
  }

renee

2007-01-15 19:40

User since
2003-08-04
14371 Artikel
ModeratorIn

Code: (dl )

$ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.8) Gecko/20051111 Firefox/1.5");

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

Gast Gast

2007-01-16 09:35

[quote=renee,15.01.2007, 18:40]

Code: (dl )

$ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.8) Gecko/20051111 Firefox/1.5");

[/quote]
genial, danke

View all threads created 2007-01-15 19:21.