Thread Auslesen aus .txt bis Trennzeichen, wie?: Auslesen aus .txt bis Trennzeichen, wie? (51 answers)
Opened by Gast at 2005-10-26 14:09

Ronnie
 2005-10-28 16:56
#59359 #59359
User since
2003-08-14
2022 Artikel
BenutzerIn
[default_avatar]
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!/usr/bin/perl

use strict;
use warnings;

my @unsorted;
my @sorted;

while (<DATA>) {
    push @unsorted, [split /\s+/, $_];
}

@sorted = sort { $a->[3] <=> $b->[3] } @unsorted;
print join " ", @$_, "\n" for @sorted;

_ _DATA_ _
Firma1 8263112 94626384523 16
Firma2 8263112 94626384523 33
Firma3 8263112 94626384523 04

EDIT: _ _DATA_ _ muss ohne die Leerzeichen zwischen den Underscores geschrieben werden (Bug vom Forum).\n\n

<!--EDIT|Ronnie|1130505347-->

View full thread Auslesen aus .txt bis Trennzeichen, wie?: Auslesen aus .txt bis Trennzeichen, wie?