Mega Code Archive

 

Categories / Perl / Language Basics

 

Read user input

#!/usr/bin/perl print "What is your name? "; chomp($name = <STDIN>);  # Program waits for user input from keyboard print "$name, are you ready?"; chomp($response = <STDIN>); $response=lc($response);  # response is converted to lowercase if($response eq "yes" or $response eq "y"){      print "Great! Let's get started learning Perl by example.\n"; } else{    print "O.K. Try again later.\n"; } $now = localtime;  # Use a Perl function to get the date and time print "$name, you ran this script on $now.\n";