Datums- und Zeitformatierung (Allgemeines zu Perl)

[thread]17323[/thread]

Datums- und Zeitformatierung

Tags: perl5 Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+8 replies
mzurhorst

2012-04-16 00:52
User since
2012-03-28
9 Artikel
BenutzerIn
Guten Abend zusammen!

Mein Skript wächst und gedeit, aber nun komme ich mal wieder nicht so recht weiter.

Vom prinzipiellen Aufbau geht es gerade um folgendes Teilproblem:
1) schauen ob Garmin GPS-Gerät angeschlossen ist und dort die Fund-Zeit besorgen aus der Datei geocache_visits.txt:
- Dazu übergebe ich meiner sub "get_foundtime_from_garmin" die Variable $gcid, in welcher die ID des aktuellen Caches drin steht.
- Die Formatierung der Zeit lautet hier: "yyyy-mm-ddThh:mmZ".
- Falls etwas fehl schlägt (z.B. Garmin nicht angeschlossen), wird "n/a" zurück geliefert.
2) Fund-Zeit alternativ ermitteln: sub "read_date_from_notetxt"
- Sofern "n/a" erscheint, schaue ich in eine andere Textdatei namens note.txt.
- Dort steht das Datum in einem anderen Format drin: "dd.mm.yyyy".
- Nun wollte ich dieses Datum "umkrempeln" sozusagen, um dann ebenfalls wieder "yyyy-mm-ddThh:mmZ" zu bekommen.
- Da die note.txt Datei die Uhrzeit nicht enthält, wollte ich einfach "T00:00Z" an den String hängen.
3) wenn beide Formatierungen identisch sind möchte ich dann in eine Epochenzeit umwandeln, um die Caches in die richtige Reihenfolge zu bekommen. Diese Funktion gibt es aber noch nicht.

Eine typische Zeile aus der geocache_visits.txt Datei lautet:

Quote
GC39XWB,2012-03-17T10:33Z,Found it,""

Und die Zeile aus der note.txt lautet:

Quote
Found: 17.03.2012

Teil des Hauptprogramms:
Code (perl): (dl )

1 2 3 4 5 6 7 8

my $foundstring = get_foundtime_from_garmin($gcid); print " DEBUG add_new_cache 4: return value from get_foundtime_from_garmin: $foundstring\n\n\n"; if ($foundstring eq "n/a") { # need to read the time from the note.txt file my $notetxtfile = $gcdir . "/found/" . $currentdir . "/note.txt"; $foundstring = read_date_from_notetxt($notetxtfile); }
Funktion read_date_from_notetxt:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

# STEP 2.5 --> read_date_from_notetxt sub read_date_from_notetxt { my $file = shift; read_config $file => my %notetxtrecord; my $datestring = $notetxtrecord{''}{'Found'}; print "DATESTRING: $datestring\n"; # FIXME: this is not working right now my @datearray; @datearray = split(/./,$datestring); print "Date-Array 2nd position: "; print $datearray[2]; print "\n"; my $timestring = $datearray[2]."-".$datearray[1]."-".$datearray[0]."T00:00Z"; print $timestring."\n\n"; return $timestring; }
Funktion get_foundtime_from_garmin (8.6kb)

Soweit funktioniert fast alles. Aber beim Auseinandernehmen und neu zusammen setzen des Datums in der Funktion "read_date_from_notetxt" (Zeile 11ff) kommt es zu diesem Fehler:

Quote
Looking up Der_Rabe_GC39XWB in the SQLite database...: not found!
Hopping now into add_new_cache function...

DEBUG add_new_cache 1: starting function add_new_cache
DEBUG add_new_cache 2: Full path to the file: /home/marcus/Dokumente/Geocaching/gcdir2/found/Der_Rabe_GC39XWB/cache.txt
DEBUG add_new_cache 3: GC39XWB
DEBUG add_new_cache 4: return value from get_foundtime_from_garmin: n/a

DATESTRING: 17.03.2012
Use of uninitialized value in print at /home/marcus/bin/gcfounds2mysql.pl line 200.
Date-Array 2nd position:
Use of uninitialized value $datearray[2] in concatenation (.) or string at /home/marcus/bin/gcfounds2mysql.pl line 202.
Use of uninitialized value in concatenation (.) or string at /home/marcus/bin/gcfounds2mysql.pl line 202.
Use of uninitialized value in concatenation (.) or string at /home/marcus/bin/gcfounds2mysql.pl line 202.
--T00:00Z

Der "DATESTRING" (=das zweite Feld des Arrays) wird noch richtig dargestellt.
- Aber anscheinend wird dieses dann im folgenden split nicht weiter aufgeteilt, so dass die Felder des "@datearray" dann leer sind.

Meine Fragen:
1) natürlich: was mache ich falsch ?
2) mein Plan war bisher: über Regex den String aufteilen in $jahr, $monat, $tag etc, und dann in Epoche umwandeln.
Aber das scheint mühsam. Geht das auch geschickter ?
3) ich hadere mit diesem "T" und dem "Z". Irgendwo im Netz fand ich einen Hinweis auf "Zulu-Zeit" für das "Z", aber das war ein Java-Forum. Da war zwar ebenfalls ISO 8601 erwähnt, aber ich habe im CPAN zu dem Z nichts weiter gefunden. Habt ihr eine Idee ?

Vielen Dank vorweg und gute Nacht!

Gruß,
Marcus

PS: falls ihr antwortet nicht wundern, wenn ich mich nicht direkt melde. Ich programmiere fast nur nach 22 Uhr :-)

modedit Editiert von pq: more-tags hinzugefügt
Last edited: 2012-04-16 02:05:41 +0200 (CEST)
- +2 replies
- pq
  
  2012-04-16 02:04
  
  User since
  2003-08-04
  12209 Artikel
  Admin1
  
  das erste argument für split ist (im normalfall) eine regex.
  alles, was auf die regex matcht, wird weggesplittet und der rest dazwischen landet in der rückgabe-liste. leere elemente am ende der liste fallen automatisch weg.
  
  der punkt in einer regex hat eine sonderbedeutung: er matcht auf alles ausser newlines.
  du splittest also an jedem zeichen, in der folge bleiben nur leere elemente übrig, daher ist @datearray am ende leer.
  
  sonderzeichen in regexes escapest du mit einem backslash.
  perlretut
  
  in dem fall wäre es vielleicht sinnvoll gewesen, wenn du das ganze mal isoliert hättest und dann nur den teil gepostet hättest mit dem split. ist ein recht langes posting.
  ich packe den dritten schnipsel mal in ein more-tag.
  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
  - mzurhorst
    
    2012-04-16 08:25
    
    User since
    2012-03-28
    9 Artikel
    BenutzerIn
    
    Vielen Dank, an dem fehlenden Backslash hat es gelegen.
    
    Ja, du hast Recht, das ist mir auch vorhin aufgefallen, dass ich um den Brei herum geschrieben hatte.
    Allerdings ist es eh nicht meine letzte Frage, und wenn ihr ein wenig mitbekommt, was ich da so bastele, ist es evtl. ja doch besser für das gesamte Verständis. Keine Ahnung, ich achte mal drauf.
    
    Gruß,
    Marcus
    
    PS: Ich markiere es z.Zt. nicht als gelöst, weil die Fragen 2) und 3) ja noch offen sind. Oder soll ich die lieber trennen in einen anderern Thread?
- +4 replies
- Gast wer
  
  2012-04-16 02:12
  
  Ich bezweifle, das das read_config $file => my %notetxtrecord; macht was du dir vorstellst.
  Last edited: 2012-04-16 02:43:33 +0200 (CEST)
  - +3 replies
  - pq
    
    2012-04-16 02:46
    
    User since
    2003-08-04
    12209 Artikel
    Admin1
    
    irgendwie scheint es ja zu funktionieren ($datestring ist ja gesetzt), aber ich denke auch, da ist eher folgendes angebracht:
    read_config $file => \my %notetxtrecord;
    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
    - mzurhorst
      
      2012-04-16 08:33
      
      User since
      2012-03-28
      9 Artikel
      BenutzerIn
      
      Hmm, das funktioniert aber gerade nicht wie ihr beiden das schreibt.
      Sobald ich das einbaue meckert Padre rum mit der Meldung:
      
      Quote
      Zeile 193: (Schwerer Fehler) Type of arg 2 to Config::Std::Hash::read_config must be one of [%$] (not reference constructor), near "%notetxtrecord;"
      
      Und vorher klappte es 1a, hatte die Syntax so verstanden in der CPAN-Doku zu Config::Std.
      Ich verstehe das noch immer nicht mit diesen Referenzen. Hab' mir aber bereits ein Perl-Buch bestellt für ein paar Grundlagen, dann wird einiges besser hoffentlich.
      - topeg
        
        2012-04-16 09:17
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Ich habe gerade in den Code von "Config::Std" geschaut. Das funktioniert, weil read_config explizit eine Referenz anfordert: sub read_config ($\[%$]) {
        
        Das kann man selbst mal ausprobieren:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
        
        #!/usr/bin/perl use strict; use warnings; use Data::Dumper; sub test1 (\[%]) { print Dumper(@_); } sub test2 (\[@]) { print Dumper(@_); } sub test3 (\[$]) { print Dumper(@_); } my %hash=(test1=>1,test2=>1); test1(%hash); my @array=qw(test1 test2); test2(@array); my $scalar='test3'; test3($scalar);
        
        Siehe dazu auch perlsub Abschnitt Prototypes.
        
        Leider funktioniert das bei ObjektMethoden nicht.
- topeg
  
  2012-04-16 10:10
  
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  
  Was die ganze Behandlung von Zeitangaben betrifft.
  Date::Parse erlaubt es verschiedene Formate automatisch zu erkennen und zu parsen. Date::Calc Hilft mit den Zeitangaben zu arbeiten. Für dich interessant dürfte die Funktion Mktime sein.

View all threads created 2012-04-16 00:52.