Por que esse simples cliente Perl não funciona?

Question

Sou relativamente novo no IPC com sockets e espero que este problema seja simples de resolver.

Estou tentando entender por que não consigo usar este script de exemplo em perldoc perlipc para rodar na minha configuração do Ubuntu:

#!/usr/bin/perl -w
use IO::Socket;
$remote = IO::Socket::INET->new(
                                 Proto    => "tcp",
                                 PeerAddr => "localhost",
                                 PeerPort => "daytime(13)",
                               )
          || die "can't connect to daytime service on localhost";

while (<$remote>) { print }

O script die s porque o cliente TCP não pode ser estabelecido.

A execução de $ less /etc/services mostra que daytime(13) está definido. O que poderia estar errado aqui?

    

Answer 1

Você está executando qualquer coisa que forneça um serviço durante o dia? De Wikipedia :

On UNIX-like operating systems a daytime server is usually built into the inetd (or xinetd) daemon. The service is usually not enabled by default. It may be enabled by adding the following lines to the file /etc/inetd.conf and telling inetd to reload its configuration.

 daytime   stream  tcp     nowait  root    internal
 daytime   dgram   udp     wait    root    internal

Assim você tem que habilitar o serviço diurno no inetd.conf.