Mega Code Archive

 

Categories / Perl / Language Basics

 

Read a line of input from the keyboard

$Console = "con";     open(IN,"$Console") || die "Can't open $Console, $!\n";     $| = 1;     print "Please enter data here: ";     $Input = <IN>;     chop $Input;     print "Input = $Input\n";     close(IN);