#Empfang der Daten $socket->recv($message,1025) or warn $!; #Extrahiere Datenpaket aus gesendeten Daten $data = ''; $data = substr($message,0,1024); #Extrahiere Index aus gesendeten Daten $a = ''; $a = substr($message,1024,1); #Lege empfangene Daten in Array-Element ab $daten[$a] = ''; $daten[$a] = $data;