Sortieren/Verketten/Anordnen nach 2 Kriterien?

[Erwin]

Harte Nuss ;-)

try this:

use strict;

hier stehen die Linien

my %draw = (
 "10,10","20,10",
 "20,10","20,20",
 "20,20","10,20",
 "10,20","5,15",
 "5,15","10,10",
);

my $start = "20,20";
print "$start \n";
ab($start);

Rekursion

sub ab{
 my $key = shift;
 my $k;
 foreach $k( keys %draw ){
  if( $draw{$key} eq $k ){
   print "$k \n";
   delete $draw{$key};
   ab($k);
  }
 }
}

Erwin