localtime ausgeben in Zahl? (gelöst) - #156611 (Allgemeines zu Perl)

FIFO

2012-03-04 14:56

User since
2005-06-01
469 Artikel
BenutzerIn

user image

Für den Fall, dass Deine Daten folgendes erfüllen:
- Array aus einfachen Zeilen,
- die immer mit dem Datum beginnen,
- das immer im Format TT.MM.JJJJ vorliegt

geht z.B.:

Code (perl): (dl )

use warnings;
use strict;

my @data = (
    '01.02.1989 38413 lncghermg',
    '22.01.1989 49562956 lehhhhhhhwrg',
    '03.12.1988 2349 ngfwjkgufiw',
    '02.01.1989 2913 rhqiuq'
);

my @sorted =
map  { $data[$_->[0]] }
sort { $a->[1] cmp $b->[1] }
map  { [$_, join('', reverse split(/\./, substr($data[$_], 0, 10)))] }
0..$#data;

print "$_\n" for @sorted;

Vielleicht sagst Du mal, wo Du beim Programmieren mit Perl stehst, bevor man Dir Dinge erklärt, die Du schon kennst ...

Gruß FIFO

Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"