#!perl
# Fig. 26.6: equals.pl
# Program to demonstrate the eq, ne, lt, gt operators

@fruits = qw( apple orange banana );

foreach $item ( @fruits )
{
	   if ( $item eq "banana" )
	   {
		      print "String '$item' matches string 'banana'\n";
	   }

	   if ( $item ne "banana" )
	   {
		      print "String '$item' does not match string 'banana'\n";
	   }

	   if ( $item lt "banana" )
	   {
      		print "String '$item' is less than string 'banana'\n";
	   }

	   if ( $item gt "banana" )
	   {
      		print "String '$item' is greater than string 'banana'\n";
	   }
}

########################################################################## 
# (C) Copyright 2001 by Deitel & Associates, Inc. and Prentice Hall.     #
# All Rights Reserved.                                                   #
#                                                                        #
# DISCLAIMER: The authors and publisher of this book have used their     #
# best efforts in preparing the book. These efforts include the          #
# development, research, and testing of the theories and programs        #
# to determine their effectiveness. The authors and publisher make       #
# no warranty of any kind, expressed or implied, with regard to these    #
# programs or to the documentation contained in these books. The authors #
# and publisher shall not be liable in any event for incidental or       #
# consequential damages in connection with, or arising out of, the       #
# furnishing, performance, or use of these programs.                     #
##########################################################################
