perlquestion
Anonymous Monk
<code>
print "What is your name?\n";
$input=<STDIN>;
$name=inputcutter($input);
print "What is your age?n\";
$input=<STDIN>;
$age=inputcutter($input);
print "Your are $name and your age is @age years old.\n";
sub inputcutter{
$s=chomp $input;
return ($s);
}
</code>
<p><font size="-1"><b>Edit ([davorg]):</b> added <code> tags.</font></p>
<p><small><i>2005-10-13 [jdporter] moved from Tutorials (!)</i></small></p>
-6