29.10.2007, 20:04
|
|
Leaders of Antichat - Level 4
Регистрация: 16.01.2006
Сообщений: 1,966
Провел на форуме:
21768337
Репутация:
3486
|
|
Сообщение от Tw!m4
Дарова народ!
Кароч у мну идея зародилась.....замутить прокси чекер, тока вот не знаю суть этого чекера.....как он работает, может кто нють объяснит как он работает или мануал скиньте плз! сенк :cool:
IO::Socket =\
Самый простой:
PHP код:
#!usr/bin/perl
use IO::Socket;
use strict;
use warnings;
my $all = $ARGV[0];
my ($ip, $port) = split(/:/,$all);
my $sock = IO::Socket::INET -> new(PeerAddr => $ip, PeerPort => $port, Proto => 'tcp', Timeout => 10);
if($sock)
{
print "\nLive!\n";
}
else
{
print "\nDead\n";
}
Написал только что, работает. Если будет желание, сам разберёшься что да как работает. И сделаешь всё что надо. Это скелет.
Юзать:
script.pl ip:port
Последний раз редактировалось .Slip; 30.10.2007 в 10:46..
Причина: 30.10.2007 00:08 C!klodoL у аргументов командной строки chomp не нужен)
|
|
|