Is there a module for handling interactive user inputs?

[johnnywang]

Hi, I'm in need of a commandline script that asks the user a few questions, takes the answers (with validation for some answers), and does something. It's not difficult to write a simple one, but is there an existing module? Thanks.

[ikegami]

Term::ReadKey and Term::ReadLine might be of use.

[TheStudent]

Take a look at: Shell::Base

From the doc:

After writing several REP (Read-Eval-Print) loops in Perl, I found myself wishing for something a little more convenient than starting with:

  while(1) {
      my $line = <STDIN>;
      last unless defined $line;

      chomp $line;
      if ($line =~ /^...

TheStudent

[TedPride]

How about something like the following?

use strict;
use warnings;

my $word = getInp('Enter a word : ', qr/^[a-z]+$/i);
my $anything = getInp('Enter anything : ');

sub getInp {
    print $_[0];
    do {
        $_ = <STDIN>; chomp;
    } while ($_[1] && $_ !~ $_[1]);
    return $_;
}

You just pass it your query and a regex and let it worry about doing the validation.

[TheDamian]

IO::Prompt might also be worth a look.

Damian