Datum als String eingeben und in Datumsformat umwandeln (gelöst) (Allgemeines zu Perl)

[thread]19660[/thread]

Datum als String eingeben und in Datumsformat umwandeln [gelöst]

Tags: perl5 string Date Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+6 replies
Shaq17

2015-05-18 13:15
User since
2015-05-12
7 Artikel
BenutzerIn
Hallo Zusammen,

ich habe folgendes Problem:
Ich habe ein Skript (siehe unten) und dieses rechnet ein eingetragenes Datum stündlich hoch.
Das heißt: Gebe ich als Parameter z.B. 19.05.2015 ein, dann soll Zeile 1 so aussehen:
19.05.2015 00:00:00
Stündlich hochgezählt sieht es dann etwa so aus:
19.05.2015 01:00:00
19.05.2015 02:00:00
19.05.2015 03:00:00
usw.

Als Argument ARGV[0] möchte ich das manuell eingetragene Datum haben.
Als Argument ARGV[1] soll der Pfad .csv Datei angegeben sein, die eingelesen wird.
Als Argument ARGV[2] soll eine Output Datei angegeben werden, in die das Ergebnis (also die jeweiligen Zeitstempel) geschrieben wird.
Auch das soll ein .csv Datei sein.

Da ich unix benutze, reicht für die Ausgabe der " >> Name.csv " befehl.

Hier mein vorheriger Code:
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 25 26 27 28 29

#!/usr/bin/perl use DateTime; $Inputfile = $ARGV[0]; # Name the file open(INFO, $Inputfile); # Open the file @lines = <INFO>; # Read it into an array close(INFO); # Close the file my$dt = DateTime -> now; $dt -> set_hour(0); $dt -> set_minute(0); $dt -> set_second(0); print $lines[0]; print $lines[1]; for ($i = 2; $i<@lines; $i++) { $datum=$dt->dmy('.') . " " . $dt->hms(':'); @currentLine = split(/;/, $lines[$i]); print($datum . ";" . $currentLine[1]); $dt -> add(hours=>1); }
Wichtig: Hier ist es halt noch so, dass ARGV[0] die input file und ARGV[1] die output file ist. Das will ich ja ändern, wie oben angegeben.
Desweiteren: Wie kann ich jetzt per if - Anweisung zb verlangen, dass das als String eingetippte Datum im Format DD.MM.YYYY umgewandelt wird, und weiterverarbeitet wird?
Bsp: ich gebe als Parameter ARGV[0] "20.05.2015", dann soll er in der Output datei mit genau diesem Tag anfangen, die Uhrzeit auf 0 Uhr stellen.

Meine idee als Pseudo Code:
Code: (dl )

1 2 3 4 5 6

if (ARGV[0] = 'now') then DateTime -> now; else ARGV0 umwandeln in internes Datum DateTime = internes Datum (umgewandelt) endif
Dies bräuchte ich jetzt als funktionsfähiges Perl Skript:)
Danke
Last edited: 2015-05-18 13:19:14 +0200 (CEST)
- +5 replies
- Raubtier
  
  2015-05-18 13:22
  
  User since
  2012-05-04
  1075 Artikel
  BenutzerIn
  
  Gegenfrage: was kommt nach folgender Zeit 29.03.2015 01:00:00?
  
  Mögliche Antworten wären
  29.03.2015 02:00:00 oder aber
  29.03.2015 03:00:00
  
  (in anderen Worten: du musst dir auch vorher im Klaren sein, wie du Zeitumstellungen behandeln möchtest)
  Last edited: 2015-05-18 13:23:41 +0200 (CEST)
  - Shaq17
    
    2015-05-18 13:28
    
    User since
    2015-05-12
    7 Artikel
    BenutzerIn
    
    Nach 29.03.2015 01:00:00 kommt dementsprechend 29.03.2015 02:00:00 ...
    
    Was ich noch hinzufügen kann:
    
    Falls Datum angegeben, verwende das eingegebene Datum.
    Falls Datum nicht angegeben, das heutige Datum benutzen.
    Last edited: 2015-05-18 13:30:41 +0200 (CEST)
  - +3 replies
  - hlubenow
    
    2015-05-18 15:38
    
    User since
    2009-02-22
    875 Artikel
    BenutzerIn
    
    Raubtier
    du musst dir auch vorher im Klaren sein, wie du Zeitumstellungen behandeln möchtest
    
    Macht das nicht DateTime automatisch?
    - +2 replies
    - Raubtier
      
      2015-05-18 16:14
      
      User since
      2012-05-04
      1075 Artikel
      BenutzerIn
      
      DateTime rechnet so, wie du es dem Modul sagst. Wenn du eine Zeitzone wie Europe/Berlin angibst, wird die Zeitumstellung durchgeführt.
      
      Allerdings war das für mich eher eine fachliche Frage als eine technische. Was für eine Zeit soll denn in der Datei stehen? Das kann DateTime dir ja nicht beantworten. Von daher kann es das Problem nicht automatisch lösen.
      
      Ansonsten verstehe ich das Problem von Shaq17 nicht, denn das gepostete Programm tut doch schon praktisch alles gewünschte, nur dass die Kommandozeilenargumente anders sollen. Wo ist das Problem?
      - Shaq17
        
        2015-05-28 14:37
        
        User since
        2015-05-12
        7 Artikel
        BenutzerIn
        
        Hat geklappt. Vielen Dank.

View all threads created 2015-05-18 13:15.