#!/usr/bin/perl


@p = ();		# Table de références à des points.

open(DAT,"xy.dat");	# Ouverture en lecture seule du fichier xy.dat
while (<DAT>) {		# Lecture ligne par ligne du fichier (handle DAT)
    chomp;		# Suppresion des blancs finaux, y compris le retour à la ligne
    s/^\s*//;		# Suppression des blancs initiaux (remplacement des blancs par rien...)
    my $r = {};		# Création d'une référence vide...
    ($r->{x},$r->{y}) = split /\s+/;  # Découpage de la ligne, le séparateur est une succession de blancs.
    push @p, $r;	# Ajout de $r à la table des points.
}

# Tri de la liste des points selon x.
@p = sort { $a->{x} <=> $b->{x} } @p;

# Construction des tables des x et y.
@xi = ();
@yi = ();
foreach (@p) {
    push @xi, $_->{x};
    push @yi, $_->{y};
}

# Affichage des tables pour le test.
print join(";",@xi),"\n";
print join(";",@yi),"\n";

