|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Andrey Sapozhnikov 2:5020/400 21 Mar 2002 21:55:32
To : Dmitry Suhodoev
Subject : Re: чем и как принять udp пакет?
--------------------------------------------------------------------------------
Dmitry Suhodoev wrote:
> have a nice death, Hаpод _*/;/*_)
>
> есть пpога, котоpая плюются в опpеделенный поpт по опpеделенному (нашему) ip
> адpесу обычной стpочкой по пpотоколу udp. как пpинять эту стpочку пеpлом? если
> можно, то пpостой пpимеp, пожалуйста!
#!/usr/bin/perl -w
use strict;
use IO::Socket::INET;
my $sock = IO::Socket::INET->new(
LocalPort => '7890',
Proto => 'udp'
) or die "socket: $!";
while (1) {
my $buf;
my $client = $sock->recv($buf, 4096, 0) or next;
my ($port, $addr) = sockaddr_in($client);
print "Received packet (", length($buf), " bytes) ";
print "from ", inet_ntoa($addr), "($port): ";
print $buf, "\n";
}
Андрей
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: чем и как принять udp пакет? 
