Автор Тема: Socket\'ы  (Прочитано 2666 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн GrinD3rZ

  • Заглянувший
  • Новичок
  • *
  • Сообщений: 3
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Socket\'ы
« : 26 Июля 2005, 21:35:16 »
Начал изучать сокеты, решил написать простенький сканер одного порта... Но что не получается, прога выполняется без вылета ошибок, но в файл ничего не пишет! Помогите пожалста, заранее благодарен!
#!/usr/bin/perl

use IO::Socket;
$ip = 127.0.0.1;
$port = 80;
$timeout = 0;
$log = \'rezult.txt\';
$|=1;

sub connectIP {
my($socket);
$socket=IO::Socket::INET->new( PeerAddr => $ip,
PeerPort => $port,
Proto => tcp,
Timeout => $timeout,
);
unless ($socket) { return -1 }
close ($socket);
return 1;
}

sub logg {
open(LOGG,">rezult.txt");
print LOGG "$ip\\:$port\\n";
close(LOGG)
}

$rez = &connectIP;
if ($rez == 1) { &logg("$ip") }

Оффлайн Ivan Kolesnikov

  • Завсегдатай
  • Новичок
  • *
  • Сообщений: 39
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Socket\'ы
« Ответ #1 : 27 Июля 2005, 04:19:28 »
Все дело в том, что IP адрес необходимо передать как строку:

$ip = \'127.0.0.1\';

И все сразу стало работать :)

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28