Thread Perl für Anfänger! (11 answers)
Opened by Togad at 2007-09-20 12:00

Togad
 2007-09-20 12:00
#99719 #99719
User since
2007-09-20
21 Artikel
BenutzerIn
[default_avatar]
Hi ich habe hier ein Programm, dass ich nicht ganz verstehe.
Ich habe vorallem Probleme mit diesem hier:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

# Usage: my $logfile = $handler->conf( 'LogFile' ); # return value
#    or: $handler->conf( 'LogFile' => $myLogfile ); # set    value
sub conf {
    my ( $self, $option, @params ) = @_;

    if ( scalar @params ) {    # if parameter submitted, set it
        $self->{CONFIG}->{$option} = $params[0];
    } # if

    unless ( exists $self->{CONFIG}->{$option} ) {
        Carp::croak "Error: \$handler->conf($option) not existing";
    } # unless

    return $self->{CONFIG}->{$option};
} # conf


Kann mir das einer so erklären das sogar ich das verstehe???
Vorallem wüsste ich gerne was $self->{CONFIG}->{$option} = $params[0]; ist. Ein Objekt? Referenz? Was anderes???

Danke schonmal für die Antworten.

MFG Togad


edit pq: perl-tags hinzugefügt

View full thread Perl für Anfänger!