Comparing Strings : Compare « String « Perl






Comparing Strings

   


#$a gt $b $a sorts alphabetically after $b
#$a le $b $a sorts alphabetically before $b
#$a eq $b $a is the same as $b
#$a ne $b $a is not the same as $b

#!/usr/bin/perl
use warnings;
use strict;
my $password = "password";
print "Enter the password: ";
my $guess = <STDIN>;
chomp $guess;

if ($password eq $guess) {
    print "Pass, friend.\n";
}
if ($password ne $guess) {
    die "Go away, imposter!\n";
}

   
    
    
  








Related examples in the same category

1.Compare two words with cmp
2.String comperison operator: cmp
3.String comperison operator: equal
4.String comperison operator: gt (greater than)
5.String comperison operator: lt (less than)
6.The correct use of three of the operators: eq, it, and gt.
7.A very simple password checker.
8.Check password