Проблема perl

Discussion in 'PHP' started by bandera, 9 Jun 2006.

  1. bandera

    bandera Banned

    Joined:
    2 Jun 2006
    Messages:
    58
    Likes Received:
    37
    Reputations:
    11
    Что то у меня перестали сплойты работать доходя до строчки
    $sock = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "$host", PeerPort => "80") || die "[-] CONNECTION FAILED";
    Пдскажите почему?
     
    #1 bandera, 9 Jun 2006
    Last edited: 9 Jun 2006
  2. bul.666

    bul.666 булка

    Joined:
    6 Jun 2006
    Messages:
    719
    Likes Received:
    425
    Reputations:
    140
    У тебя в начале стоит use IO::Socket; ?!
     
    #2 bul.666, 9 Jun 2006
  3. bul.666

    bul.666 булка

    Joined:
    6 Jun 2006
    Messages:
    719
    Likes Received:
    425
    Reputations:
    140
    Проверь у тя есть папка (perl/lib/IO/socket) И вней должен быть файл INET.pm
     
    #3 bul.666, 9 Jun 2006
  4. bandera

    bandera Banned

    Joined:
    2 Jun 2006
    Messages:
    58
    Likes Received:
    37
    Reputations:
    11
    Да он у меня есть.

    Походу проблема в другом. Вот что толькочто получил от другого файла
    Bad protocol 'tcp'
    Чо делать?
     
    #4 bandera, 9 Jun 2006
  5. bul.666

    bul.666 булка

    Joined:
    6 Jun 2006
    Messages:
    719
    Likes Received:
    425
    Reputations:
    140
    А утя правильно написано "tcp" может быть просто с и р оказаться русскими...
     
    #5 bul.666, 9 Jun 2006
  6. bandera

    bandera Banned

    Joined:
    2 Jun 2006
    Messages:
    58
    Likes Received:
    37
    Reputations:
    11
    Да всё правильно у меня все сплойты почему-то стало обрывать на этой строке. Наверно что то tcp. Что можно сделать?
     
    #6 bandera, 9 Jun 2006
    Last edited: 9 Jun 2006
  7. bul.666

    bul.666 булка

    Joined:
    6 Jun 2006
    Messages:
    719
    Likes Received:
    425
    Reputations:
    140
    Если у тебя все сплойты не работают, может просто у тебя какойто файл потерян или испорчен, попробуй переустановить Perl
     
    #7 bul.666, 9 Jun 2006
  8. bandera

    bandera Banned

    Joined:
    2 Jun 2006
    Messages:
    58
    Likes Received:
    37
    Reputations:
    11
    Переустановил. Толку нет. Такая же ошибка.
     
    #8 bandera, 9 Jun 2006
  9. bul.666

    bul.666 булка

    Joined:
    6 Jun 2006
    Messages:
    719
    Likes Received:
    425
    Reputations:
    140
    А откуда ты скачаивал?! И вообще они раньше работали? И с какого момента они перестали работать?
     
    #9 bul.666, 9 Jun 2006
  10. bandera

    bandera Banned

    Joined:
    2 Jun 2006
    Messages:
    58
    Likes Received:
    37
    Reputations:
    11
    Раньше всё работало. Незнаю скакого момента, но сёдня запусти сплойт под ипб, а он вот такую ошибку,
    потом другие попробовал, такая же лажа, хз чо произошло =))
     
    #10 bandera, 9 Jun 2006
  11. bul.666

    bul.666 булка

    Joined:
    6 Jun 2006
    Messages:
    719
    Likes Received:
    425
    Reputations:
    140
    НУ незнаю отключи проксю, выключи монитор, Перезагрузись на худой конец, Попрыгай, отключи соеденение и подключись заново! (Шучу) ... Короче скачай с друго сайта Перл... Может ты какие нибудь новые модули для Perl подключал,....
     
    #11 bul.666, 9 Jun 2006
  12. k1b0rg

    k1b0rg Тут может быть ваша реклама.

    Joined:
    30 Jul 2005
    Messages:
    1,182
    Likes Received:
    399
    Reputations:
    479
    кинь исходник в ПМ, я гляну =)

    #!/usr/bin/perl
    use IO::Socket;
    $server='antichat.ru';
    my $socket = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "$server", PeerPort => "80");
    print $socket "GET / HTTP/1.1\n";
    print $socket "Host: $server\n";
    print $socket "User-Agent: Mozilla/5.0 (OS/2; U; OS/2 X.618; en-US; rv:1.7.8) Gecko/20050511 Firefox/1.0.4\n\n";
    while ($answer = <$socket>){
    print $answer;
    }

    вот рабочий пример, разбирайся
     
    #12 k1b0rg, 10 Jun 2006
(You must log in or sign up to post here.)