Daten in Array mit Spalten schreiben - #158769 (Allgemeines zu Perl)

topeg

2012-06-05 20:01

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Ich weiß nicht wie du die Daten eingelesen hast. Davon hängt es ab wie man die Daten sortieren kann. Hier ein Beispiel, wie man es machen kann. Ich gehe davon aus, das die Koordinaten Zeilenweise als "x,y,z" in der Datei abgelegt sind.

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;

my $file='test.txt';

my @koordinates;

open(my $fh, '<', $file) or die("Error open $file ($!)\n");
while($line=<$fh>)
{
  # angenommen die Koordinaten stehen als "x,y,z" in der Datei.
  my @values=split(/\s*,\s*/,$line);
  push(@koordinates,\@values);
}
close($fh);

# nach Dritter Spalte Sortieren.
my @sorted=sort{$a->[2] <=> $b->[2]}@koordiantes;

# Ausgabe
print join(',',@$_)."\n" for(@sorted);