#!/usr/bin/perl -w

#UDP_Client.pl

#Hartych, Tobias EIT 4056051
#Dreißig, Tobias EIT 40?????

#Module importieren
#strict macht debugging einfacher
use strict; 

;#Modul wird benoetigt um Netzwerkfunktionen zu nutzen
use IO::Socket::INET

#auto-flush
$| = 1;

#Variablen deklarieren
my ($socket,$data,$ip,$port);
$ip=$ARGV[0]; #erster Paramenter wird in $ipaddr eingespeichert
$port = $ARGV[1]; #zweiter Paramenter wird in $ipaddr eingespeichert


#Socket erschaffen zur Kommunikation mit Server
$socket=new IO::Socket::INET
(
				
PeerAddr=>$ip,	#PeerAddr von $sock ist eingegebener Paramenter $ipaddr
				
PeerPort=>$port,	#PeerPort von $sock ist eingegebener Paramenter $port
				
Proto=>'udp'		#Transportprotokoll: UDP
				
);

die "Konnte keine Verbindung herstellen: $!\n" unless $socket;


print "Mit $ip verbunden !\n";
	
print "Bitte Text zum Senden eingeben:\n";

#Hauptschleife	
while(1)
{	
#Eingabe der Daten
$data = <STDIN>;
print "Sende Daten zum Server...";
$socket->send($data, 1024);

#Warte auf Antwort vom Server
$socket->recv($data, 1024);
print("Empfangene Daten: $data \n");
}

$socket -> close();