Datum einlesen im Format J-M-T (Allgemeines zu Perl)

[thread]14295[/thread]

Datum einlesen im Format J-M-T

Leser: 19

Articles: hide open all | hide show old branches

+6 replies
LE

2009-11-24 14:58
User since
2009-10-23
80 Artikel
BenutzerIn
Hallo zusammen,

ich möchte gerne das Datum in dieser Form in Perl einlesen oder umstellen: J-M-T

Ich weiß das man mit:
Code: (dl )

my $date = localtime(time)
das Datum einlesen kann. Aber dann habe ich es ja in der Form:

Tue Nov 15 08:51:54 2009

Was kann ich nun machen um es in die Form zu bringen die ich möchte?

Danke schon mal gruß LE

//Modedit: Titel lesbar gemacht
Last edited: 2009-11-24 15:13:21 +0100 (CET)
- +4 replies
- pq
  
  2009-11-24 15:01
  User since
  2003-08-04
  12208 Artikel
  Admin1
  da gibt es viele möglichkeiten.
  damit du gleich die führenden nullen hast:
  
  Code (perl): (dl )
  
  1 2
  
  use POSIX qw/ strftime /; print strftime("%Y-%m-%d", localtime);
  
  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
  - +3 replies
  - LE
    
    2009-11-24 15:07
    
    User since
    2009-10-23
    80 Artikel
    BenutzerIn
    
    Perfekt, genauso ist es gewollt. Danke.
    
    In einem anderen Teil des Scriptes soll der Tag -1 genommen werde. Gibt es jetzt noch die Möglichkeit die drei Teile des Datums in drei Variablen zusetzen?
    - +2 replies
    - pq
      
      2009-11-24 15:11
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      perldoc -f localtime
      gleich das allererste beispiel zeigt dir das doch.
      
      aber wahrscheinlich willst du eher sowas wie DateTime, sonst musst du so eklige berechnungen machen wie "wenn der tag 1 ist, muss ich zum letzten monat zurückgehen, und den tag auf den letzten tag jenes monats setzen".
      schau mal:
      
      Code (perl): (dl )
      
      1 2 3
      
      use DateTime; my $dt = DateTime->now; my $yesterday = $dt->clone->subtract( days => 1);
      
      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
      - LE
        
        2009-11-30 14:43
        
        User since
        2009-10-23
        80 Artikel
        BenutzerIn
        
        Danke, hat alles geklappt. Hab das so gemacht wie du mir das vorgeschlagen hast.
        
        Gruß LE
- sid burn
  
  2009-11-30 16:12
  User since
  2006-03-29
  1520 Artikel
  BenutzerIn
  Wenn du mit DateTime arbeitest (was ich dir empfehlen würde) dann kannst du auch DateTime::Format::Strptime nutzen womit du ein Format angiebst und es dir direkt ein DateTime Objekt zurück liefert.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
  
  use DateTime; use DateTime::Format::Strptime; # string - input from user or something else my $time = '2009-11-30'; # Create a parser that can read YYYY-MM-DD Format my $parser = DateTime::Format::Strptime->new( pattern => '%Y-%m-%d', time_zone => 'Europe/Berlin', ); # Parse the String my $dt = $parser->parse_datetime($time); # Subtract one Day $dt->subtract( days => 1 ); print $dt, "\n";
  
  Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de

View all threads created 2009-11-24 14:58.