Datumsformat ändern (gelöst) (Allgemeines zu Perl)

[thread]15523[/thread]

Datumsformat ändern [gelöst]

Leser: 20

Articles: hide open all | hide show old branches

+8 replies
user123

2010-10-12 08:18

User since
2010-10-12
21 Artikel
BenutzerIn

Hallo zusammen,

ich bin neu hier und habe leider noch nicht soviel Erfahrung mit Perl und hoffe mir kann jemand behilflich sein.

Ich mache eine Datenbankabfrage und bekomme u. a. das Datum mit überliefert.
Dies ist im Format 20-10-12 00:00:00 in der Datenbank gespeichert. Das Datum soll aber nur als 12.10. ausgegeben werden. Ich bin leider noch nicht so fit mit regulären Ausdrücken.

Danke
Last edited: 2010-10-12 09:03:01 +0200 (CEST)
- +4 replies
- ich
  
  2010-10-12 09:14
  User since
  2003-09-19
  120 Artikel
  BenutzerIn
  Hallo,
  
  du koenntest unter anderem das CPAN Module verwenden (DateTime).
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  use strict; use warnings; use DateTime; use DateTime::Format::Strptime qw(strptime); my $dt = strptime("%Y-%m-%d %H:%M:%S", "2010-10-04 19:34:10"); print $dt->ymd;
  
  Oder wie du schon sagtest mit einem regulaeren Ausdruck:
  
  Code (perl): (dl )
  
  1 2
  
  $string = "2010-10-04 19:34:10"; my ($year, $mon, $day, $hour, $min, $sec) = split(/[-: ]/, $string);
  
  Gruss
  
  Jan
  If you tell the truth you don't have to remember anything.
  -- Mark Twain
  - +3 replies
  - user123
    
    2010-10-12 10:10
    User since
    2010-10-12
    21 Artikel
    BenutzerIn
    
    danke für den Tip.
    
    Habe es jetzt mal irgendwie zusammengewürfelt.
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12
    
    use strict; use warnings; use DateTime; use DateTime::Format::Strptime qw(strptime); my $dt = strptime("%Y-%m-%d %H:%M:%S", "2010-10-04 19:34:10"); my $date = $dt->dmy; $date =~ tr/-/./; $date = substr($date,0,-4); print $date;
    
    Es kommt auch der gewollte String, nämlich "04.10." raus, aber ich glaube das ist fürchterlich programmiert. Geht das irgendwie kürzer?
    - +2 replies
    - pq
      
      2010-10-12 10:24
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      das tr/// kannst du dir sparen. die methode dmy() nimmt einen parameter entgegen. also statt
      
      Code (perl): (dl )
      
      1 2
      
      my $date = $dt->dmy; $date =~ tr/-/./;
      
      machst du
      
      Code (perl): (dl )
      
      my $date = $dt->dmy(".");
      
      ich würde statt des substr dann aber eher sprintf nehmen, also:
      
      Code (perl): (dl )
      
      my $date = sprintf "%02d.%02d.", $dt->day, $dt->month;
      
      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
      - user123
        
        2010-10-12 10:31
        
        User since
        2010-10-12
        21 Artikel
        BenutzerIn
        
        Besten Dank. Funktioniert perfekt.
- +3 replies
- Gast MartinR
  
  2010-10-12 12:48
  
  ... oder gleich mit/in SQL
  
  SELECT DATE_FORMAT(datum, '%d.%m') FROM tabelle
  Last edited: 2010-10-12 12:53:35 +0200 (CEST)
  - +2 replies
  - GwenDragon
    
    2010-10-12 12:56
    
    User since
    2005-01-17
    14790 Artikel
    Admin1
    
    Ist die Funktion DATE_FORMAT bei jeder SQL-Datenbank gültig? Oder nur bei MySQL?
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - topeg
      
      2010-10-12 13:10
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Das umformen in PostgreSQL. Wenn die Daten nicht als Timestamp gespeichert sind, dann muss man sie vorher Umwandeln.
      
      Code: (dl )
      
      to_char(to_timestamp('20-10-12 00:00:00', 'YY-MM-DD HH24:MI:SS'), 'DD.MM.')

View all threads created 2010-10-12 08:18.