![]() |
|< 1 2 3 >| | ![]() |
24 Einträge, 3 Seiten |
QuoteUnd in meinen Fall wo das Programm ca 50 Zeilen groß ist, habe ich nicht extra ein Modul installiert. Sondern es ganz normal mit Bordmitteln gemacht. Das Garantiert das das Skript gleich auf jedem System läuft, ohne das ich auf jedem System nochmal bestimmte Perl Module nachinstallieren muss. Für das was ich tun wollte war dieser Weg gut und ausreichend.
Quote
Ich habe nichts gegen Module, dass ist ja auch ein wichtiger Grund warum ich Perl benutze, wegen seinem Reichtum an Modulen. Finde es aber mitlerweile doch schon etwas hartnäckig hier im Forum wenn man ständig darauf hingewiesen wird, dass man für dies und das Modul A,B,X benutzen sollte.
QuoteIch denke durch die reine Benutzung von Modulen hat hier keiner Programmieren gelernt. Von daher sehe ich am "Rad neu entwickeln" nichts schlimmes.
Ich selber begrüße es sogar immer wenn jemand etwas Lernen möchte und sich mit der Thematik selber auseinandersetzt. Das einzige was man erreicht ist das man sich Wissen aneignet. Egal ob nun gute oder schlechte Erfahrung. Durch die Erfahrung wird man Reicher.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#!/usr/bin/perl
use strict;
use warnings;
use Time::Local;
my $timestamp1 = 1143151500;
my $differenzTage = 7;
my $timestamp2 = $timestamp1 + $differenzTage * 86_400;
printf " Erstes Datum: %s (%d s)\n", scalar localtime($timestamp1), $timestamp1;
printf "%3d Tage später: %s (%d s)\n", $differenzTage, scalar localtime($timestamp2), $timestamp2;
__END__
Erstes Datum: Thu Mar 23 23:05:00 2006 (1143151500 s)
7 Tage später: Fri Mar 31 00:05:00 2006 (1143756300 s)
![]() |
|< 1 2 3 >| | ![]() |
24 Einträge, 3 Seiten |