#!/usr/bin/perl -w
################################################################
#
# Corpus Analysis and Programming, Homework #1.
#
# Source: PerlHTP, Exercise 2.11.
#
# Programmed by William Yeh, 2004/03/03.
#
################################################################


#
# prompt the user for 2 inputs
#

print "Please input the first string: ";
$string1 = <STDIN>;
chomp $string1;

print "Please input the second string: ";
$string2 = <STDIN>;
chomp $string2;

#
# 3 cases, one by one...
#

if ($string1 lt $string2) {  # case 1
        print "$string1 $string2\n";
}

if ($string1 gt $string2) {  # case 2
        print "$string2 $string1\n";
}

if ($string1 eq $string2) {  # case 3
        print "$string1\n$string2\n";
}

#
# Note: if you've learned Chapter 3, you can re-write the 3 if statements
#       into the following if-elsif-else structure, which is more elegant
#       and faster:
#
#           if ($string1 lt $string2) {     # case 1
#               print "$string1 $string2\n";
#           }
#           elsif ($string1 gt $string2) {  # case 2
#               print "$string2 $string1\n";
#           }
#           else {                          # case 3
#               print "$string1\n$string2\n";
#           }
#