Mega Code Archive

 

Categories / Perl / Language Basics

 

Eq, ne, lt, gt operators

#!perl @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";      } }