кэширующий прокси-DNS на perl
Здравствуйте, Помогите пожалуйста написать скрипт, который слушает 53 порт udp, принимает запросы от nslookup и печатает их на экран.
Моя проблема в том, что я плохо разбираюсь в сокетах. Вот код:
Моя проблема в том, что я плохо разбираюсь в сокетах. Вот код:
Код:
use IO::Socket;
$port =53;
$sock = new IO::Socket::INET (
LocalAddr=> 'locslhost',
LocalPort => $port,
Proto => 'udp'
) or die "Error: $!";
#при попытке создать такой сокет пишет Error: Invalid argument at C:\Documents and Settings\pincher\╠юш фюъєьхэЄ√\inet\4\1.pl line 5.
#хотя с другими портами ее не возникает
while (1)
{
$sock->recv($packet,1024,0);
print $packet;
}
$port =53;
$sock = new IO::Socket::INET (
LocalAddr=> 'locslhost',
LocalPort => $port,
Proto => 'udp'
) or die "Error: $!";
#при попытке создать такой сокет пишет Error: Invalid argument at C:\Documents and Settings\pincher\╠юш фюъєьхэЄ√\inet\4\1.pl line 5.
#хотя с другими портами ее не возникает
while (1)
{
$sock->recv($packet,1024,0);
print $packet;
}