Есть простенький код с использованием модулей:
Код: Выделить всё
use Net::UPnP::ControlPoint;
my $obj = Net::UPnP::ControlPoint->new();
@dev_list = $obj->search(st =>'upnp:rootdevice', mx => 3);
$devNum= 0;
foreach $dev (@dev_list) {
$device_type = $dev->getdevicetype();
if ($device_type ne 'urn:schemas-upnp-org:device:MediaServer:1') {
next;
}
..............При запуске пишет:
Код: Выделить всё
Can't locate Net/UPnP/ControlPoint.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.10.0 /usr/local/share/perl/5.10.0 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.10 /usr/share/perl/5.10 /usr/local/lib/site_perl .) at upnp.pl line 1.
BEGIN failed--compilation aborted at upnp.pl line 1.В то же время при попутке установит модуль:
Код: Выделить всё
cpan[4]> i Net::UPnP::ControlPoint
Module id = Net::UPnP::ControlPoint
CPAN_USERID SKONNO (Satoshi Konno <skonno@cybergarage.org>)
CPAN_VERSION undef
CPAN_FILE S/SK/SKONNO/Net-UPnP-1.41.tar.gz
[b] INST_FILE (not installed)[/b]Всё время ставил модули через i Почему модуль не ставиться и что я делаю не так?