First off, in your first line you're defining an array "@words" when what I think you want is a hash, "%words". Below, in the "$words{$name}" part, that wouldn't work as a lookup with the array @words, which is what you have now. Change the "@" to a "%" and your code should work.

I guess the thing to learn here is that problems aren't always obvious. If you start developing your scripts with use strict; and  perl -wT it will initially seem like a pain in the butt (but) problems like this will just pop out at you.

Good luck!

Here's your "llama" code, fixed.


#!/usr/bin/perl
use strict;

my(%words,$name,$secretword,$words,$guess);

%words=qw(
    fred  camel
    barney  llama
    betty  alpaca
    wilma  alpaca
);
print "What is your name?\n";
$name=<STDIN>;
chomp ($name);
if ($name eq "Randal")
{
    print "Hello, Randal! Welcome!\n"
} else {
    print "Hello $name.\n";
    $secretword=$words{$name};       # use {} for hash
    if ($secretword eq ""){          # gives me an error around here
        $secretword="stupid";      #default secret word
    }
    print "What is the secret word?";
    $guess =<STDIN>;
    chomp($guess);
    while ($guess ne $secretword){
        print "Wrong, try again.\n";
        $guess=<STDIN>;
        chomp ($guess);
    }
}

[download]

In reply to Re: HElp on program by Hero Zzyzzx
in thread HElp on program by alvarr3

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.