22 lines
438 B
Perl
22 lines
438 B
Perl
#$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";
|
|
}
|
|
|
|
|
|
|