ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexander Babanov                    2:5020/1978.3  01 Nov 2000  06:26:55
 To : Vlad Halilow
 Subject : Re: socket
 -------------------------------------------------------------------------------- 
 

 Юґullo Vlad!
 
  VH>   y кого нибyдь водятся несложные исходники пpогpаммки, котоpая биндит
  VH> поpт, и слyшает чего там есть. нy ввод/вывод итд. в perlipc есть пpимеp
  VH> с клиентом и сеpвеpом, но y меня он не заpаботал, говоpит globl sumbol
  VH> $EOL explict required package. и сиктым. остаётся только лапы надyть.
 
 Такой подойдет? Цепляется к порту binkd у моего босса и пытается поговорить
 по душам ;) Только чур гонять это чудо на "www.microsoft.com:80" :)))
 
 >>>>>>>>>>>>>>>>>>> Begin of binkd.pl <<<<<<<<<<<<<<<<<<<
 
 #perl
 
 use IO::Socket;
 use IO::Select;
 use POSIX;
 
 $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";
 
 my $sel = new IO::Select($remote);
 my @ready;
 
 while(@ready = $sel->can_read(5)) {
   foreach my $fh (@ready) {
     sysread $fh, $buf, 2;
     ($sig, $len) = unpack "a1a15", unpack "B16", $buf;
     print $sig, " ";
     print(unpack "n", pack "B16", "0" . $len);
     sysread $fh, $buf, unpack "n", pack "B16", "0" . $len;
     if($sig == "1") {
          print " ", int $buf[0], " [", substr($buf, 1), "]\n";
      }
     else {
       print " [", $buf, "]\n";
     }
   }
 }
 
 print $remote pack("nC", (1 << 15) | 22, 1) . "2:5020/1978.3\@fidonet";
 print $remote pack("nC", (1 << 15) | 7, 2) . "cbvjyf";
 
 while(@ready = $sel->can_read(5)) {
   foreach my $fh (@ready) {
     sysread $fh, $buf, 2;
     ($sig, $len) = unpack "a1a15", unpack "B16", $buf;
     print $sig, " ";
     $len = unpack "n", pack "B16", "0" . $len;
     print $len, " ";
     my $l = 0;
     while($len - $l > 0) {
        $l += sysread $fh, $buf, ($len - $l), $l;
      }
     if($sig == "1") {
       print " ", int $buf[0], " [", substr($buf, 1), "] ", $l, "\n";
     }
     else {
       print " [", (unpack "H*", $buf), "] ", $l, "\n";
     }
   }
 }
 
 close($remote);
 
 >>>>>>>>>>>>>>>>>>>> End of binkd.pl <<<<<<<<<<<<<<<<<<<<
 
 CYa!!!
 
 ЪДВїЪДВВВДДДщщъъ ЪДВВВДї ЪїЪДВДДДДДДДДщщъъ   ЪДДДД 2:5020/1978.3 ДДДДї
 іВіАґДЕ ґBabanov іВі ґВі іАґВіST BERSERKER   і babanov@earthlink.net і
 ... Еще наше поколение будет жить при Виагре! [предп. из писем Ильича к HКК]
 ---
  * Origin: Our governor can beat up your governor! (2:5020/1978.3)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    socket   Vlad Halilow   29 Oct 2000 16:03:42   Re: socket   Alexander Babanov   01 Nov 2000 06:26:55   Re: socket   Ivan Frolcov   01 Nov 2000 16:35:40   socket   Anatolij Kupriyanov   05 Nov 2000 23:27:20