[Perl]msn.pm + hangman

[Verwijderd]

Ik wil dus met behulp van msn.pm en Perl een MSN botje maken, waarmee je hangman kan speluh, maar dat lukt niet echt, kan iemand mij vertellen wat ik fout doe?

Hangman.pl

code:

sub hangman {

    $victim = shift;
    $msg = shift;

    my $dict='c:\words.txt'; #change this later??
    my $guesses=6;

    my $word;
    my $flags;
    my $count;
    my @alpha;
    my $g;
    my $i;

    open(WORDS,"<$dict") || die "Cannot read from $dict: $!\n";
    srand; # seed the random generator
    rand($.) < 1 && ($word = $_) while <WORDS>;
    close(WORDS);

    chomp($word);
    $word =~ tr/[A-Z]/[a-z]/;
    $flags = $word;
    $count = 0;

    while($count<$guesses) {
        $reply = "\nBad guesses: $count (upto $guesses allowed)\n";
        $$self->sendmsg($victim, "$reply");

        $reply = "";
        for($i=0;$i<length($word);$i++){
            if(substr($flags,$i,1) ne '1'){$reply .= '_'}

            else{
                $reply = substr($word,$i,1);
            }
        }

        $$self->sendmsg("$reply");

        $reply = "\nYour guesses:\n\n ";
        foreach (@alpha) {
            $reply .= $_;
        }

        $$self->sendmsg($victim, "$reply");
        
        while(join('',@alpha)=~/$g/) {
            $$self->sendmsg($victim, "Already guessed\n");
            $$self->sendmsg($victim, "\nNext letter: ");
            chomp($_ = $msg);
            tr/[A-Z]/[a-z]/;
            $g=$_;
        }

        push(@alpha,$g);

        if($flags=~/$g/) {
            $flags=~s/$g/1/g;
        }

        else {
            $count++;
        }

        if($flags!~/[a-z]/) {
            $$self->sendmsg($victim, "\nYou got it!");
            last;
        }



        $reply = "The word was `$word'\n";
        $$self->sendmsg($victim, "$reply");




    }
    return $reply;
}


1;

Hij geeft dan onderstaande foutmelding

code:

print() on closed filehandle MSN::LOG at C:/Perl/lib/MSN.pm line 77, <GEN3> line
 5.
Can't call method "sendmsg" on an undefined value at commands/hangman.pl line 28
.

[tomato]

Lees wat de foutmelding zegt. Meer kan ik er echt niet van maken.

[Verwijderd]

tomato schreef op 06 oktober 2002 @ 03:04:
Lees wat de foutmelding zegt. Meer kan ik er echt niet van maken.

Welke command moet ik dan gebruiken?

[Verwijderd]

je begrijpt wat die error betekent toch?

[Verwijderd]

Verwijderd schreef op 06 oktober 2002 @ 04:38:
je begrijpt wat die error betekent toch?

Eh nee niet echt , wat betekent het dan precies, en hoe zorg ik ervoor dat het gaat werken?

btw, kga nu ff ben om 10 uur weer terug

[Verwijderd]

ik ken 0 perl maar als ik moet gokken dan is $$self nix. ik gok dat sub een functie is, en dat $$self moet verwijzen naar de perl variant van een instantie van een klasse.

[Verwijderd]

Verwijderd schreef op 06 oktober 2002 @ 04:45:
ik ken 0 perl maar als ik moet gokken dan is $$self nix. ik gok dat sub een functie is, en dat $$self moet verwijzen naar de perl variant van een instantie van een klasse.

$$self verwijst naar bot.pl, waar de library MSN.pm gebruikt wordt

[Verwijderd]

Is er dan echt niemand die wat van MSN.pm afweet?

[Ericston]

Eh nee niet echt , wat betekent het dan precies, en hoe zorg ik ervoor dat het gaat werken?

$$self is undefined. In PHP zou dit een variabele variabele zijn, en zou dat niet werken. $self zou dan wel moeten werken. Maar aangezien ik niet veel van Perl weet kan dat ook onzin zijn.

Je maakt trouwens de indruk dat je gewoon deze code hebt overgenomen in de hoop iets leuks te kunnen maken, er komt een fout waar je niks van snapt en pleurt wat zut hier neer en vraagt of anderen het voor je te maken. Zo werkt het echter niet... leer Perl ofzo.

[Juup]

Verwijderd schreef op 06 oktober 2002 @ 03:01:
Hangman.pl

code:

sub hangman {

    $victim = shift;
    $msg = shift;
...
        $$self->sendmsg($victim, "$reply");
...

...

code:

print() on closed filehandle MSN::LOG at C:/Perl/lib/MSN.pm line 77, <GEN3> line
 5.
Can't call method "sendmsg" on an undefined value at commands/hangman.pl line 28
.

Okee je had niet alle code hoeven posten maar een paar regels rond regel 77 van MSN.pm was wel handig geweest.

Eerst even over $$self: Als $self een referentie bevat (naar een scalar bijvoorbeeld) dan kan deze dereferenced worden door er een $ voor te zetten: $$self.

code:

my $scalar = 'blaat';
my $ref = \$scalar; # $ref bevat nu een referentie naar $scalar
print $$ref; #output: blaat

Er is iets mis met die $self in jouw code. Kun je een stuk uit je code laten zien waar die $self wordt aangemaakt of gevuld?

[Verwijderd]

Ik gebruik zelf ook wel eens MSN.pm, werkt prima, ik zie alleen dat je $self nooit binnen je functie haalt. De eerste variabele op @_ is namelijk de waarde die je waarschijnlijk in $self wilt hebben. Het dient m.i. zo te gebeuren:

Perl:

use MSN;

my $client = MSN->new();
$client->connect($MSN_user, $MSN_pass, '', { 
    Message  => \&Message, 
    }
);

# [...]

sub Message 
{
 my ($self, $username, undef, $msg) = @_;
 if($msg eq "quit")
 {
  $$self->sendmsg("whoops, I'm going offline...");
  die;
 }
}

In jouw code bevat $victim dus de waarde die eigenlijk in $self had moeten staan. Maar kijk ook eens naar de voorbeelden die bij MSN.pm zaten...