Perlwarnung in myUtils

[Invers]

Seit lange Zeit steht die folgende Anweisung in myUtils und wurde klaglos ausgeführt:

Code Auswählen Erweitern

my $datum_2 = sprintf("Heute ist %s der " . $Monatstag1 . " " . $Monatsnamen[$Monat-1] . " " . $Jahr,
   $Wochentage[$Wochentag],
   $Monatstag,
   $Monatsnamen[$Monat-1],
   $Jahr,
);

Jetzt kommt seit einiger Zeit (weiss nicht genau, seit wann) die Warnung:

Code Auswählen Erweitern

PERL WARNING: Redundant argument in sprintf at ./FHEM/99_myUtils.pm line 728. eval: {date_time()}


Wer sagt mir bitte, was da falsch ist? Ich bin da nicht der grosse Checker, hatte die ganze Geschichte vor Jahren mal irgendwo übernommen und an meine Bedürfnisse angepasst.

Danke im Voraus..

[rudolfkoenig]

Das erste Argument fuer sprintf ein ein Formatstring, %s und Konsorten benoetigen zusaetzliche Parameter.

Etwa in der Art (ungetestet):

Code Auswählen Erweitern

sprintf("Heute ist %s der %s %s %s",
   $Wochentage[$Wochentag],
   $Monatstag,
   $Monatsnamen[$Monat-1],
   $Jahr,
);

Alternativ baut man den String ohne sprintf:

Code Auswählen Erweitern

"Heute ist $Wochentage[$Wochentag] der $Monatstag1 $Monatsnamen[$Monat-1] $Jahr"
Man kann beide Verfahren mischen, fuehrt aber zu Problemen, wenn die Variablen %s oder Konsorten enthalten, deswegen sollte man das Mischen vermeiden.

[Invers]

Ahhh, ich habe Dank der ausführlichen Erklärung verstanden.
Eine eigene Suche hatte das leider nicht zutage gefördert.
Ich danke für die ausführliche Antwort und entscheide mich mal vorerst für Variante 2.