[SOLVED] Datum formartiert ausgeben

[mr_kaktus]

Hi @all,

mit dem Modul Date::Calc lass ich mir das datum vor 7 Tagen ausgeben

use Date::Calc qw(:all);
($year,$month,$day,$Hour,$Month,$Second) = Add_Delta_DHMS(Today_and_Now(), -7,0,0,0);
$dateborder="$year.$month.$day";
print "$dateborder \n";

Jetzt würde ich das gerne anders Formatiren, wenn ich das Skript so ausführe, dann bekommen ich folgende Ausgabe:

2007.2.6

Ich würde es aber gerne so ausgeben:

07.02.06

Kann mir jemand sagen, wie ich das bewerkstelligen kann?

 

[scummos]

hmm... setz mal ein
|awk -F'20' '{print $2}'
hintendran... das sollte gehen

/e ach so, nein, sorry... wie du die nullen reinbekommst kann ich dir nicht sagen =/
das da schneidet nur die 20 von 2007 ab

 

[mr_kaktus]

Hi, ich habs gefunden:

$dateborder= sprintf "%02d%02d%02d",($year%100),$month,$day;

Hätte eigentlich gleich drauf kommen müssen

Thx für dein Post

 

[abgdf]

Sehr cool ist auch:

date +%x --date="7 days ago"

Gruß

 

[mr_kaktus]

Nicht schlecht, aber ist date nicht eine Bash funktion?

 

[abgdf]

Ja, stimmt, aber oben, das mit awk, ist auch nicht gerade Perl, oder ?

 

[abgdf]

Theoretisch könntest Du auch den Output von "date" mit dem Perl-Skript einfangen (mit Backticks):

my $a = `date +%x --date "7 days ago"`;

Du würdest dann aber bash und Perl mischen. Ich würde dann lieber das entsprechende Perl-Modul benutzen.

Viele Grüße

 

[mr_kaktus]

Also danke für den Tipp, kannte ich jetzt so gar nicht. Kann ich gut für BashSkripte verwerden.
Aber ich denke, es ist besser, so wie es gerade schon geschrieben hast, wenn man in diesem Fall das Perlmodull nihmt.