Mega Code Archive

 

Categories / Perl / String

 

The correct use of three of the operators

#!/usr/local/bin/perl -w     # Do this forever.     for (;;)     {        print "Enter a word: ";        my $word1 = <STDIN>; chomp $word1;        print "Enter another word: ";        my $word2 = <STDIN>; chomp $word2;        if ($word1 eq $word2)        {           print "The two phrases are equivalent.\n";        }        elsif ($word1 lt $word2)        {           print "<$word1> is alphabetically less than <$word2>\n";        }        elsif ($word1 gt $word2)        {           print "<$word1> is alphabetically greater than <$word2>\n";        }     }