BCN2053 Operating System Lab Sheet 6 (PERL)

if_else_1.pl

#!/bin/perl

# ==========================================================
# Write a shell script, which will ask you for input 'yes'
# or 'no' and based on that will give you what is your
# input;
#
# a) If you enter yes as your input, it will echo you have
#    entered yes.
#
# b) If you enter no as your input, it will echo you have
#    entered no. 
#
# c) No or invalid input is given, then gives error
#    'no input given'
# ==========================================================

printf("yes or no?\n");
$answer = <STDIN>;

chomp($answer); #remove newline character

if( $answer eq "yes" ) {
  printf("You have entered yes\n");
} elsif( $answer eq "no" ) {
  printf("You have entered no\n");
} else {
  printf("No input given\n");
}