Subroutinen zusammenlegen - #76914 (Allgemeines zu Perl)

pktm

2007-05-25 11:21

User since
2003-08-07
2921 Artikel
BenutzerIn

Hm, das ist interessant. Generell solltest du jede Sub nur einmal schreiben müssen :)
Eventuell müsstest du die Schnittstelle zu deinem Hauptprogramm ordentlich gestalten um die Sub mehrfach verwenden zu können.
Woher kommt der Wert für die Zuweisung my $DateiName = $DateiName;? Der wird doch bestimmt aus deinem Hauptprogramm genommen oder?
Den müsstest du irgendwie als Parameter deiner Sub einführen.

Ein Beispiel:

Code: (dl )

my $sub bla {
    my $parameter1 = shift;
    my $parameter2 = shift;
    my $ergebnis = 'voreingestellter Wert oder sowas in der Art';
   # mach was...

    return $ergebnis;
}

Dadurch, dass du die Schnittselle, also das was in die Sub rein und raus kommt ordentlich definierst kannst du die Methode auch schön in einer Schleife mit unterschiedlichen Werten verwenden:

Code: (dl )

foreach my $param1 ( @p1 ) {
    foreach my $param2 ( @p2 ) {
        my $ergebnis = bla(param1, $param2);
    }
}

Grüße, pktm

http://www.intergastro-service.de (mein erstes CMS :) )