variablen aus sub an andere sub übergeben (Allgemeines zu Perl)

[thread]13340[/thread]

variablen aus sub an andere sub übergeben

Leser: 17

Articles: hide open all | hide show old branches

+3 replies

Mindfoo

2009-04-06 04:27

User since
2009-04-03
10 Artikel
BenutzerIn
[default_avatar]

Hallo!
Ich schreibe derzeit an nem irc-bot der verschiedene stats in den channel parsed.

Das script durchläuft eine schleife und wenn bestimmte dinge passieren wird per handler eine function getriggert an die dann 2 variablen übergeben werden:

Code (perl): (dl )

sub on_public {
    my ( $self, $event ) = @_;
    my ( $nick, $mynick ) = ( $event->nick, $self->nick );
    my ($channel) = ( $event->to )[0];
    my ($line) = ( $event->args );
    my ($arg)  = ( $event->args );
    $arg =~ /^(\S+)\s*(.*)$/;
    ( $arg, my $extarg ) = ( $1, $2 );
    if (   $line =~ /^!schreibwas/ ){
            output('blablub');
       }
}

Damit wird sowohl der channel, der eigene irc-nick und der nickname der person definiert die die on_public sub aufgerufen hat. ($nick,$mynick,$channel)
Ausserdem wird noch die chatline geprüft und bei einem bestimmten trigger eine sub aufgerufen.

Soweit so gut... Ich rufe also aus dieser sub eine andere subfunktion auf in der ich die selben variablen nutzen möchte:

Code (perl): (dl )

sub output {
        my $line = shift;
        my ($channel) = ( $event->to )[0];
        $self->privmsg( $channel, "$line" );
}

Wie gehe ich hier vor? Ich habs schon mit "our" probiert, aber da gibts folgenden error:
Variable "$event" is not imported at qlstats.pl line 604.
Variable "$self" is not imported at qlstats.pl line 606.
Variable "$self" is not imported at qlstats.pl line 608.
usw.

ein schmutziger workaround wär das pushen der vars in ein globales array das ich dann wieder abfrag, aber das is nich best practice oder? ;)

Danke schonmal :)

edit:
Ich habs gelöst, aber is das die feine englische?

Code (perl): (dl )

sub on_public {
    my ( $self, $event ) = @_;
    my ( $nick, $mynick ) = ( $event->nick, $self->nick );
    my ($channel) = ( $event->to )[0];
    my ($line) = ( $event->args );
    my ($arg)  = ( $event->args );
    $arg =~ /^(\S+)\s*(.*)$/;
    ( $arg, my $extarg ) = ( $1, $2 );
    if (   $line =~ /^!schreibwas/ ){
            output($self,$event,"blablub");
       }
}

sub output {
        my $self = shift;
        my $event = shift;
        my $line = shift;
        my $nick = ( $event->nick );
        my $channel = ( $event->to )[0];
        if($msgswitch eq 'public'){
                $self->privmsg( $channel, "$line" );
        } elsif($msgswitch eq 'query'){
                $self->privmsg( $nick, "$line" );
        }
}

Last edited: 2009-04-06 05:30:15 +0200 (CEST)

Gast asdfmann

2009-04-06 05:22

Lies SICP

nepos

2009-04-06 08:13

User since
2005-08-17
1420 Artikel
BenutzerIn

Vergiss einfach den Mist mit globalen Variablen. Das ist unnoetig und fehleranfaellig!

Warum uebergibst du die Variablen nicht einfach beim Aufruf?

Code (perl): (dl )

sub on_public {
...
    if (   $line =~ /^!schreibwas/ ){
            output('blablub', $channel); # Wobei ich hier $channel und $line vertauschen wuerde.
    }
}

Und dann in output():

Code (perl): (dl )

sub output {
        my ($line, $channel) = @_;
        $self->privmsg( $channel, "$line" );
}

View all threads created 2009-04-06 04:27.