User since
2004-06-08
7
Artikel
BenutzerIn
Hi Folks,
folgendes Problem:
Ich will mir einen Zeitstempel zusammenbasteln in meinem 3 Zeiler benutze ich da so:
# 0 1 2 3 4 5 6 7 8
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
print("$sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst\n");
und erhalte folgenden output:
Time::tm=ARRAY(0x40068690),,,,,,,,
Wenn ich das ganze auf der Standardeingabe mache geht es:
:~/bin > perl
# 0 1 2 3 4 5 6 7 8
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
print("$sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst\n");
37,38,15,19,5,104,6,170,1
~/bin > perl -v
This is perl, v5.6.1 built for IA64.ARCHREV_0-thread-multi
ist das ein bug, bestimmt nicht ich bin doch nur zu blöd oder??
Danke+Grüße, anony
User since
2003-08-11
457
Artikel
BenutzerIn
[quote=anony,19.06.2004, 15:40]# 0 1 2 3 4 5 6 7 8
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
print("$sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst\n");
und erhalte folgenden output:
Time::tm=ARRAY(0x40068690),,,,,,,,[/quote]
Wenn du Time::localtime eingebunden hast, wird dessen localtime-Methode exportiert und Perl's builtin-localtime-Funktion mit der ersetzt.
Entweder du verzichtest auf Time::localtime oder bindest es mit einer leeren leeren Importliste ein:
use Time::localtime qw//;
Dann wird die localtime-Methode nicht exportiert und localtime nicht ersetzt.
Alternativ kannst du auch weiterhin Perl's builtin-locatime ueber
aufrufen.
Grusz Christian.
,,Das perlt aber heute wieder...'' -- Dittsche
User since
2004-06-08
7
Artikel
BenutzerIn
genau das war es, hab vielen Dank, you have made my day...
dachte schon ich werd irre.
Grüße, anony
User since
2003-08-04
5872
Artikel
ModeratorIn
Das CORE::localtime impliziert übrigens den Aufruf von time, wenn man kein Argument angibt. Soll heißen, Du kannst Dir das "time" sparen =)\n\n
<!--EDIT|Crian|1087693661-->
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite
User since
2003-08-04
2145
Artikel
ModeratorIn + EditorIn
Und als Zeitstempel halte ich print time() meist fuer ausreichend. ;)