[PERL] - eine Seite von URL holen

Computer: Software & Programmierung Perl & CGI
1

Wie kann ich es mit Perl realisieren eine Seite von einer anderen URL zu holen und z.B in eine Variable zu speichern (also nur der HTML-Code)

mfg Slick

2 
#!/usr/bin/perl
require LWP::UserAgent;
require HTTP:Request;

$url="http://irgendwas";
$ua=new LWP::UserAgent;
$request=new HTTP:Request 'GET', $url;
$response=$ua-\>request($request);
if ($response-\>is\_success) { print $response-\>content(); }

(untested, sollte aber laufen.)

cu, holli

3

ne so klappt das nicht

syntax error at ./get.pl line 3, near "require HTTP:"
syntax error at ./get.pl line 6, near "new HTTP:"
String found where operator expected at ./get.pl line 6, near "Request 'GET'"
 (Do you need to predeclare Request?)
Execution of ./get.pl aborted due to compilation errors.

mfg Slick

4

$request=new HTTP:Request ‚GET‘, $url;

da fehlt n Doppelpunkt.
In der Manpage rufen sie es so auf:

$request = HTTP::Request->new(GET => 'http://www.oslonett.no/’);

Bruno

5

Wie kann ich es mit Perl realisieren eine Seite von einer
anderen URL zu holen und z.B in eine Variable zu speichern
(also nur der HTML-Code)

mfg Slick

use LWP::Simple;
unless (defined ($content = get $URL)) {
die „could not get $URL\n“;
}

6

#!/usr/bin/perl
use LWP::Simple;
unless (defined ($content = get $URL)) {
die „could not get $URL\n“;
}

Can’t locate LWP/Simple.pm in @INC (@INC contains: /opt/perl-5.004_04/lib/sun4-s
olaris/5.00404 /opt/perl-5.004_04/lib /opt/perl-5.004_04/lib/site_perl/sun4-sola
ris /opt/perl-5.004_04/lib/site_perl .) at ./get.pl line 2.
BEGIN failed–compilation aborted at ./get.pl line 2.

Wie kann ich das Modul trotzdem benutzen auch wenns bei meinem Provider nicht da ist ?

mfg Slick

7

Ja.

Wie mein Vorgänger bereits treffend bemerkt hat, fehlen 2 mal Doppelpunkte.

Korrektur (so läufts, ich habs getestet:

require LWP::UserAgent;
require HTTP::Request;
$url=„http://www.wer-weiss-was.de“;
$ua=new LWP::UserAgent;
$request=new HTTP::Request ‚GET‘, $url;
$response=$ua->request($request);
if ($response->is_success) { print $response->content(); }:

cu, holli

8

AFAIK geht das einfach, wenn man das Modul (*.pm) ins Skript-Verzeichnis kopiert.

Bitte beachte meine Quellcode-Korrektur im anderen Thread.

holli

9

Hi,

AFAIK geht das einfach, wenn man das Modul (*.pm) ins
Skript-Verzeichnis kopiert.

LWP::Simple benötigt AFAIK noch einige andere Module, und ich bin nicht ganz sicher, ob das eine oder andere davon nicht kompilierte Dateien benötigt.

Wie das Modul trotzdem installiert werden kann, sagt

perldoc perlmodinstall

Oder aber, Du schreibst eine „nette“ Mail an Deinen Provider - LWP::Simple ist seit Ewigkeiten ein Standardmodul und gehört gefälligst vorhanden zu sein :wink:

Cheatah

10

Oder dem @INC Pfad ein Verzeichnis zufuegen wo die libs aufspielst. Das klappt mit allem was nicht kompiliert werden musz. Entweder du fuegst das dir direkt ein oder mit

use lib „/home/www/user/meinlibpfad“;

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]