Показать сообщение отдельно

  #2  
Старый 12.11.2008, 21:00
eLWAux
Members of Antichat - Level 5
Регистрация: 15.06.2008
Сообщений: 941
Провел на форуме:
5111568

Репутация: 2399


Отправить сообщение для eLWAux с помощью ICQ
По умолчанию

О!

установил вроде..) скачал новий перл и установил..
ppm.bat:
проверка IO::Socket:
Цитата:
Verifying IO-Socket-Socks ...
3 files verified
как я понямаю, я устанил...

запускаю скрипт с надеждой, и ..... пля! опять ошибка:
Цитата:
Can't locate IO/Socket/Socks.pm in @INC (@INC contains: C:/Perl/site/lib C:/Perl
/lib .) at D:\pr0gramm1n9\perl\my\proxy\_proxy.pl line 3.
BEGIN failed--compilation aborted at D:\pr0gramm1n9\perl\my\proxy\_proxy.pl line
3.
что такое?

================================

переделал скрипт
Код:
system('cls');
print '1';

use IO::Socket::Socks;
print '1';
my $proxy_addr = "128.10.10.15";print '1';
my $proxy_port = 3128;print '1';
my $conn_addr = "http://www.mail.ru/";print '1';
my $conn_port = 80;print '1';
my $socks = new IO::Socket::Socks(ProxyAddr=>$proxy_addr,
                                  ProxyPort=>$proxy_port,
                                  ConnectAddr=>$conn_addr,
                                  ConnectPort=>$conn_port,
                                  ) or die "Can't create Sock: $!";
 print '1';
print $sock "GET ",$conn_addr," HTTP/1.0\n\n";
 print '1';
while($line = <$sock>) {
 print '1';
  print $line;
 print '1';
} 
$socks->close();
print '1';
теперь ошибка:
Цитата:
Can't create Sock: Unknown error at D:\pr0gramm1n9\perl\my\proxy\_proxy.pl line
10.
111111
что я не так делаю?

Последний раз редактировалось eLWAux; 12.11.2008 в 21:29..
 
Ответить с цитированием