Simpler Threaded Server: ...und ich find den fehler nicht... - #37558 (Netzwerkprogrammierung und Netzwerke mit Perl)

jan

2007-05-18 12:11

User since
2003-08-04
2536 Artikel
ModeratorIn

syntax error at server.pl line 100, near "'CODE' {"

Code: (dl )

unless (@_ == 0 && $coderef && ref($coderef) eq 'CODE' {

da fehlt eine schließende runde klammer. am besten hinter 'CODE'

Code: (dl )

unless (@_ == 0 && $coderef && ref($coderef) eq 'CODE') {

syntax error at server.pl line 116, near "}"

hier ist wohl eine geschwungene klammer zu viel. die in zeile 114 kann ich nicht zuordnen.

Code: (dl )

        open (STDIN, "<&CLIENT")    || die "cant dup client to stdin";
        open (STDOUT, ">&CLIENT")    || die "cant dup client ti stdout";
        exit &$coderef();
-->     }  <--

dadurch wird die sub abgeschlossen und die nächste klammer, die die sub eigentlich abschließen sollte, wird zum problem.