Re: Interactive Perl script

Trivial example:

print "Can you read this? ";
my $answer = <STDIN>;
if ($answer =~ /^y(?:es)?$/i)
{
    print "Excellent\n";
}
else
{
    print "Then how did you answer?\n";
}
[download]

This has the benefit of accepting any of y, Y, yes, YES or Yes (to name a few).

$,=' ';$\=',';$_=[qw,Just another Perl hacker,];print@$_;

Comment on Re: Interactive Perl script Select or Download Code

Replies are listed 'Best First'.
Re^2: Interactive Perl script by Irishboy24 (Sexton) on Aug 27, 2009 at 16:00 UTC
Thank you very much. your response was really helpful. appreciate your help	[reply]