/usr/share/doc/libanyevent-perl/examples/listen is in libanyevent-perl 7.010-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 | #!/usr/bin/perl
use strict;
use Socket;
use IO::Socket::INET;
use AnyEvent::Socket;
use AnyEvent::Handle;
my $cv = AnyEvent->condvar;
my $hdl;
warn "listening on port 34832...\n";
AnyEvent::Socket::tcp_server undef, 34832, sub {
my ($clsock, $host, $port) = @_;
print "Got new client connection: $host:$port\n";
$hdl =
AnyEvent::Handle->new (
fh => $clsock,
on_eof => sub { print "client connection $host:$port: eof\n" },
on_error => sub { print "Client connection error: $host:$port: $!\n" }
);
$hdl->push_write ("Hello!\015\012");
$hdl->push_read (line => sub {
my (undef, $line) = @_;
print "Yay, got line: $line\n";
$hdl->push_write ("Bye\015\012");
$hdl->on_drain (sub { $hdl->fh->close; undef $hdl });
});
};
$cv->wait;
|