Bei Abfrage des Rückgabewerts aus einer Subroutine gibts Fehler... - #118231 (Allgemeines zu Perl)

Brenner

2009-01-22 12:26

User since
2009-01-13
87 Artikel
BenutzerIn
[default_avatar]

teil Subroutine:

Code (perl): (dl )

sub logfilename {
        my $self = shift;
                
        my $logfilename;
        
        if ($self->[1]) {
                $logfilename = $self->[1]; }
        else {
                $logfilename = "DEFAULT_logfile_name";  }
                                
        return $logfilename;
}

aufruf im hauptprogramm:

Code (perl): (dl )

1
2

my $log2 = <Modulpfad>->logfilename();
print "Zurueckgegebener Wert von der subroutine: ".$log2;

Die Subroutine macht soweit alles vernünftig und der Returnwert ist auch der den ich haben will. Wenn ich den Wert aber so im Hauptprogramm versuche wieder rauszufischen bekomme ich folgende Meldung.

Code: (dl )

1
2
3

Z:\test> perl test_log.pl
Can't use string ("<Modulpfad>") as an ARRAY ref while "strict refs" in u
se at Z:/test/log.pm line 99.

Line 99 ist

if ($self->[1]) {

in der Subroutine.