• code snippets
  • all code snippets/
  • popular code snippets/
  • your code snippets
• extras
• blog
• about snipplr

• Big /
• Small

Posted By

micmath on 07/27/07

Tagged

perl

Versions (?)

07/27/07 07:56am

Who likes this?

2 people have marked this snippet as a favorite

mabridge
ipilya

 / Published in: Perl

 

sub ask {
   my($promptString, $defaultValue) = @_;
 
   if ($defaultValue) {
      print $promptString, "[", $defaultValue, "]: ";
   } else {
      print $promptString, ": ";
   }
 
    $| = 1;               # force a flush after our print
    $_ = <STDIN>;         # get the input from STDIN (presumably the keyboard)
 
   chomp;
 
   if ("$defaultValue") {
      return defined $_ ? $_ : $defaultValue;    # return $_ if it has a value
   }
   return $_;
}

Report this snippet   Tweet

Comments

Subscribe to comments

Posted By: jkramer on January 30, 2008

use IO::Prompt;
my $foo = prompt -p => $prompt, -d => $default;