[Techtalk] On Perl

[Hamster]

hehe. the neat trick is you could get this even 'conciser'


> !/usr/bin/perl
> @words = qw (llama camel alpaca);
> print "what is your name\n";
> $name = <stdin>;
> chomp $name;
> if ($name eq "tan") {
>   print "hey man\n";
> } else {
>   print "hi, $name\n";
>   print "enter the password\n";
>   while (true) {
>     $guess = <stdin>;
>     chomp $guess;
>     if (grep (/^$guess$/, @words)) {
>       last;
>     }
>     print "wrong. try again\n";
>   }
> }
>