Forum Webscript.Ru

Программирование => Perl => Тема начата: GrinD3rZ от 26 Июля 2005, 21:35:16

Название: Socket\'ы
Отправлено: GrinD3rZ от 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") }

Название: Socket\'ы
Отправлено: Ivan Kolesnikov от 27 Июля 2005, 04:19:28

Все дело в том, что IP адрес необходимо передать как строку:

Код: [Выделить]


$ip = \'127.0.0.1\';

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