Sockets / Hash - Switch Statement (Allgemeines zu Perl)

[thread]6618[/thread]

Sockets / Hash - Switch Statement

Gast Gast

2005-01-10 00:45

Hallo.

Wieso wird bei folgendem Code nie die if-Bedingung erfüllt? Im Client wird z.B. quit eingegeben, aber $exit = 1; last; wird nie ausgeführt :-/

Code: (dl )

print $client "Command? ";

  while ( <$client> ) {
    next unless /\S/;       # blank line

    my %commands = (
      'quit'  => sub { $exit = 1; last; },
      'title' => \&title,
      'next'  => \&next_title,
      'prev'  => \&prev_title,
    );

    if ( defined( $commands{$_} ) ) {
      $commands{$_}->();
    } else {
      print $client "Commands: quit title prev next", $CRLF;
    }

esskar

2005-01-10 00:51

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

Code: (dl )

while ( <$client> ) {
   next unless /\S/;       # blank line

   chomp;

   my %commands = (
     'quit'  => sub { $exit = 1; last; },
     'title' => \&title,
     'next'  => \&next_title,
     'prev'  => \&prev_title,
   );

   if ( defined( $commands{$_} ) ) {
     $commands{$_}->();
   } else {
     print $client "Commands: quit title prev next", $CRLF;
   }
}