Mega Code Archive

 

Categories / Perl / Language Basics

 

Read user input and use if statement to check it

#!/usr/bin/perl use warnings; use strict; my $weather = "good"; print "How hot is it, in degrees? "; my $temperature = <STDIN>; print "And how many emails left to reply to? "; my $work = <STDIN>; chomp($weather, $temperature); if ($weather eq "snowing") {     print "OK, let's go!\n"; } elsif ($weather eq "raining") {     print "No way, sorry, I'm staying in.\n"; } elsif ($temperature < 18) {     print "Too cold for me!\n"; } elsif ($work > 30) {     print "Sorry â€“ just too busy.\n"; } else {     print "Well, why not?\n"; }