Opened by leo11 at 2008-08-14 08:06
User since
2008-08-14
250 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2008-08-14
250 Artikel
BenutzerIn
Hallo liebe Perl Gemeinde.
Ich habe eine kleine Datei:
Zeile1;aaa;100;rrr;uuu
Zeile2;aaa;60;rrr;uuu
Zeile3;aaa;20;rrr;uuu
Zeile4;aaa;40;rrr;uuu
Sie soll hinterher wie folgt aussehen:
Zeile1;aaa;100;rrr;uuu
Zeile3;aaa;20;rrr;uuu
Zeile4;aaa;40;rrr;uuu
Zeile2;aaa;60;rrr;uuu
D.h. die erste Zeile soll unverändert die erste bleiben, alle folgenden nach der 3 Spalte aufsteigend sortiert werden. Dafür habe ich folgendes angefangen:
Frage
Würdet ihr mir ein paar Tipps geben, wie ich am besten weiter vorgehe? Ich bin noch neu in Perl.
Code-Tags by betterworld[TM]
Ich habe eine kleine Datei:
Zeile1;aaa;100;rrr;uuu
Zeile2;aaa;60;rrr;uuu
Zeile3;aaa;20;rrr;uuu
Zeile4;aaa;40;rrr;uuu
Sie soll hinterher wie folgt aussehen:
Zeile1;aaa;100;rrr;uuu
Zeile3;aaa;20;rrr;uuu
Zeile4;aaa;40;rrr;uuu
Zeile2;aaa;60;rrr;uuu
D.h. die erste Zeile soll unverändert die erste bleiben, alle folgenden nach der 3 Spalte aufsteigend sortiert werden. Dafür habe ich folgendes angefangen:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
use strict;
use warnings;
use IO::File;
my @zeilen=();
open (DATEI, "</tmp/testdat.txt") or die "Fehler: $!";
while(<DATEI>)
{
chomp( $_ );
print "$_ \n";
push @zeilen, [ split /;/, $_, 4 ];
}
close (DATEI);
print "$zeilen[1][2]\n"
Frage
Würdet ihr mir ein paar Tipps geben, wie ich am besten weiter vorgehe? Ich bin noch neu in Perl.
Code-Tags by betterworld[TM]