Can't locate NetPacket/Ethernet.pm in @INC怎么办??

do1

先perl ****,没 问题,然后就 chmod a+x ****
再
[root@localhost bishe]# ./id.pl
Can't locate NetPacket/Ethernet.pm in @INC (@INC contains: /usr/lib/perl5/5.8.0/i386-linux-thread-multi /usr/lib/perl5/5.8.0 /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl
/5.8.0/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.0 /usr/lib/perl5/vendor_perl /usr/lib/perl5/5.8.0/i386-linux-thread-multi /usr/lib/perl5/5.8.0 .) at ./id.pl line 9.
BEGIN failed--compilation aborted at ./id.pl line 9.

这是怎么 回事呢?该怎么解决?

do1

谁能帮我么 ?

do1

require Net:capUtils;
require NetPacket::TCP;
require NetPacket::SMB;
require NetPacket::FTP;
use NetPacket::IP qw(:protos);
use NetPacket::Ethernet qw(:strip);

require 改为use的 话都出现上面的问题,最后两个模块改为require的话perl ***通不过,该怎么解决讷?

怒剑狂啸

NetPacket::Ethernet模块未安装

do1

安装 了的 啊,perl ****也能通过的和FTP模块在同一目录的

apile

use lib '/path/to/Ftp modules';

as first line of your program.

do1

apile: 这句什么意思?时不时让程序去ftp模块所在目录去找模块呢?但是还是不行,还有如果用use的话每一个模块都是这样的结果,但另一个程序:
use Net:capUtils;
sub gotapacket {
my ($userdata,$header,$packet);
print "got a packet of length ",
$header->;{caplen},"\n";
}
Net:capUtils::loop(\&gotapacket,
NUMPACKETS =>; 10,
FILTER =>;
"tcp[13] & 2 != 0 and src net not 192.168.0";

perl *.pl就直接运行了,很奇怪啊

apile

does the first line of your program is
#!/usr/bin/perl

I guess you don't put the line above as your first line...
#!/usr/bin/perl
use Net:capUtils;
sub gotapacket {
my ($userdata,$header,$packet);
print "got a packet of length ",
$header->;{caplen},"\n";
}
Net:capUtils::loop(\&gotapacket,
NUMPACKETS =>; 10,
FILTER =>;
"tcp[13] & 2 != 0 and src net not 192.168.0";

like above ....try again..

do1

yes and if i perl *.pl
[root@localhost bishe]# perl cap
got a packet of length
got a packet of length
got a packet of length
got a packet of length
got a packet of length
got a packet of length
got a packet of length
got a packet of length
got a packet of length
got a packet of length


then i chmod a+x *.pl

[root@localhost bishe]# ./cap
./cap: line 3: use: command not found
./cap: line 4: sub: command not found
./cap: line 5: syntax error near unexpected token `$userdata,$header,$packet'
./cap: line 5: `my ($userdata,$header,$packet);'

what's the matter?