Datumsformatierung DD.MM.YY und Rechnen (gelöst) (Allgemeines zu Perl)

[thread]17563[/thread]

Datumsformatierung DD.MM.YY und Rechnen [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+15 replies
Forza

2012-07-17 08:48
User since
2012-07-11
20 Artikel
BenutzerIn
Hallo,
Ich muss momentan mit dem aktuellen Datum arbeiten. Dazu brauche ich das oben genannte Format DD.MM.YY. Wie Ihr ja wisst:
Code: (dl )

$date=localtime(time);
Gibt dies ja das Datum in dem Format zurück Tue Jul 17 08:11:37 2012 damit kann Ich aber leider nicht arbeiten.
Ich weiß, dass das Format DD.MM.YY nicht klug ist aber ich kann es leider nicht ändern da ich dieses mit dem Server abgleichen muss und dieser mir das Datum in dem Format wiedergibt.
Ich hatte es dann mit diesem code Probiert:
Code: (dl )

($day, $month, $year) = (localtime)[3,4,5];
Die Ausgabe dabei beträgt dann aber:
17
6
112
Ich weiß, Das ich zum monat eine 1 addieren muss nur leider funktioniert
$month+1; nicht und zu $year müsste ich 1900 Addieren aber auch dies funktioniert nich mit $year+1900.
Außerdem wäre die ausgabe dann auch YYYY womit ich wiederum nicht arbeiten könnte.
Mit Posix kann ich leider auch nicht arbeiten, da es nicht installiert ist und ich auch keine Rechte habe dieses zu installieren.
Hoffentlich kann mir jemand von euch weiterhelfen Vielen Dank.

EDIT:
Hab mir da jetzt mal eine Lösungszusammen gebastelt
Code: (dl )

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

#!/usr/bin/perl -w ###$ARGV[0] ruft den uebergebenen wert auf print "$ARGV[0]\n"; #Aktuelles Datum holen ($day, $month, $year) = (localtime)[3,4,5]; #Datum in Format TT.MM.YY umwandeln und in $Datum speichern $year = sprintf("%02d", $year % 100); $month += 1; $month = sprintf("%02d",$month); #Tag mit dem wert abziehen der uebergeben wird $day -= $ARGV[0]; $datum = "$day.$month.$year"; print "$datum \n";
Mit dem Übergabewert $ARGV bestimme ich wieviele tage ich zurück gehen möchte, nun habe ich ein Problem, dass ich nun in den Tagen auch in den negativen Bereich wandeln kann und nun suche ich eine Lösung die :
Wenn der Tag 0 wäre den Monat um 1 Herunterzaehlt und selbständig feststellt ob der Monat 31,30 oder 29 Tage hat damit ich zur not auch noch weitere Tage zurückgehen kann.
EDIT2:
Dies müsste ich dann auch noch mit dem Jahr berücksichtigen da es ja sein kann das das programm am 02.01.13 gestartet wird und dann 5 Tage zurück geht.
Vielen Dank.
Last edited: 2012-07-17 09:22:17 +0200 (CEST)
- +5 replies
- Gast Muffi
  
  2012-07-17 09:13
  
  1. Was heisst "funktioniert nicht"? und
  2. Falls du regelmässiger mit einem Datum arbeiten musst machs nicht per Hand, das frustriert nur. Wenns irgendwie geht benutz ein fertiges Datumsmodul z.B.
  
  http://search.cpan.org/~dlux/Class-Date-1.1.10/Dat...
  Last edited: 2012-07-17 09:27:12 +0200 (CEST)
  - +4 replies
  - Forza
    
    2012-07-17 09:31
    
    User since
    2012-07-11
    20 Artikel
    BenutzerIn
    
    Das mit dem Funktionert nicht hatt sich erledigt musste += verwenden anstatt einfach +.
    Und zu zwei ja vlt. sollte ich mir mal so ein Fertiges modul anschauen nur hab solche Dinger noch nie benutzt =) deswegen kam mir die idee dies erstmal selbst zu lösen.
    Muss ja jetzt nur noch den Maximalwert vom Tag abhaengig vom Monat herausbekommen.
    - +3 replies
    - Gast Muffi
      
      2012-07-17 09:45
      
      Das kommt drauf an was dein Ziel in Perl ist.
      Bei regelmässigem Gebrauch wirst du um Module eh nicht rumkommen und Datumshandling per Hand wird eklig. Es gibt zig Sachen die man falsch machen kann und weitere zig ausnahmefälle, schaltjahre, sommerzeiten und weissdergeier.
      Last edited: 2012-07-17 09:52:12 +0200 (CEST)
      - +2 replies
      - Forza
        
        2012-07-17 09:57
        
        User since
        2012-07-11
        20 Artikel
        BenutzerIn
        
        Ich denke mir das wahrscheinlich einfach ein bisschen zu einfach aber so Komplex soll das Programm auch garnicht werden Prinzipiell bräuchte ich einfach nur eine Funktion die mir sagt so und so viele Tage hat dieser Bestimmte Monat.
        
        Raubtier
        
        2012-07-17 10:01
        
        User since
        2012-05-04
        1075 Artikel
        BenutzerIn
        
        auch das geht mit Date::Calc!
        
        $days = Days_in_Month($year,$month);
        
        Aber beachte: so einfach ist das nicht. Was passiert, wenn du mal 1000 Tage abziehst? Dann müsstest du ja mehrmals die Anzahl der Tage im Monat abziehen...
- +8 replies
- Linuxer
  
  2012-07-17 09:33
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Mit Date::Calc's Funktion Add_Delta_Days() habe ich gute Erfahrungen gemacht.
  
  Das "date"-Kommando im Linux kann auch zurückrechnen:
  
  Code: (dl )
  
  date -d "7 days ago" +"%d.%m.%y"
  
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +7 replies
  - Forza
    
    2012-07-17 09:45
    User since
    2012-07-11
    20 Artikel
    BenutzerIn
    
    Hm ich finde leider nichts zu dem date Kommando wie ich dies in Perl einbauen kann.
    Das Programm oben bei Edit liefert mir ja jetzt schon das gewünschte Format ich kann damit auch von heute an 16 tage zurück gehen aber ab dem 17ten Tag komm ich halt auf den 00.07.12 und dies möchte ich vermeiden.
    Ist es nicht irgendwie möglich sowas zu machen:
    
    Code: (dl )
    
    1 2 3 4 5 6
    
    if($day <= 0) { $month -=1; FINDE HERAUS WIEVIELE TAG DER MONAT HAT; UND ZIEH DEN REST BEI $day AB; }
    - Raubtier
      
      2012-07-17 09:59
      
      User since
      2012-05-04
      1075 Artikel
      BenutzerIn
      
      2012-07-17T07:45:23 Forza
      Hm ich finde leider nichts zu dem date Kommando wie ich dies in Perl einbauen kann.
      
      perldoc -f system
      perldoc perlop (und nach qx suchen)
      
      Für den Rest der Frage: beherzige einfach den Kommentar von Linuxer, Date::Calc's Funktion Add_Delta_Days() zu benutzen.
    - +5 replies
    - Linuxer
      
      2012-07-17 10:05
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Naja, möglich ist es sicher.
      
      Wenn Du das nicht zum Lernen re-implementieren willst, dann frag ich mich, warum Du Dir die ganze Arbeit machen willst. Dann greif doch auf ein bereits existierendes Modul zurück.
      
      Wie viele Tage ein Monat hat, ist doch relativ fest und ließe sich in einem Hash festhalten und abgreifen:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7
      
      my %days_per_month = ( 01 => 31, 02 => 28, 03 => 31, 04 => 30, ... );
      
      Damit ist es aber nicht getan. Interessant wird es dann, wenn Du mehr Tage abziehst und dadurch beispielsweise 2 Monate in der Vergangenheit landest. Oder eben noch mehr und ein Jahreswechsel kommt dazu.
      Was ist wenn das jetzige Jahr ein Schaltjahr ist, oder das vorige?
      
      Diese ganzen Sonderfälle sind doch schon gelöst worden und stecken in den fertigen Modulen drin.
      
      Wenn Du die Module nicht installieren willst/kannst/darfst, schau Sie Dir doch im CPAN an. Schau in Ihren Quellcode und sieh nach, wie das Problem dort gelöst wurde. So kannst Du es vielleicht auch zur Not selber re-implementieren.
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
      - +4 replies
      - Forza
        
        2012-07-17 10:16
        
        User since
        2012-07-11
        20 Artikel
        BenutzerIn
        
        Jap genau das werd ich jetzt wohl tun dürfen da ich Leider keine befugniss besitze Module zu Installieren also muss ich mir aus den Modulen die Sachen jetzt herausziehen.
        Wer mal mein glück mit Pcalc versuchen
        Last edited: 2012-07-17 10:27:27 +0200 (CEST)
        
        Linuxer
        
        2012-07-17 10:28
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Läuft es auf einem Linux?
        Warum dann nicht die "date" Variante verwenden?
        
        "Raubtier" hat Dir schon die notwendige Doku genannt.
        
        Hier nochmal als Link:
        
        http://perldoc.perl.org/functions/system.html
        http://perldoc.perl.org/perlop.html#qx/STRING/
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        Gast Muffi
        
        2012-07-17 10:33
        
        Nimm mal das Class::Date-Modul von mir oben, geh auf den Source und kopiers in den lib-Suchpfad nach Class/Date.pm
        
        Dann leg noch ein Verzeichnis Class/Date/ an und leg da ein Const.pm rein
        
        http://cpan.uwinnipeg.ca/htdocs/Class-Date/Class/D...
        
        Und dann sollts gehn. Ich glaub irgendwo kommen dann noch warnings in Date.pm. Suchen und auskommentieren.
        
        Und schon geht:
        date [$year,$month,$day,$hour,$min,$sec] - '1D';
        Last edited: 2012-07-17 10:46:50 +0200 (CEST)
        
        pq
        
        2012-07-17 10:47
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2012-07-17T08:16:54 Forza
        Jap genau das werd ich jetzt wohl tun dürfen da ich Leider keine befugniss besitze Module zu Installieren also muss ich mir aus den Modulen die Sachen jetzt herausziehen.
        
        erstmal folgendes durchlesen, bevor man sowas behauptet:
        ModuleWieInstalliereIchEinModul
        ein modul ist keine blackbox, die durch zauberei funktioniert. es sind oft einfach nur dateien mit der dateiendung ".pm". (nicht immer, nein)
        
        diese aussage, "ich kann/will keine module benutzen, weil ich das noch nie gemacht habe oder weil ich nix installieren darf", kommt so oft. für den lernzweck kannst du auf module verzichten, aber ansonsten programmierst du ja auch nicht alles neu, was andere erfunden haben. sonst müsstest du statt perl assembler benutzen.
        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
- Forza
  
  2012-07-17 10:59
  
  User since
  2012-07-11
  20 Artikel
  BenutzerIn
  
  Naja mein Chef meinte halt ich kann hier keine Module installieren hab jetzt aber trotzdem mit dem Modul Date::Pcalc gearbeitet und es klappt hervorragend.
  Danke für die Tipps mit den Modulen kann jetzt ohne probleme auch 2000 tage zurückgehen da das Modul Schaltjahre und so weiter berücksichtigt. Hab mein Ergebniss auch extra mit der Seite verglichen: http://datumsrechner.miniwebapps.de/
  Vielen Dank euch dafür

View all threads created 2012-07-17 08:48.