Datum zusammen stellen - das geht auch besser (Allgemeines zu Perl)

[thread]10416[/thread]

Datum zusammen stellen - das geht auch besser

pktm

2007-09-18 23:22

User since
2003-08-07
2921 Artikel
BenutzerIn

Hallo!

Wie kann man das besser machen?

Code: (dl )

my $datum = ((localtime())[5]+1900) . '-' . ((localtime())[4]+1) . '-' . ((localtime())[3]);

Grüße, pktm

http://www.intergastro-service.de (mein erstes CMS :) )

ptk

2007-09-18 23:29

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Mit einer Zwischenvariablen wird es bestimmt lesbarer. Außerdem möchtest du bestimmt sprintf verwenden, damit Monat und Tag bei Bedarf eine führende Null bekommen.

Linuxer

2007-09-19 00:14

User since
2006-01-27
3890 Artikel
HausmeisterIn

user image

Hi,

böser Code... Wenn der Code zum Jahreswechsel läuft, kann das lustig werden, wenn auf einmal der 1.1. des Vorjahres rauskommt, oder wie?

mein Vorschlag wäre:

Code (perl): (dl )

my $datum = get_date();

sub get_date {

  my ($dd, $mm, $yy ) = ( localtime() )[3..5];
  $yy += 1900;
  $mm += 1;
  return sprintf( "%04d-%02d-%02d", $yy, $mm, $dd );
}

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!

esskar

2007-09-19 08:38

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

Code (perl): (dl )

1
2

use POSIX qw(strftime);
my $date = strftime "%Y-%m-%d", localtime;

Linuxer

2007-09-19 12:41

User since
2006-01-27
3890 Artikel
HausmeisterIn

user image

hm, ich sollte mir vielleicht mal POSIX näher anschauen ;)

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!

sid burn

2007-09-19 14:41

User since
2006-03-29
1520 Artikel
BenutzerIn

user image

Time::localtime ist auch ganz nett, ist jedenfalls schöner die Werte auszulesen.
Ansonsten bevorzuge ich mitlerweile DateTime für jede Art von Datumausgaben/Rechnungen.

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;
use Time::localtime;
use DateTime;

printf "%02d-%02d-%04d\n", localtime->mday, localtime->mon + 1, localtime->year + 1900;
print DateTime->today->dmy('-'), "\n";
print DateTime->new(day => 31, month => 12, year => 2007)->dmy('-'), "\n";