From: Igor Luiz Oliveira de Souza <igorluizosouza@gmail.com>
Sent: Friday, May 4, 2018 9:23:10 PM
To: Rluca.7x@hotmail.com; AManda Amorim; Veras; pk.katon@gmail.com; Vinicius Silva Cordeiro; uilianesilva@yahoo.com.br; Daan Lacerdaa; Moisés Araújo; GUSTAVOANJOS13@hotmail.com; clecio-sf@hotmail.com
Subject: Exercício REDES 1 - Programação em SOCKET

Pessoal,

Seguem abaixo os exemplos dos códigos de um servidor e um cliente em PERL.
Com base nesses códigos, vocês devem modifica-los de forma a construir um serviço similar ao DNS, bem simplificado.
O servidor deve possuir um arquivo contendo nomes e ip's, que o será consultado para responder às solicitações do cliente, que deve enviar apenas o nome:

===============================================================
ARQUIVO DE NOMES-IPS
-----
www.meusite.com.br   10.0.0.1
www.site2.com.br   10.0.0.67
portal.site5.com.br  192.168.76.5
-----
===============================================================


===============================================================
SERVER.PL
-------------------
use IO::Socket;
$| = 1;
$socket = new IO::Socket::INET (
    LocalHost => '172.16.1.218',
    LocalPort => '5000',
    Proto => 'tcp',
    Listen => 5,
    Reuse => 1
);
die "Coudn't open socket" unless $socket;
print "\nTCPServer Waiting for client on port 5000";

while(1)
{
        $client_socket = "";
        $client_socket = $socket->accept();
        $peer_address = $client_socket->peerhost();
        $peer_port = $client_socket->peerport();

        #print "\n I got a connection from ( $peer_address , $peer_port ) ";
        while (1){
                $send_data = <STDIN>;
                $client_socket->send($send_data);
                $client_socket->recv($recieved_data,10);
                print $recieved_data;#."\n";
                #$client_socket->autoflush();
        }
}
===============================================================


===============================================================
CLIENT.PL
----------------
use IO::Socket;

$socket = new IO::Socket::INET (
    PeerAddr  => '172.16.1.224',
    PeerPort  =>  5000,
    Proto => 'tcp',
)
or die "Couldn't connect to Server\n";

while (1) {
        $socket->recv($recv_data,10);
        print $recv_data."\n";
        $send_data = <STDIN>;
        $socket->send($send_data);
}
===============================================================

--
Igor Luiz