|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander Babanov 2:5020/1978.3 25 Aug 2000 11:37:35
To : All
Subject : Чтение из сокета
--------------------------------------------------------------------------------
Я тут пытаюсь поговорить с binkd своего босса. Пока все более-менее
понятно, за исключением одного: функция read (см. внизу) ждет нужного
числа байт из сокета пока рак на горе не свистнет. Обламывать ее
через ALRM можно, но не хочется. Есть какие-нибудь другие варианты?
>>>>>>>>>>>>>>>>>>>>>>>> Begin of binkd.pl <<<<<<<<<<<<<<<<<<<<<<<<
#perl
use IO::Socket::INET;
$remote = IO::Socket::INET->new("f1978.n5020.z2.fidonet.net:24554")
or die "Can't open socket: $!";
binmode $remote;
print $remote pack("nC", (1<<15) | 10, 0) . "SYS gluck";
for(;;) {
read $remote, $buf, 2;
($sig, $len) = unpack "a1a15", unpack "B16", $buf;
print $sig, " ";
print(unpack "n", pack "B16", "0" . $len);
read $remote, $buf, unpack "n", pack "B16", "0" . $len;
if($sig == "1") {
print " [", substr($buf, 1), "]\n";
}
else {
print " [", $buf, "]\n";
}
}
close($remote);
>>>>>>>>>>>>>>>>>>>>>>>>> End of binkd.pl <<<<<<<<<<<<<<<<<<<<<<<<<
ЗЫ: Hе пинайте слишком рьяно - это болванка для тестирования ;)
CYa!!!
ЪДВїЪДВВВДДДщщъъ ЪДВВВДї ЪїЪДВДДДДДДДДщщъъ ЪДДДД 2:5020/1978.3 ДДДДї
іВіАґДЕ ґBabanov іВі ґВі іАґВіST BERSERKER і babanov@earthlink.net і
... "I'll be back!" / (c) B-)
---
* Origin: Our governor can beat up your governor! (2:5020/1978.3)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
