BCN2053 Operating System Lab Sheet 6 (PERL)

if_else_2.pl

#!/bin/perl

# ==========================================================
# Write a shell script base on below requirements:
#
# a) Script prompt user to enter a password
#
# b) Script then checks the password entered with the given
#    password. (Assume that the system password is "secret")
#
# c) Script will display "You have access!!" if password is
#    correct or "Get out from this system" if password is
#    wrong.
# ==========================================================

printf("Password: ");
$password = <STDIN>;

chomp( $password );

if( $password eq "secret" ) {
  printf( "You have access!!\n" );
} else {
  printf( "Get out from this system\n" );
}