First page Back Continue Last page Overview Graphics
Spot the syscalls (2 of 2)
#!/usr/bin/perl -w
use IO::Socket::INET;
my $sock = IO::Socket::INET->new(
- Listen => 5,
- Proto => 'tcp',
- LocalAddr => '127.0.0.1',
- LocalPort => 12345,
- ReuseAddr => 1) || die $@; <-- socket, bind, listen
while ((my $newsock = $sock->accept())) <-- accept
{
my $buf;
$newsock->recv($buf, 1024); <-- recvfrom
print $buf; <-- write
undef $newsock; <-- close
}
Notes: