read-keyboard.pl to HTML.

index -|- end

Generated: Tue Feb 2 17:54:54 2010 from read-keyboard.pl 2009/04/13 383.

#!/perl/perl -w
# read keyboard test
use strict;
use warnings;
my $stay = 1;
print "Read keyboard, until nothing...\n";
while ($stay == 1) {
   print "input: ";
   my $input = <>;
   chomp $input;
   if (length($input)) {
      print "got [$input]\n";
   } else {
      print "got nothing... aborting...\n";
      $stay = 0;
   }
}
# eof - read-keyboard.pl

index -|- top

checked by tidy  Valid HTML 4.01 Transitional