1
Начал изучать сокеты, решил написать простенький сканер одного порта... Но что не получается, прога выполняется без вылета ошибок, но в файл ничего не пишет! Помогите пожалста, заранее благодарен!
#!/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") }
#!/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") }