KW ein kleines Perl Module

[pl]

Hi Rolf mein Lieber,

Danke für das Codebeispiel.

Aber, hat perl kein switch/case Konstrukt? Das wäre in der first Funktion bestimmt besser als 6 unnötige sprintf Aufrufe.

sprintf wird nur einmal aufgerufen: Mit dem Wochentag gehts in das assoz. Array und damit nur ein sprintf ins return. Schreib da mal noch ein return davor

return $cwd{$self->wd(1,1,$year)->{num}};

Ansonsten ist der klassische Switch auch in Perl möglich. Ich kenne jedoch keinen der damit arbeitet 😉

Schöne Grüße.