Array einer Funktion übergeben? (Perl/CGI)

[thread]14468[/thread]

Array einer Funktion übergeben?

Leser: 19

Articles: hide open all | hide show old branches

+4 replies
Gast jack576

2010-01-09 20:18
Hallo!

Ich möchte das CPAN-Moule Math::convexHull nutzen, um von vielen Punkten die konvexe Hülle zu erhalten.

Das Beispiel, das im Module angeführt ist, hab ich schon probiert und funktioniert gut:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12

use Data::Dumper; use Math::ConvexHull qw/convex_hull/; print Dumper convex_hull( [ [0,0], [1,0], [0.2,0.9], [0.2,0.5], [0,1], [1,1], ] ); # Prints out the points [0,0], [1,0], [0,1], [1,1].
Laut Dokumentation sollte man wie folgt der Math::convexHull-Funktion ein Array von Punkten übergeben können:
Code (perl): (dl )

1 2

use Math::ConvexHull qw/convex_hull/; $hull_array_ref = convex_hull(\@points);
Nur: Wie funktioniert das? Ich habe es wie folgt probiert:
Code (perl): (dl )

1 2 3

my @points = ([0,0], [1,0], [0.2,0.9], [0.2,0.5],[0,1], [1,1],); $hull_array_ref = convex_hull(\@points); print $hull_array_ref;
Was aber ausgegeben wird, ist ein simples: ARRAY(0x8e665a0)

Daher meine Frage: Wie übergebe ich mein Array von Punkten an die Math::convexHull-Funktion richtig bzw. wie gebe ich die aus?

Besten Dank für die Hilfe!
Jack
- +3 replies
- pq
  
  2010-01-09 20:46
  User since
  2003-08-04
  12208 Artikel
  Admin1
  das, was übergeben wird und zurückgeliefert wird, ist jeweils eine arrayreferenz.
  im einfachsten fall kannst du die so ausgeben:
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  print "@$array_ref\n"; # oder use Data::Dumper; print Dumper $arrayref;
  
  lies mal http://p3rl.org/perlref und http://p3rl.org/perlreftut
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +2 replies
  - Gast jack576
    
    2010-01-09 21:11
    
    Hallo pg, danke für deine Antwort und die Links - du hast mir damit sehr geholfen!! :)
    
    Jack
    - GwenDragon
      
      2010-01-10 14:44
      
      User since
      2005-01-17
      14601 Artikel
      Admin1
      
      Ihr Nick ist pq, so wie PQ. ;)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2010-01-09 20:18.