在簡單的Perl中爲模塊添加一個包含路徑教程

Question

我正在嘗試做一個簡單的教程，但我無法入門。我的問題似乎是安裝並獲取模塊的正確路徑。

** 1。這裏是原代碼：*****

#!/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.但在主機的Gator他們這樣說：

你的Perl模塊（S）

路徑的位置：/家/ d ******** N/perl的

使用你的Perl模塊（S）

您將需要添加的/ home/d ******** N/Perl來了包括路徑。你可以通過添加如下代碼到腳本做到這一點：

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，所以我添加的代碼，但不知道如果我在正確的位置添加它。

#!/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"; 

任何幫助將不勝感激。

僅供參考，我已經確信該文件具有所需的權限755

另外，LWP ::用戶代理在主機的Gator一些5.835。這是否意味着我必須改變

使用LWP 5.64;

到

使用LWP 5.835

Answer 1

假設你有安裝在您的本地模塊目錄LWP，把BEGIN塊您嘗試加載LWP（use strict後右側）。

原代碼的版本號表明它的最低版本。既然你有更新的版本，並且LWP的界面是穩定的，那麼簡單的use LWP;就足夠了。

Answer 2

解決方案Host Gator看起來有點複雜。如果運行在命令行腳本

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

有兩種方法可以運行它不變：我會用lib模塊。

將其設置爲通過鍵入的環境變量在命令行下：

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

，或者添加爲一個選項的Perl commaind

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