Read user input and use if statement to check it : Command Line « Language Basics « Perl

Home
Perl
1.Array
2.CGI
3.Class
4.Data Type
5.Database
6.File
7.GUI
8.Hash
9.Language Basics
10.Network
11.Regular Expression
12.Report
13.Statement
14.String
15.Subroutine
16.System Functions
17.Win32
18.XML
Perl » Language Basics » Command Line 
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";
}

   
    
    
    
  
Related examples in the same category
1.Using shift to process the command-line arguments.
2.A program that sorts input lines in reverse order.
3.Assigning Input to an Array
4.Conditional debug
5.<> is the same as
6.A case-conversion program.
7.A simple Perl program that reads and writes a line of input.
8.Reading from STDIN
9.Redirect STDIN to error.log
10.Using diamond operator with while statement
11.Using diamond sign to read from keyboard
12.You can omit the STDIN altogether
13.do .. while with diamond operator
14.Standard input
15.Read three lines of text from standard input
16.Read user input
17.Getting Input in Perl Scripts
18.Read input from keyboard
19.Read name from console
20.Read a line of input from the keyboard
21.Read a single character from the keyboard
22.The ARGV Array: command line parameters
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.