Opened by Glen at 2005-05-06 21:29
User since
2005-02-18
357 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2005-02-18
357 Artikel
BenutzerIn
[quote=pq,07.May.2005, 21:12]..., aber ansonsten nimm doch bitte ein modul.[/quote]
Aber vielleicht nicht so ein Monster wie Date::Manip, wo sogar der Autor meint, für die meisten Leute sei es nicht die richtige Lösung ;)
Hier eine Variante von Glens Code, die "zeitumstellungssicher" sein sollte:
\n\n
<!--EDIT|pKai|1115510605-->
Aber vielleicht nicht so ein Monster wie Date::Manip, wo sogar der Autor meint, für die meisten Leute sei es nicht die richtige Lösung ;)
Hier eine Variante von Glens Code, die "zeitumstellungssicher" sein sollte:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!/usr/local/bin/perl
use strict;
use warnings;
use POSIX qw(strftime);
my $fmt = '%Y-%d-%m';
my $delta = -3*24*60*60; # -3 Tage
my $seit;
my $t = time();
my $d0 = strftime($fmt, localtime ($t)); # Tag (jetzt)
my $d12 = strftime($fmt, localtime ($t+12*60*60)); # Tag (jetzt+12h)
if ($d0 eq $d12) {
$seit = strftime ($fmt, localtime ($t+6*60*60+$delta));
} else {
$seit = strftime ($fmt, localtime ($t-6*60*60+$delta));
}
print $seit,$/;
<!--EDIT|pKai|1115510605-->
I sense a soul in search of answers.