Opened by PERLScripter at 2014-12-08 11:58
Hallo Zusammen,
erstmal vielen Dank für die viele Hilfe & die GEduld, die ihr hattet.
Die Konvertierung läuft nun einwandfrei. Der endgültige Code war :
Ich habe es mir schwerer gemacht, als es sein müsste.
Nun habe ich noch eine letzte Frage, wenn es erlaubt ist :-)
Und zwar zeigt das Ergebnis nun schön an :
TS aus DB - I : 05.12.14 12:01:04,000000
TS aus DB - II : 05.12.14 12:01:04,012835
Konvertierter TS I : 05.12.14 12:00:04
Konvertierter TS II : 05.12.14 12:02:04
Nun möchte ich dieses Ergebnis noch für weitere Zwecke
umwandeln, dass es nun anschließend aussieht :
20141205120004 20141205120204
Ich habe schon einiges ausprobiert, bekomme es aber nicht hin.
Eine einfache Entfernung von Punkt & Doppelpunkt mittels des Befehls
"=~ /(\d\d)\.(\d\d)\.(\d\d)/;" bzw. " =~ /(\d\d)\:(\d\d)\:(\d\d)/;"
funktioniert leider nicht.
Vielen Dank !
Viele Grüße
PERLScripter
Last edited: 2014-12-09 15:24:32 +0100 (CET)
erstmal vielen Dank für die viele Hilfe & die GEduld, die ihr hattet.
Die Konvertierung läuft nun einwandfrei. Der endgültige Code war :
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
use Time::Piece;
use Time::Seconds;
$Umwandlung_TS_I =~ s/,\d+//;
$Umwandlung_TS_II =~ s/,\d+//;
my $TS_I_Konvertierung = Time::Piece->strptime( $Umwandlung_TS_I, $DATEFORMAT );
my $TS_II_Konvertierung = Time::Piece->strptime( $Umwandlung_TS_II, $DATEFORMAT );
if ( $TS_I_Konvertierung == $TS_II_Konvertierung )
{
$TS_I_Konvertierung -= ONE_MINUTE;
$TS_I_Konvertierung = $TS_I_Konvertierung->strftime($DATEFORMAT);
$TS_II_Konvertierung += ONE_MINUTE;
$TS_II_Konvertierung = $TS_II_Konvertierung->strftime($DATEFORMAT);
}
print "\n";
print "Konvertierter TS I : $TS_I_Konvertierung", "\n";
print "Konvertierter TS II : $TS_II_Konvertierung", "\n";
print "\n";
Ich habe es mir schwerer gemacht, als es sein müsste.
Nun habe ich noch eine letzte Frage, wenn es erlaubt ist :-)
Und zwar zeigt das Ergebnis nun schön an :
TS aus DB - I : 05.12.14 12:01:04,000000
TS aus DB - II : 05.12.14 12:01:04,012835
Konvertierter TS I : 05.12.14 12:00:04
Konvertierter TS II : 05.12.14 12:02:04
Nun möchte ich dieses Ergebnis noch für weitere Zwecke
umwandeln, dass es nun anschließend aussieht :
20141205120004 20141205120204
Ich habe schon einiges ausprobiert, bekomme es aber nicht hin.
Eine einfache Entfernung von Punkt & Doppelpunkt mittels des Befehls
"=~ /(\d\d)\.(\d\d)\.(\d\d)/;" bzw. " =~ /(\d\d)\:(\d\d)\:(\d\d)/;"
funktioniert leider nicht.
Vielen Dank !
Viele Grüße
PERLScripter
Last edited: 2014-12-09 15:24:32 +0100 (CET)