Mega Code Archive

 

Categories / Perl / String

 

A very simple password checker

#!/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);