Problemer med Learning perl

Post den kode du har, så kigger vi på det

:)

JustinCase

ok..


init_words();
print "what is your name? ";
$name = <STDIN>;
chomp($name);

if ($name =~ /^randal\b/i) { #go back the other way:-)
    print "hello, randal! how good of you to be here!\n";
} else {
    print "hello, $name!\n"; #ordinary greeting
    print "what is the secret word? ";
    $guess = <STDIN>;
   
    while (! good_word($name, $guess)) {
        print "wrong try again. What is the secret word? ";
        $guess = <STDIN>;
        chomp $guess;
    }
}

dbmopen (%last_good, "lastdb", 0666);
$last_good{$name} = time;
dbmclose (%last_good);

sub init_words {
    while ($filename = <*.secret>) {
        open (WORDSLIST, $filename) &#124;&#124;&#124;&#124; die "can't open $filename: $!";
   
    if (-M WORDSLIST < 99.0) {
        while ($name = <WORDSLIST>) {
            chomp ($name);
            $word = <WORDSLIST>;
            chomp ($word);
            $words{$name} = $word;
        }
    } else {
        rename ($filename, "$filename.skod") &#124;&#124;&#124;&#124; die "can't rename filname.old: $!";
    }
    close WORDSLIST;
    }
}

sub good_word {
    my($somename, $someguess) = @_;
    $somename =~ s/\W.*//;
    $somename =~ tr/A-Z/a-z/;
   
    if ($somename eq "randal") {
        return 1;
    } elsif (($words{$somename} &#124;&#124;&#124;&#124; "skod") eq $someguess) {
        return 1;
    } else {
        return 0;
    }
}

       

Hmm det kører fint for mig. Får du fejl eller hvad ??

Kører du det under Windows, for så skal du lige intrallere en Perl fortolker

Jah.. altså den starter den godt nok men det virker ikke som det skal .. ehm.. det er jo sådan at hvis du skriver et navn er der tilknyttet et ord som den så skal kunne godkende .. men det virker ikke.. den kan ikke kende nogle ord ikke engang groucho ..

Husk når man uploader et perl script skal dit ftp program bruge transfer type ASCII. til at uploade med eller viker perl programmet ikke.

Jeg udvikler lokalt men ellers tak :)

Mit gæt er, at du har ændret lidt i eksemplet. Jeg tvivler på at hr.
Randal har skrevet "skod" i sit program. I særlig grad er det derfor
linien:

  } elsif (($words{$somename} || "skod") eq $someguess) {

som jeg kraftigt formoder bør have denne form:

  } elsif ($words{$somename} eq $someguess || $someguess eg "skod") {

Det du prøver på kan man ikke. Er der andet galt?