qqonline+2008-06-30 00:10:28--

Hallo!

Habe folgendes Problem:

Du benutzt weder 'use strict;' noch 'use warnings;' Ausserdem ist die Einrückung deines Codes grauenhaft, was ihn sehr schwer lesbar macht.

Quote

Code: (dl )

1
2
3
4
5
6
7
8
9
10
11
12
13
14

my $leer = " ";

#------------------------------------------------------------------
#Protokoll beginn - ABFRAGEN , BEFEHLE etc.

sub antwort{
print $_[0];

($i1, $i2, $i3)=split($leer,$_[0]);

#Verbindungsabfrage
if($i1." ".$i2 eq "sicherheitscode connect_request\r\n") { 
"connect_ok";
}

Diese Bedingung wird nie wahr sein, weil split " ", $string alle Art von Leerzeichen Entfernt, da wird nie ein "\r\n" drin sein. Ausserdem ist der Body der If-Abfrage ziemlich sinnlos, das ist nur ein string, mit dem nichts passiert.