print "What is your name? ";
my $name = <>;
chomp $name;
print "What is your quest? ";
my $quest = <>;
chomp $quest;
print "Good luck, $name! May you $quest\n";
can be translated to:
use Continuity;
Continuity->new->loop;
sub main {
my $r = shift;
$r->print("What is your name? <form><input name=name>");
$r->next;
my $name = $r->param('name');
$r->print("What is your quest? <form><input name=quest>");
$r->next;
my $quest = $r->param('quest');
$r->print("Good luck, $name! May you $quest<br>");
}
Plus... it can be used by multiple users at once! It does sessions via cookies by default.
--Brock (awwaiid)
|