ABAKUS

Verfasst: **22.10.2005, 12:09**

hab mal eben auf nem Win Rechner activeperl installiert. Nun will ich folgendes Script ausführen : https://www.devshed.com/c/a/Perl/Web-Mi ... th-Perl/3/

Wie immer wenn man das zum ersten Mal macht, läuft es halt nicht. Das Script bricht in Line 9 (die "get failed" if (!defined $content);) ab, er hat also get($url); nicht ausführen können. Den Code versteh ich, aber nicht was ihm zur Ausführung fehlt.

Brauch ich noch weitere Module für perl? Was ist CPAN?

Gruß und Danke für eure Hilfe

sean

<edit>wird das Modul "libwww-Perl" sein, wie bekomme ich das eingebunden?</edit>

Verfasst: **22.10.2005, 12:11**

use oder include LWP::Simple wars glaub

Verfasst: **22.10.2005, 12:16**

ja, das steht im Quelltext, aber wie bekomme ich die Komponente auf meinen PC eingebunden, sodass perl darauf zugreifen kann?

Gruß

sean

Verfasst: **22.10.2005, 12:21**

sean hat geschrieben:ja, das steht im Quelltext, aber wie bekomme ich die Komponente auf meinen PC eingebunden, sodass perl darauf zugreifen kann?

Es reicht wenn du in den Ordner wo das Script liegt folgende Struktur
anlegst und dort die CPAN module reinpackst

LWP::Simple -> ./LWP/Simple.pm
HTML::LinkExtor -> ./HTML/LinkExtor.pm

ODER mit:
use lib "../../perl/";

angibts, wo der cpan startordner ist

Verfasst: **22.10.2005, 12:37**

@/bin/false

Danke, kannst Du mir mal den EXAKTEN Syntax schreiben? Wenn ich das so einbinde, bekomme ich nur Syntax Fehler. Auch wenn ich mit Gänsefüschen arbeite usw.

Gruß

sean

Verfasst: **22.10.2005, 12:50**

kann man bei "use lib "../../perl/"; " auch Laufwerksnamen angeben? Irgendwie haut das nicht hin und ich find bei G. nix.

Gruß

sean

Verfasst: **22.10.2005, 12:59**

sean hat geschrieben:@/bin/false
Danke, kannst Du mir mal den EXAKTEN Syntax schreiben? Wenn ich das so einbinde, bekomme ich nur Syntax Fehler. Auch wenn ich mit Gänsefüschen arbeite usw.

Ok, mal einen kompletten aufbau.
Mit kompletten Laufwerksangaben hab ich keine Erfahrungen, weil noch
nicht probiert, denke aber, so einfach wie bei php ist das nicht, ergo
würde ich es auch nicht probieren

Code: Alles auswählen

#!/usr/bin/perl -w

use lib "../../perl/";

# die vars.pl kann jetzt unter "../../perl/vars.pl" liegen
require "vars.pl";

#use strict;
use CGI;
use CGI&#58;&#58;Carp qw&#40;fatalsToBrowser&#41;;

# liegt unter "../../perl/LWP/Simple.pm"
use LWP&#58;&#58;Simple;

# liegt unter "../../perl/HTML/LinkExtor.pm"
use HTML&#58;&#58;LinkExtor;

# DAS IST das wichtigste &#58;&#41;
print "Content-type&#58; text/html\n\n";

print "Hallo Welt\n";

Und dann natürlich den /usr/bin/perl ändern ...

Verfasst: **22.10.2005, 13:01**

also et läuft jetzt

Zumindest kommen keine Fehler mehr, aber die URL ruft das Script nicht auf. An der Firewall kommt auch nichts an

Ich habs wiefolgt gemacht:

#!/usr/bin/Perl
use lib "f:\perl\html\lib";
use LWP::Simple;
use HTML::Parser;
use Data::Dumper;
my $url = shift @ARGV;
die "No URL specified on command line." unless (defined $url);
my $content = get($url); #put site html in $content.
die "get failed" if (!defined $content);

.......

nur kann er anscheinend get($url) nicht ausführen. Was kann das sein?

Gruß

sean

Verfasst: **22.10.2005, 13:38**

et lüppt! Einer Domain sollteich auch ein Protokollhinweis geben (http)

Gruß und Danke

sean

ABAKUS

activeperl auf windows - brauche hilfe

activeperl auf windows - brauche hilfe

activeperl auf windows - brauche hilfe

activeperl auf windows - brauche hilfe

Re: activeperl auf windows - brauche hilfe

activeperl auf windows - brauche hilfe

activeperl auf windows - brauche hilfe

Re: activeperl auf windows - brauche hilfe

activeperl auf windows - brauche hilfe

activeperl auf windows - brauche hilfe