programming-examples/perl/String/A very simple password checker.pl
2019-11-15 12:59:38 +01:00

13 lines
307 B
Raku

#!/usr/local/bin/perl
print ("Enter the secret password:\n");
$password = "bluejays";
$inputline = <STDIN>;
chop ($inputline);
$outputline = $inputline eq $password ?
"Yes, that is the correct password!\n" :
"No, that is not the correct password.\n";
print ($outputline);