...
Code Block |
---|
|
my $num = 02;
# ...
if ($num eq "02") {print "true\n"} else {print "false\n"};
|
...
Code Block |
---|
|
my $num = 02;
# ...
if ($num == "02") {print "true\n"} else {print "false\n"};
|
...
Code Block |
---|
|
sub check_password {
my $correct = shift;
my $password = shift;
# encrypt password
if ($password == $correct) {
return true;
} else {
return false;
}
}
|
...
Code Block |
---|
|
sub check_password {
my $correct = shift;
my $password = shift;
# encrypt password
if ($password eq $correct) {
return true;
} else {
return false;
}
}
|
...
[CPAN] Elliot Shank, Perl-Critic-1.116
ProhibitMismatchedOperators
[Wall 2011] perlop manpage
...
Image Modified Image Modified