Parameter und Subroutinen (Prototypen, Referenzen?!) (Allgemeines zu Perl)

[thread]16332[/thread]

Parameter und Subroutinen (Prototypen, Referenzen?!)

Tags: perl5 Referenz Prototyp Similar Threads

Readers: 24

Articles: hide open all | hide show old branches

+16 replies
guest Bob

2011-05-21 10:48
Liebe Perl-Community,

nach stundenlangem Herumprobieren mit den Code-Schnippseln, die man dazu im Kamelbuch, dem Perl-Kochbuch und im Internet findet, bin ich nun endgültig an einem Punkt, an dem ich nicht mehr weiterkomme.

Ich möchte an eine Subroutine obligatorisch einen Parameter in Form eines Arrays und einen optionalen Parameter in Form eines Skalars übergeben, der die Funktion eines Switches haben soll.

Meine aktuelle Frickellösung sieht wie folgt aus:
Code: (dl )

1 2 3 4 5

sub array_to_string { my ($switch, @array) = @_; my $string = join($switch, @array); ... }
Das funktioniert zwar (nach dem Motto: bitte nicht Anfassen), erfordert aber den Aufruf der Subroutine obligatorisch mit zwei Parametern.

Mit Prototypen und Referenzen bekomme ich das einfach nicht nachgebaut. Ist das mit Perl tatsächlich so kompliziert, oder bin ich einfach zu blöd?!

Für eure Hilfe wäre ich zutiefst dankbar – und hoffe, dass ich hier in Zukunft auch noch das ein oder andere beisteuern kann.

Bob

modedit Editiert von GwenDragon: um weitere Tags ergänzt
Last edited: 2011-05-21 14:19:47 +0200 (CEST)
- moritz
  
  2011-05-21 11:49
  User since
  2007-05-11
  923 articles
  HausmeisterIn
  Guest Bob
  
  Code: (dl )
  
  1 2 3 4 5
  
  sub array_to_string { my ($switch, @array) = @_; my $string = join($switch, @array); ... }
  
  Das funktioniert zwar (nach dem Motto: bitte nicht Anfassen), erfordert aber den Aufruf der Subroutine obligatorisch mit zwei Parametern.
  
  Kurios, bei meinem Perl funktioniert das wunderbar mit nur einem:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12
  
  use strict; use warnings; sub array_to_string { my ($switch, @array) = @_; my $string = join($switch, @array); print "string: '$string'\n"; } array_to_string('foo'); __END__ Ausgabe: string: ''
  
  Ansonsten kann Perl 6 sowas explizit:
  
  Code: (dl )
  
  1 2 3 4
  
  sub array-to-string($switch, *@array) { my $string = join $switch, @array; ... }
  
  Perl 6 - Perls Zukunft
- GwenDragon
  
  2011-05-21 11:54
  
  User since
  2005-01-17
  14848 articles
  Admin1
  
  Wofür brauchst du Prototypen? Muss exiplizit mit Perl überprüft werden, ob die Typen der Parameter stimmen?
  
  Was willst du genau über Referenzen machen?
  
  Was hast du denn schon versucht?
  Zeig doch mal Code.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +2 replies
- MatthiasW
  
  2011-05-21 12:10
  User since
  2008-01-27
  367 articles
  BenutzerIn
  Eine Art und Weise soetwas zu verwirklichen wäre die Parameter mit dazugehörigen Namen an die Subroutine zu übergeben:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11
  
  sub array_to_string { my %p = @_; #$p{'switch'} //= '-'; $p{'switch'} = '-' unless exists $p{'switch'}; # edit join $p{'switch'}, @{ $p{'array'} }; } array_to_string( array => [1..3], #switch => '#', );
  
  edit:
  Ansonsten könntest du auch den Array als Referenz als ersten Parameter an die Subroutine übergeben:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  sub array_to_string { my ($array, $switch) = @_; $switch = '-' if $#_ < 1; join $switch, @$array; } array_to_string([1..3], '#'); #array_to_string([1..3]);
  
  MfG
  Last edited: 2011-05-21 13:49:05 +0200 (CEST)
  perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
  - GwenDragon
    
    2011-05-21 12:28
    
    User since
    2005-01-17
    14848 articles
    Admin1
    
    Den Operator // gibt es erst ab Perl 5.10, das sollte man nicht einfach voraussetzen, dass alle Perl >= 5.10 meinen!
    Last edited: 2011-05-21 12:32:59 +0200 (CEST)
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- rosti
  
  2011-05-21 13:03
  User since
  2011-03-19
  3603 articles
  BenutzerIn
  Meine Variante:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
  
  # Delimiter and Array my $ref = { DEL => ';', ARR => [1,2,3,4,5], }; my $str = array_to_string($ref) or die "no delimiter is given"; print $str; sub array_to_string{ my $ref = shift; if(exists $ref->{DEL}){ return join($ref->{DEL}, @{$ref->{ARR}}); } else{ return } } # 1;2;3;4;5
  
  http://blog.rolfrost.de/
  
  The art of steam.
- +10 replies
- Bob
  
  2011-05-21 14:25
  User since
  2011-05-21
  6 articles
  BenutzerIn
  Wow, da ist man mal eben einkaufen … Danke für die zahlreichen Antworten in der Zwischenzeit!
  
  @moritz: Hast du da nicht einen Denkfehler drin? Nach meinem Verständnis fungiert der Parameter 'foo' in deinem Beispiel als Separator, das Array ist leer, so dass der Separator genau einmal ausgegeben wird.
  
  Aber am besten erkläre ich tatsächlich erst einmal mein gesamtes Vorhaben: Ich möchte den Inhalt von HTML-Dateien verarbeiten bzw. bestimmte Teile davon. Zum Parsen der HTML-Dateien benutze ich HTML::TreeBuilder, der ein Array zurückgibt. Das sieht dann so aus:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
  
  #!/usr/bin/perl -w use strict; use warnings; use HTML::TreeBuilder::XPath; use LWP::Simple; my $html = get("http://www.perl.org"); my $tree = HTML::TreeBuilder::XPath->new; $tree->parse($html); my @contents = $tree->findvalues(q{//p[@class="intro"]}); # usw. $tree->delete; print join ("", @contents);
  
  An manchen Stellen erscheint es mir sinnvoll, die Zeilenumbrüche beizubehalten, z.B. bei Fließtext. Dafür soll der Switch dienen. (Bei dem einen Parameter handelt es sich als auf jeden Fall um ein Array, bei dem anderen um einen Skalar.)
  
  @MatthiasW, rosti: Hashes als Parameter an eine Funktion zu übergeben, erscheint mir etwas unintuitiv, aber anders scheint es wohl nicht zu gehen, oder? Jedenfalls habe ich eure – angepassten – Code-Beispiele nicht zum Laufen bekommen.
  
  @MatthiasW: Habe ich das richtig verstanden, dass der Funktionsaufruf wie folgt aussehen müsste?
  
  Code: (dl )
  
  $article = array_to_string({array => @contents, switch => "\n"});
  
  Das führt bei mir zu folgender Fehlermeldung:
  
  Code: (dl )
  
  1 2 3
  
  Odd number of elements in anonymous hash at [...] line 125, <STDIN> line 1. Reference found where even-sized list expected at [...] <STDIN> line 1. Can't use an undefined value as an ARRAY reference at [...] <STDIN> line 1.
  
  Bei dem Code-Beispiel von rosti kommt nur der "Odd number"-Fehler, dafür zweimal:
  
  Code: (dl )
  
  1 2
  
  Odd number of elements in anonymous hash at [...] <STDIN> line 1. Odd number of elements in anonymous hash at [...] <STDIN> line 1.
  
  Ich bin mit diesen Meldungen leider etwas überfordert!
  
  modedit Editiert von GwenDragon: Code- auf Perl-Tag geändert, macht Perl-Code lesbarer
  Last edited: 2011-05-21 14:30:03 +0200 (CEST)
  - +8 replies
  - MatthiasW
    
    2011-05-21 14:56
    User since
    2008-01-27
    367 articles
    BenutzerIn
    
    Wie man die Funktion aufrufen kann habe ich bei der jeweiligen Variante dazu geschrieben ;)
    Bei der Übergabe mit "benannten" Parametern wird keine Hashreferenz, sondern eine Liste von Schlüssel-Wert Paaren erwartet, darüber hinaus muss der Array als Referenz übergeben werden.
    Wie weiter oben nachgebessert geht es selbstverständlich auch ohne "benannte" Parameter, indem der Array als Referenz zuerst entgegengenommen wird.
    
    Aufruf mit "benannten" Parametern:
    
    Code (perl): (dl )
    
    $article = array_to_string(array => \@contents, switch => "\n");
    
    Aufruf mit "positionellen" Parametern:
    
    Code (perl): (dl )
    
    $article = array_to_string(\@contents, "\n");
    
    Wichtig ist hierbei jeweils die Referenzierung des Arrays @contents mittels \: \@contents.
    
    MfG
    perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
    - +7 replies
    - Bob
      
      2011-05-21 15:37
      
      User since
      2011-05-21
      6 articles
      BenutzerIn
      
      Ich kann im Moment noch nicht behaupten, dass ich das zu 100% verstanden habe, aber es funkioniert! Tausend Dank dafür!
      
      Sagt mal, gibt es irgendein Buch, das solche doch etwas komplexeren Zusammenhänge erklärt, oder warten im Moment alle auf Perl 6?
      
      Hocherfreut!
      
      Bob
      - +3 replies
      - rosti
        
        2011-05-21 19:05
        
        User since
        2011-03-19
        3603 articles
        BenutzerIn
        
        hi,
        
        irgendwann geht das alles in Fleisch und Blut über ;)
        
        Eine Array-Referenz kannst Du auf zwei Wegen erzeugen:
        
        Code (perl): (dl )
        
        1 2 3 4 5
        
        my @arr = (1,2,3,4,5); my $ref = [@arr]; my $ref1 = \@arr; print "$ref->[0]\n"; # 1 print "$ref1->[0]\n"; # 1
        
        Die Variante 1 nehme ich, wenn das Array von einer Funktion erzeugt wird, z.B. my $ref = [loacaltime(time)].
        
        Auch Hashes sind Arrays, irgenwo hab ich was von einer Fehlermeldung "odd number..." gelesen, da stimmt irgendwo die paarweise Zuordnung nicht. Wir tun mal einen Hash in ein Array und prüfen mit Modulo:
        
        Code (perl): (dl )
        
        1 2
        
        my @arr = (%ENV); # Array-Cast print @arr % 2; # muss 0 ergeben
        
        Ansonsten ist hier ein schönes Perl-Tutorial:
        http://perl-seiten.homepage.t-online.de/
        
        und auf Deinem PC müsste auch eine Dokumentation vorliegen.
        http://blog.rolfrost.de/
        
        The art of steam.
        
        +2 replies
        
        Dubu
        
        2011-05-21 22:23
        
        User since
        2003-08-04
        2145 articles
        ModeratorIn + EditorIn
        
        2011-05-21T17:05:08 rosti
        Eine Array-Referenz kannst Du auf zwei Wegen erzeugen:
        
        Code (perl): (dl )
        
        1 2 3 4 5
        
        my @arr = (1,2,3,4,5); my $ref = [@arr]; my $ref1 = \@arr; print "$ref->[0]\n"; # 1 print "$ref1->[0]\n"; # 1
        
        Man sollte aber darauf hinweisen, dass die erste Variante dabei eine Kopie des Arrays (in einem anonymen Array) erzeugt, die zweite Variante dagegen nicht.
        Ein $ref1->[0]=0 ändert somit den ersten Wert in @arr, ein $ref->[0]=0 dagegen nicht. Dafür braucht diese Variante auch den doppelten Speicher.
        
        rosti
        
        2011-05-21 22:46
        
        User since
        2011-03-19
        3603 articles
        BenutzerIn
        
        Danke für den Hinweis!!
        http://blog.rolfrost.de/
        
        The art of steam.
      - +3 replies
      - GwenDragon
        
        2011-05-21 19:13
        
        User since
        2005-01-17
        14848 articles
        Admin1
        
        Zu empfehlen:
        aus dem O'Reilly-Verlag:
        Programmieren mit Perl
        Perl Kochbuch
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +2 replies
        
        Bob
        
        2011-05-21 19:20
        
        User since
        2011-05-21
        6 articles
        BenutzerIn
        
        Dass ich die beide schon besitze – siehe Eingangsposting –, spricht wohl nicht gerade für mich. ;-) Das mit den Referenzierungen muss ich definitiv noch mal durchkauen, aber dank euren Beispiele bin ich diesmal zuversichtlich.
        
        GwenDragon
        
        2011-05-21 20:11
        
        User since
        2005-01-17
        14848 articles
        Admin1
        
        Ach, du willst erweitertes, weil du die Inhalte beiden Bücher schon komplett verstehst? ;)
        Kein Problem.
        
        Selbiger Verlag:
        1. Fortgeschrittene Perl-Programmierung
        2. PERL HACKS
        
        Sind gute Nachschlagewerke für Tipps & Tricks.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - moritz
    
    2011-05-21 21:11
    
    User since
    2007-05-11
    923 articles
    HausmeisterIn
    
    2011-05-21T12:25:39 Bob
    @moritz: Hast du da nicht einen Denkfehler drin? Nach meinem Verständnis fungiert der Parameter 'foo' in deinem Beispiel als Separator, das Array ist leer, so dass der Separator genau einmal ausgegeben wird.
    
    Ich habe nicht mal gedacht, ich habe Perl denken lassen. Oder auf Deutsch: Ich habe den Code einfach ausgführt. join() mit einem leeren Array gibt nun mal den leeren String zurück.
    Perl 6 - Perls Zukunft

View all threads created 2011-05-21 10:48.