Datumsabstand berechnen (solved) (Allgemeines zu Perl)

[thread]17791[/thread]

Datumsabstand berechnen [solved]

Tags: perl5 Similar Threads

Readers: 22

Articles: hide open all | hide show old branches

+16 replies
geloescht

2012-09-29 13:44
User since
2012-06-19
141 articles
BenutzerIn
Mahlzeit Forum

Eine doch simple Frage, die auf den zweiten Blick gar nicht so simpel ist.
Ich hab in einer CSV-DB in einer Spalte folgende Werte stehen(z.B):
Code: (dl )

1 2 3 4

statusdatum: 20110930 20110929 20110928
Das heutige Datum wäre:
Code: (dl )

20120929
Beim Heraussuchen aus der DB sollen aus dem oberen Beispiel die Zeilen 2 und 3 matchen. Das heisst Datumswerte die ein Jahr (Zeile 2) oder länder (Zeile 3) zurück liegen sollen einen Treffer ergeben. Datumswerte die noch nicht ein Jahr zurück liegen keine Treffer (Zeile 1).

Mein momentaner Denkansatz:

Ich splitte das Datum in $statusdatum nach 4 Stellen, und 2 und 2 Stellen:
20110929 => 2011 u. 09 u. 29
In die Skalare:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13

my $yearcheck = "" my $monthcheck = "" my $daycheck = "" $yearsplitt = substr($statusdatum,0,3); # 2011 $monthsplitt = substr($statusdatum,4,5); # 09 $daysplitt = substr($statusdatum,6,7); # 29 if ($yearsplitt < $yeartoday) {$yearcheck = 1;} if ($monthsplitt <= $monthtoday) {$monthcheck = 1;} if ($daysplitt <= $daytoday) {$daycheck = 1;} if ($yearcheck = 1 and $monthcheck = 1 and $daycheck = 1) {Treffer}
Allerdings müsste ich ja dann die gesammte Spalte "statusdatum" in ein Array einlesen, und das Array nach und nach abklopfen?

Wie checkt Ihr Datumsabstände in einer DB. Gibt es da Module für oder geht es noch ganz anders?

Gruss HP-User
Last edited: 2012-09-29 13:47:50 +0200 (CEST)
Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?
- GwenDragon
  
  2012-09-29 13:50
  
  User since
  2005-01-17
  14924 articles
  Admin1
  
  Wenn du es so selbst berechnest, implizierst du wahrscheinlich immer dieselbe Zeitzone und ohne DST (Sommerzeit), oder?
  
  Es gibt für die sichere Berechnung Module wie Date::Calc. Mit Add_... und Delta_...-Funktionen.
  Last edited: 2012-09-29 13:51:30 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +14 replies
- pq
  
  2012-09-29 13:50
  User since
  2003-08-04
  12209 articles
  Admin1
  in dem fall sehr einfach, da die datumsform sortierbar ist (durch die anordnung YMD).
  du nimmst das heutige datum, ziehst ein jahr ab und konvertierst es in die form YYYYMMDD. in der datenbankabfrage vergleichst du dann einfach damit.
  (bei einer csv-datei muss dann natürlich trotzdem die ganze datei durchgegangen werden, da die keine indizes besitzt, aber du sparst dir das selbermachen.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  use DateTime; my $one_year = DateTime->now->subtract( years => 1 ); my $ymd = $one_year->ymd(""); # in der datenbankabfrage: my $sth = $dbh->prepare("SELECT ... WHERE date < ?"); $sth->execute($ymd);
  
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +13 replies
  - geloescht
    
    2012-09-29 15:31
    User since
    2012-06-19
    141 articles
    BenutzerIn
    
    Hallo zusammen / Hi pq
    
    Das DateTime bekomm ich nicht installiert! *gumpfffff*
    Ich habe aber Date::Calc auf dem System.
    
    Ich habe jetzt im Kopf vom Programm das:
    
    Code (perl): (dl )
    
    use Date::Calc;
    
    Das Aktuelle Datum hab ich im Programm so vorliegen:
    
    Code (perl): (dl )
    
    $datetoday = $Jahr.$Monat.$Monatstag;
    
    Die Jahresabfrage oder länger als ein Jahr klappt jetzt - Danke!
    Sieht ein bischen wild aus, aber funktioniert:
    
    Code (perl): (dl )
    
    1 2 3
    
    my $datetody = $Jahr.$Monat.$Monatstag; my $minoryear = substr($datetody,0,4) - 1; $minoryear = $minoryear.$Monat.$Monatstag;
    
    Das setze ich für dein ymd ein und das klappt.
    Damit wäre die Buchungsabfrage für die Jahresfrist erledigt.
    
    Ich benötige aber noch eine 14 Tages-Frist-Abfrage, für den Zahlungseingang. Ich vermute mal schwer, dass das Modul "Date::Calc", welches ja eingebunden ist und funktioniert, sowas berechnen kann?
    (wegen "Date"=Datum und "Calc"- kalkulieren?)
    
    Das Paket Date::Calc hat offensichtlich ein paar _wenige_ Unterfunktionen:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48
    
    use Date::Calc qw( Days_in_Year Days_in_Month Weeks_in_Year leap_year check_date check_business_date Day_of_Year Date_to_Days Day_of_Week Week_Number Week_of_Year Monday_of_Week Nth_Weekday_of_Month_Year Standard_to_Business Business_to_Standard Delta_Days Delta_DHMS Add_Delta_Days Add_Delta_DHMS Add_Delta_YMD System_Clock Today Now Today_and_Now Easter_Sunday Decode_Month Decode_Day_of_Week Decode_Language Decode_Date_EU Decode_Date_US Compress Uncompress check_compressed Compressed_to_Text Date_to_Text Date_to_Text_Long Calendar Month_to_Text Day_of_Week_to_Text Day_of_Week_Abbreviation Language_to_Text Language Languages Decode_Date_EU2 Decode_Date_US2 Parse_Date );
    
    Wenn ich da an den Physikunterricht von damals zurückdenke, steht "Delta" für Unterschied/Differenz. Kann das benötigte Untermodul dann "Delta_Days" sein? Und wie aktiviere ich ein Untermodul?
    
    Gruss HP-User
    Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?
    - +12 replies
    - pq
      
      2012-09-29 15:38
      
      User since
      2003-08-04
      12209 articles
      Admin1
      
      2012-09-29T13:31:04 ?
      Das DateTime bekomm ich nicht installiert! *gumpfffff*
      
      fehlermeldung?
      
      Quote
      Die Jahresabfrage oder länger als ein Jahr klappt jetzt - Danke!
      Sieht ein bischen wild aus, aber funktioniert:
      
      Code (perl): (dl )
      
      1 2 3
      
      my $datetody = $Jahr.$Monat.$Monatstag; my $minoryear = substr($datetody,0,4) - 1; $minoryear = $minoryear.$Monat.$Monatstag;
      
      *seufz* genau aus dem grund sollte man die berechnung nicht selber machen.
      stell dir vor, das aktuelle datum ist 2012-02-29.
      wenn du einfach vom jahr eins abziehst, kriegst du 2011-02-29. dummerweise gabs aber in 2011 keinen 29. februar. je nachdem, was du mit dem datum noch anstellen willst, kann dir das grosse probleme bereiten.
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - +11 replies
      - geloescht
        
        2012-09-29 16:39
        
        User since
        2012-06-19
        141 articles
        BenutzerIn
        
        Hallo Leute
        
        Ich kann jetzt das Date::Calc ein wenig bedienen:
        
        Code (perl): (dl )
        
        1 2 3 4
        
        my ($year,$month,$day) = Add_Delta_Days($Jahr,$Monat,$Monatstag, -14); my $minorday = $year.$month.$day; print "$year,$month,$day";
        
        Problem: "Date::Calc", oder genauer gesagt "Add_Delta_Days" liefert mir das Datum nicht sauber! In dem Skalar steckt bei September keine "09" drin, sondern eine "9". Bei den Tagen das selbe Disaster. Der z.B. "5" statt "05". Also
        
        Statt-> 20120905
        kommt-> 2012 9 5 (führende Nullen Fehlen)
        
        Muss ich das jetzt mit mehreren If-Anweisungen prüfen und die Null mit "Gewahlt" reinklopfen, oder gehts auch einfacher?
        
        Gruss HP-User
        
        PS.: zu DateTime
        Keine Fehlermeldung. Das Paket von CPAN stimmt nicht. Normal steckt im entpacktem Zeugs eine Makeperl.pl drin. Dort war nur ein Build.pl drin, die sich aber nicht installieren lies. Egal, wenn das mit Date::Calc auch geht - so sei es denn...
        Last edited: 2012-09-29 16:41:14 +0200 (CEST)
        Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?
        
        pq
        
        2012-09-29 17:01
        
        User since
        2003-08-04
        12209 articles
        Admin1
        
        2012-09-29T14:39:19 ?
        PS.: zu DateTime
        Keine Fehlermeldung. Das Paket von CPAN stimmt nicht. Normal steckt im entpacktem Zeugs eine Makeperl.pl drin. Dort war nur ein Build.pl drin, die sich aber nicht installieren lies. Egal, wenn das mit Date::Calc auch geht - so sei es denn...
        
        hast du etwas schon wieder versucht, das per hand statt mit cpan zu installieren? cpan kümmert sich von alle darum, ob Makefile.PL oder Build.PL benutzt wird. *seufz*
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +8 replies
        
        GwenDragon
        
        2012-09-29 17:23
        
        User since
        2005-01-17
        14924 articles
        Admin1
        
        Bitte lies ModuleWieInstalliereIchEinModul
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +7 replies
        
        geloescht
        
        2012-09-29 18:08
        
        User since
        2012-06-19
        141 articles
        BenutzerIn
        
        Hallo die Damen ;-)
        
        Diese Seite hat mir schon pq verlinkt. Aba datt geht so net!
        
        Nein ohne Scherz. Mein Ubuntu kennt kein get apt usw... bzw. das geht nur, wenn die Ubuntulibs das bereitstellt. Und da ich altes System, hab ich auch eine magere Library...
        
        Nichts desto Trotz: jetzt geht alles! Habe es mit dieversen Testdaten geprüft!
        
        Die kniffelige Stelle noch zum Zeigen:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
        
        my ($year,$month,$day) = Today(); my ($year,$month,$day) = Add_Delta_Days($year,$month,$day, -14); if ($month eq "1") {$month = "01";} if ($month eq "2") {$month = "02";} if ($month eq "3") {$month = "03";} if ($month eq "4") {$month = "04";} if ($month eq "5") {$month = "05";} if ($month eq "6") {$month = "06";} if ($month eq "7") {$month = "07";} if ($month eq "8") {$month = "08";} if ($month eq "9") {$month = "09";} if ($day eq "1") {$day = "01";} if ($day eq "2") {$day = "02";} if ($day eq "3") {$day = "03";} if ($day eq "4") {$day = "04";} if ($day eq "5") {$day = "05";} if ($day eq "6") {$day = "06";} if ($day eq "7") {$day = "07";} if ($day eq "8") {$day = "08";} if ($day eq "9") {$day = "09";} my $minorday = $year.$month.$day;
        
        Damit hab ich den einstelligen Werten den Garaus gemacht! *hehe*
        Der Witz ist nämlich, dass "Date::Calc" die einstelligen Werte zum Rechnen braucht. Ich aber einstellige Werte weder in der Ausgabe, noch in der DB gebrauchen kann. Aber ich habe es, zusammen mit eurer Hilfe, hinbekommen.
        
        Nebenbei hab ich gelernt, die einzelnen Unterfunktionen von "Date::Calc" zu nutzen. Auf dieser Seite ist ne Beschreibung:
        
        DateCalkManual
        
        Grüsse HP-User
        Last edited: 2012-09-29 18:11:33 +0200 (CEST)
        Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?
        
        pq
        
        2012-09-29 18:11
        
        User since
        2003-08-04
        12209 articles
        Admin1
        
        2012-09-29T16:08:59 ?
        Diese Seite hat mir schon pq verlinkt. Aba datt geht so net!
        
        Nein ohne Scherz. Mein Ubuntu kennt kein get apt usw... bzw. das geht nur, wenn die Ubuntulibs das bereitstellt. Und da ich altes System, hab ich auch eine magere Library...
        
        nicht apt, sobdern cpan... wie oft wurde das jetzt schon gesagt?
        
        shell ->
        cpan Modulname
        oder
        shell ->
        
        Code: (dl )
        
        1 2
        
        cpan cpan[1]> install modulname
        
        ist dir das zu einfach?
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +5 replies
        
        pq
        
        2012-09-29 18:13
        
        User since
        2003-08-04
        12209 articles
        Admin1
        
        2012-09-29T16:08:59 ?
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
        
        my ($year,$month,$day) = Today(); my ($year,$month,$day) = Add_Delta_Days($year,$month,$day, -14); if ($month eq "1") {$month = "01";} if ($month eq "2") {$month = "02";} if ($month eq "3") {$month = "03";} if ($month eq "4") {$month = "04";} if ($month eq "5") {$month = "05";} if ($month eq "6") {$month = "06";} if ($month eq "7") {$month = "07";} if ($month eq "8") {$month = "08";} if ($month eq "9") {$month = "09";} if ($day eq "1") {$day = "01";} if ($day eq "2") {$day = "02";} if ($day eq "3") {$day = "03";} if ($day eq "4") {$day = "04";} if ($day eq "5") {$day = "05";} if ($day eq "6") {$day = "06";} if ($day eq "7") {$day = "07";} if ($day eq "8") {$day = "08";} if ($day eq "9") {$day = "09";} my $minorday = $year.$month.$day;
        
        oh gott...
        perldoc -f sprintf
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +4 replies
        
        geloescht
        
        2012-09-29 18:33
        
        User since
        2012-06-19
        141 articles
        BenutzerIn
        
        Last Post in this Thread :-)
        
        Thema cpan:
        Ich sagte doch er bricht ab. Die Fehlerliste stell ich lieber nicht rein weil zu lange und zu vertraulich! Außerdem möchte ich nichts kaputt machen *g*
        
        Thema Gefühlsausbrüche:
        
        Quote
        oh gott...
        
        ...hehehe - ich schmeiss mich wech! *gröhl* -ich heul grad vor Lachen-....
        
        ...aber ich fühle mit dir *echt*
        
        Hab ich schon erwähnt, was mein Opa immer zu sagen pflegte? Die besten Dinge sind die einfachen Dinge -> So wie mein "if-code" *ohje, hehe*
        
        Gruss HP-User
        Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?
        
        +3 replies
        
        pq
        
        2012-09-29 19:14
        
        User since
        2003-08-04
        12209 articles
        Admin1
        
        2012-09-29T16:33:23 ?
        Thema cpan:
        Ich sagte doch er bricht ab. Die Fehlerliste stell ich lieber nicht rein weil zu lange und zu vertraulich!
        
        das hab ich selten erlebt. du magst keine perl basics lernen (die tutorials kosten kein geld), du magst die verwendung von cpan nicht lernen, du magst keine fehlermeldungen posten (auch wenn man diese kürzen kann und vetrauliche informationen ersetzen kann). na dann viel glück noch in zukunft. mir fällt jedenfalls nicht mehr ein, wie ich dir in zukunft noch helfen könnte.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +2 replies
        
        hlubenow
        
        2012-09-29 20:33
        
        User since
        2009-02-22
        887 articles
        BenutzerIn
        
        2012-09-29T17:14:15 pq
        2012-09-29T16:33:23 ?
        Thema cpan:
        Ich sagte doch er bricht ab. Die Fehlerliste stell ich lieber nicht rein weil zu lange und zu vertraulich!
        
        das hab ich selten erlebt. du magst keine perl basics lernen (die tutorials kosten kein geld), du magst die verwendung von cpan nicht lernen, du magst keine fehlermeldungen posten (auch wenn man diese kürzen kann und vetrauliche informationen ersetzen kann). na dann viel glück noch in zukunft. mir fällt jedenfalls nicht mehr ein, wie ich dir in zukunft noch helfen könnte.
        
        Den Tipp mit "sprintf()" hat er doch anscheinend umsetzen können.
        Es kann doch sein, daß in der Fehlermeldung irgendwelche Verzeichnisnamen gelistet sind, die vertraulich sind, etwa von einem Unternehmen oder so.
        Also, auf meinem Perl 5.8.7 (SuSE 10.0, ja, es ist zu alt) bekam ich DateTime leider auch nicht installiert. Wahrscheinlich sollte man dann ein aktuelleres Perl in "/home/user" dazuinstallieren, aber das ist ja auch nicht gerade eine Anfängeraufgabe. Obwohl ich's mal gemacht hab' und überrascht war, wie leicht das war und wie gut das aktuelle Perl auf meiner alten Kiste durchkompilierte.
        
        renee
        
        2012-10-01 09:09
        
        User since
        2003-08-04
        14371 articles
        ModeratorIn
        
        2012-09-29T18:33:11 hlubenow
        Wahrscheinlich sollte man dann ein aktuelleres Perl in "/home/user" dazuinstallieren, aber das ist ja auch nicht gerade eine Anfängeraufgabe. Obwohl ich's mal gemacht hab' und überrascht war, wie leicht das war und wie gut das aktuelle Perl auf meiner alten Kiste durchkompilierte.
        
        Siehe http://perlbrew.pl/
        OTRS-Erweiterungen (http://feature-addons.de/)
        Frankfurt Perlmongers (http://frankfurt.pm/)
        --
        
        Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
        Perl-Entwicklung: http://perl-services.de/
        
        topeg
        
        2012-09-29 18:00
        
        User since
        2006-07-10
        2611 articles
        BenutzerIn
        
        2012-09-29T14:39:19 ?
        Hallo Leute
        Statt-> 20120905
        kommt-> 2012 9 5 (führende Nullen Fehlen)
        
        Muss ich das jetzt mit mehreren If-Anweisungen prüfen und die Null mit "Gewahlt" reinklopfen, oder gehts auch einfacher?
        
        Ich hatte dir schon mehrere Möglichkeiten gezeigt wie man so was formatieren kann. Ich habe dir sogar eine Funktion geschrieben die das macht. Schau einfach mal in die deine älteren Threads. Ich bin zu faul das alles noch mal zu schreiben.
        
        Edit: Zitat vergessen...

View all threads created 2012-09-29 13:44.