Thread Dateien nach 14 tagen löschen
(20 answers)
Opened by mobas at 2004-02-16 15:31
my(@date) = unpack("A4A2A2A2A2A2", $tstr);
printf("%02d:%02d:%02d %02d.%02d.%04d\n", @date[3,4,5,2,1,0]); In $tstr steht der Timestamp. Diesen zerlegt Coax mit unpack in 6 Teile, deren erster 4 und deren restliche je 2 Zeichen lang sind. Diese Teile wandern ins Array @date. (Ich glaub die Klammer darum könnte man sich wohl sparen, aber ich kenn unpack nicht.) printf gibt das dann schön formatiert (mit führenden Nullen, Format genau wie bei C) aus. Das Arrayslice wird nur verwendet, um die Daten in der richtigen Reihenfolge auszugeben. Edit: Nach Lesen von perldoc -f unpack kann man sich die Klammern sparen. Es geht nur darum, Array-Kontext zu erzeugen, und das tut @date schon. Wenn man die Dinge benennen wollte müsste man sowas schreiben: my ($year, $month, $day, $hour, $minute, $second) = unpack(...)\n\n <!--EDIT|Crian|1077008695--> 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 |