Ajout d'un chemin d'inclusion pour un module dans un didacticiel Perl simple

Question

J'essaie de faire un didacticiel simple, mais j'ai des difficultés à démarrer. Mon problème semble être l'installation et obtenir le bon chemin vers les modules.

** 1. Voici le code d'origine: *****

#!/usr/bin/perl -w 
use strict; 
use LWP 5.64; 

my $browser = LWP::UserAgent->new; 
my $url = 'http://www.cspan.org/RECENT.html'; 
my $response = $browser->get($url); 

die "Can't get $url -- ", $response->status_line 
    unless $response->is_success; 

my $html = $response->content; 
while($html =~m/<A HREF=\"(.*?)\"/g) { 
    print "$1\n"; 

2. Mais dans Host Gator ils disent ceci:

emplacement de votre Perl Module (s)

Chemin:/home/d ******** n/perl

Utilisation de votre Perl Module (s)

Vous devrez ajouter/home/d ******** n/perl à la inclure le chemin. Vous pouvez le faire en ajoutant le code suivant à votre script:

BEGIN { 
    my $base_module_dir = (-d '/home/d********n/perl' ? '/home/d********n/perl' : (getpwuid($>))[7] . '/perl/'); 
    unshift @INC, map { $base_module_dir . $_ } @INC; 
} 

3. J'ajouté le code, mais ont aucune idée si je l'ai ajouté au bon endroit.

#!/usr/bin/perl -w 
use strict; 
use LWP 5.64; 

BEGIN { 
    my $base_module_dir = (-d '/home/d********n/perl' ? 

'/home/d********n/perl' : (getpwuid($>))[7] . '/perl/'); 
    unshift @INC, map { $base_module_dir . $_ } @INC; 
} 


my $browser = LWP::UserAgent->new; 
my $url = 'http://www.cspan.org/RECENT.html'; 
my $response = $browser->get($url); 

die "Can't get $url -- ", $response->status_line 
    unless $response->is_success; 

my $html = $response->content; 
while($html =~m/<A HREF=\"(.*?)\"/g) { 
    print "$1\n"; 

Toute aide serait grandement appréciée.

Pour votre information, je l'ai déjà fait que le fichier dispose des autorisations nécessaires 755

également LWP :: UserAgent l'a un certain nombre de 5.835 dans Host Gator. Est-ce que cela signifie que je dois changer

utiliser LWP 5.64;

à

utilisation LWP 5,835

Answer 1

En supposant que vous avez installé LWP dans votre répertoire de module local, placez le bloc BEGINavant vous essayez de charger LWP (juste après use strict).

Le numéro de version dans le code d'origine indique qu'il s'agit de la version minimale requise. Puisque vous avez une version plus récente et que l'interface de LWP est stable, un simple use LWP; suffira.

Answer 2

La solution Host Gator semble un peu compliquée. J'utilise le module lib:

use strict ; 
use lib '/home/d********n/perl' ; 
use LWP ; 

Si vous exécutez le script à partir d'une ligne de commande, il y a deux façons dont vous pouvez l'exécuter sans changement.

ensemble comme une variable d'environnement en tapant suivant à la ligne de commande:

export PERL5LIB=/home/d********n/perl 
myscript.pl 

ou l'ajouter en option au perl commaind

perl -I/home/d********n/perl myscript.pl