Thread umsortieren einer zahlenliste (41 answers)
Opened by climber at 2009-06-09 11:58

RPerl
 2009-07-10 11:59
#123038 #123038
User since
2006-11-26
384 Artikel
BenutzerIn

user image
So wuerde ich vorgehen:

1. Datei 'Datum.txt' öffnen mit open() und moegl. Fehler abfangen
2. Alle Daten zweilenweise auslesen
3. Diese umformatieren sofern noetig
4. Sortieren
5. Speichern in die 'Neu.txt'
6. Fertig

Zum umformatieren:

Code (perl): (dl )
perl -le '$str="20050423"; $str =~m /(\d{4})(\d{2})(\d{2})/; print $3,".",$2,".",$1'


Sortieren: $ perldoc -f sort

Edit: Um ein bissl abgelenkt zu sein hab ich dir das mal programmiert:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

#!/usr/bin/perl

use strict;
use warnings;

my @data = ();

open my $fh, '<', 'Datum.txt' || die $!;
open my $fi, '>', 'Neu.txt'   || die $!;

while(my $line = <$fh>) {
    if($line =~ m/^[0-9]+$/) {
        ($line = $line) =~ s/(\d{4})(\d{2})(\d{2})/$3.$2.$1/;
    }
    push @data, $line;
}

print $fi @data;

close $fh;
close $fi;


Sortieren ueberlass ich dir ;)
Last edited: 2009-07-10 12:18:16 +0200 (CEST)

View full thread umsortieren einer zahlenliste