nicht angemeldet
use Mosche;
Gegeben sei mal eine Variable mit dem Inhalt des aktuellen Monats, z.B. so: $akt_monat = "4" ....also April.
Jetzt wird eine Excel-Tabelle ausgelesen mit folgendem Inhalt der ersten Spalte:
...das ganze bis 30
30.
1.
Zu erkennen, dass der 30. & 31. noch zum März gehören und ganz unten schon der Mai mit dem 1. anfängt.
Die Perl-Routine soll nun automatisch erkennen, um welchen Monat es sich handelt und dies in eine neue $Variable[$zaehler] schreiben.
Ich denke mal, $akt_monat ist der Startmonat. Das heisst, alle Daten von Beginn an gehören zu $akt_monat. Du liest danach Zeile für Zeile und vergleichst die aktuelle Zeile mit der letzten (den Punkt bekommst du mit substr weg). Wenn der aktuelle Tag kleiner ist als der vorherige, beginnt ein neuer Monat ($akt_monat erhöhen).
use Tschoe qw(Matti);
Viele Grüße,
Bruno