activeperl auf windows - brauche hilfe

Beitrag von **sean** » 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>

von **Anzeige von ABAKUS** »

Content Erstellung von ABAKUS Internet Marketing
Ihre Vorteile:

einzigartige Texte
suchmaschinenoptimierte Inhalte
eine sinnvolle Content-Strategie
Beratung und Umsetzung

Jetzt anfragen: 0511 / 300325-0

Beitrag von **BSweet** » 22.10.2005, 12:11

use oder include LWP::Simple wars glaub

Beitrag von **sean** » 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

von **Anzeige von ABAKUS** »

SEO Consulting bei ABAKUS Internet Marketing
Erfahrung seit 2002

persönliche Betreuung
individuelle Beratung
kompetente Umsetzung

Jetzt anfragen: 0511 / 300325-0.

Beitrag von **/bin/false** » 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

Beitrag von **sean** » 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

Beitrag von **sean** » 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

Beitrag von **/bin/false** » 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 ...

Beitrag von **sean** » 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

Beitrag von **sean** » 22.10.2005, 13:38

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

Gruß und Danke

sean