pointer auf hash referenz (Allgemeines zu Perl)

[thread]19683[/thread]

pointer auf hash referenz

Tags: perl5 Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+16 replies
Gast Graf Herschel

2015-06-05 12:54
Einen schönen guten Tag

Ich habe schon wieder ein Verständnisproblem. Jedesmal wenn ich von C auf Perl umsteige, steige ich aus. Ich könnte aus der Haut fahren.
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11

sub fpic_exif_get { my($fn,$hash) = @_; my $exf = new Image::ExifTool; $hash = $exf->ImageInfo("$fn","EXIF:*"); foreach (keys %$hash) { print("$_ => $hash->{$_}\n)"; } return 1; }
ImageInfo() liefert eine referenz auf irgendein hash. Wo das hash deklariert wird, weiß ich zwar nicht, es funktioniert.
Ich will genau diese hash_referenz.
Code: (dl )

1 2 3 4 5 6 7 8 9 10

sub fpic_exif_ls { my $hash; my $fn = "/mnt/images/plane.png"; return 0 if(!fpic_exif_get("$fn",\$hash)); foreach (keys %$hash) { print("$_ => $hash->{$_}\n)"; } }
Leider funktioniert das nicht.
Übergebe ich mit \$hash nicht einen pointer, der in fpic_exif_get() auf ein hash referenziert wird?

Vielleich erbarmt sich jemand meiner
Gruß
Last edited: 2015-06-05 13:09:11 +0200 (CEST)
- +6 replies
- FIFO
  
  2015-06-05 13:50
  User since
  2005-06-01
  469 Artikel
  BenutzerIn
  Wenn Du eine Referenz auf eine Hashreferenz (nicht auf einen Hash) übergibst, musst Du einmal zusätzlich dereferenzieren:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
  
  sub fpic_exif_get { my ( $fn, $hashRefRef ) = @_; my $exf = new Image::ExifTool; # Funktionsergebnis in der referenzierten Variable ablegen $$hashRefRef = $exf->ImageInfo( "$fn", "EXIF:*" ); return 1; } sub fpic_exif_ls { my $hashRef; my $fn = "/mnt/images/plane.png"; return 0 if ( ! fpic_exif_get( "$fn", \$hashRef ) ); foreach ( keys %$hashRef ) { print( "$_ => $hashRef->{$_}\n" ); } }
  
  Editiert von FIFO: Kommentar, Format
  
  Editiert von FIFO: Quotes letzte Zeile korrigiert
  Last edited: 2015-06-05 14:34:48 +0200 (CEST)
  Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
  - +5 replies
  - Gast Graf Herschel
    
    2015-06-05 14:09
    
    Danke! Es funktioniert.
    Verstehen kann ich es nicht, ich nehme es zur Kenntnis.
    
    Mach ich etwas falsch? Sollte ich ein Hash deklarieren und die referenz darauf übergeben? Oder sollte ich es als \%hash an fpic_exif_get() geben? Oder passt es so wie es nun ist?
    Last edited: 2015-06-05 14:22:14 +0200 (CEST)
    - GwenDragon
      
      2015-06-05 14:34
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Du kannst dir mal ansehen:
      http://perlmeme.org/howtos/using_perl/dereferencin...
      http://perldoc.perl.org/perlsub.html#Pass-by-Refer...
      http://stackoverflow.com/questions/15316425/perl-h...
      http://perlmaven.com/ref
      http://perlmaven.com/passing-two-arrays-to-a-funct...
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +3 replies
    - FIFO
      
      2015-06-05 14:37
      
      User since
      2005-06-01
      469 Artikel
      BenutzerIn
      
      Eine Ref-Stufe weniger ...
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
      
      sub fpic_exif_get { my ( $fn, $hashRef ) = @_; my $exf = new Image::ExifTool; %$hashRef = %{ $exf->ImageInfo( "$fn", "EXIF:*" ) }; return 1; } sub fpic_exif_ls { my %hash; my $fn = "/mnt/images/plane.png"; return 0 if ( ! fpic_exif_get( "$fn", \%hash ) ); foreach ( keys %hash ) { print( "$_ => $hash{$_}\n" ); } }
      
      Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
      - Gast Graf Herschel
        
        2015-06-05 15:05
        
        @FIFO
        
        Ja, das kann ich nun verstehen. Eine saubere Deklaration des hash und Übergabe. Damit habe ich ein gutes Gefühl.
        Bei der oberen Lösung sperrt sich in mir alles.
        
        Danke, du hast mir sehr geholfen!
        Gruß
        Last edited: 2015-06-05 15:42:10 +0200 (CEST)
      - Linuxer
        
        2015-06-08 17:53
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Hi,
        
        oder man verwendet den Ansatz des Gebens und Nehmens. D.h. man gibt den Dateinamen als Argument an die Subroutine und erhält die Hash-Referenz als Rückgabewert aus der Sub.
        
        Außerdem vermeidet dieser Ansatz das Dereferenzieren des Hashes und Kopieren der gesamten Key-Value-Paare innerhalb von fpic_exif_get().
        
        ungetestet (Feinheiten und Anpassungen an das Drumherum müssen noch selbst gemacht werden):
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
        
        sub fpic_exif_get { my $filename = shift; my $exif = Image::ExifTool->new(); my $hRef = $exif->ImageInfo( $filename, "EXIF:*" ); return $hRef; } sub fpic_exif_ls { my $filename = "/mnt/images/plane.png"; if ( my $hashref = fpic_exif_get( $filename ) ) { for my $k ( keys %$hashref ) { printf "%s => %s\n", $k, $hashref->{$k}; } } }
        
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- +9 replies
- hlubenow
  
  2015-06-05 17:13
  
  User since
  2009-02-22
  875 Artikel
  BenutzerIn
  
  Guest Graf Herschel
  Jedesmal wenn ich von C auf Perl umsteige, steige ich aus. Ich könnte aus der Haut fahren.
  
  Vielleicht mußt Du Dir nur klarmachen, daß in Perl die Dinge viel einfacher sind als in C. Du mußt Dich nicht um die Speicherverwaltung kümmern, Arrays und Hashes sind automatisch dynamisch. Referenzen sollten in Perl die Ausnahme sein (im Gegensatz zu Zeigern in C) und möglichst bald aufgelöst werden. Wahrscheinlich denkst Du im Moment einfach viel zu kompliziert.
  Last edited: 2015-06-05 17:16:20 +0200 (CEST)
  - +8 replies
  - pq
    
    2015-06-08 11:57
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    2015-06-05T15:13:55 hlubenow
    Referenzen sollten in Perl die Ausnahme sein (im Gegensatz zu Zeigern in C) und möglichst bald aufgelöst werden.
    
    das höre ich jetzt zum ersten mal. hast du dafür einen grund?
    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
    - +7 replies
    - hlubenow
      
      2015-06-08 17:26
      
      User since
      2009-02-22
      875 Artikel
      BenutzerIn
      
      2015-06-08T09:57:12 pq
      2015-06-05T15:13:55 hlubenow
      Referenzen sollten in Perl die Ausnahme sein (im Gegensatz zu Zeigern in C) und möglichst bald aufgelöst werden.
      
      das höre ich jetzt zum ersten mal. hast du dafür einen grund?
      
      Na ja, Referenzen machen eine Sprache nunmal kompliziert, und mein Ideal für Perl wäre, daß es für den Benutzer schnell und einfach zu schreiben und zu lesen sein sollte. Sonst könnte man ja gleich in C schreiben.
      In dem Perl-Buch, das ich benutzt habe, "Perl in 21 Tagen", kommen Referenzen erst am vorletzten Tag, zwischen den Kapiteln "Perl und das Betriebssystem" und "Was noch bleibt".
      Eigentlich ist es nicht optimal, daß man in Perl überhaupt gelegentlich Referenzen braucht. Python macht dieselben Sachen ohne Zeiger oder Referenzen, sowas gibt es da gar nicht (bzw. möglicherweise sind es in Python intern solche Sachen, aber jedenfalls merkt der Programierer davon nichts, er muß niemals bewußt dereferenzieren).
      Ich verwende Referenzen daher zurückhaltend und bin immer froh, wenn ich auf die "normale" Ebene mit einfachen Arrays und Hashes zurückkehren kann.
      Aber sicherlich: TMTOWTDI. ;)
      - +6 replies
      - Raubtier
        
        2015-06-08 17:57
        
        User since
        2012-05-04
        1075 Artikel
        BenutzerIn
        
        Natürlich hat auch Python Referenzen - und natürlich muss auch der Programmierer damit umgehen können.
        
        Frage: was kommt hier raus?
        
        Code: (dl )
        
        1 2 3 4 5
        
        a = [1, 2, 3] b = a a[1] = 'x' print b
        
        Außerdem: Referenzen können viele unnötige Kopien vermeiden.
        
        hlubenow
        
        2015-06-09 02:06
        
        User since
        2009-02-22
        875 Artikel
        BenutzerIn
        
        Hmm, tja, das will man aber normalerweise nicht in Python machen.
        Was man machen will, wäre in Perl:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7
        
        #!/usr/bin/perl my @a = (1, 2, 3); my @b = @a; $a[1] = 'x'; foreach my $i (@b) { print "$i\n"; }
        
        Und das ginge in Python so:
        
        Code (python): (dl )
        
        1 2 3 4 5
        
        #!/usr/bin/python a = [1, 2, 3] b = a[:] a[1] = 'x'; print b
        
        Es kann also sein, daß man eine Kopie von einer Liste haben möchte. Der Einfachheit halber schreibt man dann in Python "b = a". Technisch ist das eine Referenz, aber wenn das sich im Verhalten bemerkbar macht, geht man eben zu "b = a[:]" über. Das Verhalten einer Referenz möchte man eigentlich nicht haben, man braucht es auch nicht.
        In Deinem Beispiel in Python, also mit Referenz, hast Du ja auch nur "print b" geschrieben. Das Dereferenzieren geht automatisch, der Programmierer muß sich nicht wie in Perl darum kümmern. Das führt dazu, daß er darauf normalerweise gar nicht seine Aufmerksamkeit richtet, und sich um andere Dinge als um Referenzen kümmert.
        Aus dieser Sicht möchte ich eben auch in Perl Referenzen eher vermeiden. Your mileage may vary, of course.
        Last edited: 2015-06-09 02:09:01 +0200 (CEST)
        
        +4 replies
        
        hlubenow
        
        2015-06-09 03:09
        
        User since
        2009-02-22
        875 Artikel
        BenutzerIn
        
        Außerdem hab' ich auch mal gelesen, daß das in Python lediglich Namen für die Objekte ("Everything is an object", den Grundsatz gibt es wohl auch in Perl6) sind. Das heißt:
        
        Code (python): (dl )
        
        b = a
        
        bedeutet:
        
        Quote
        Das Objekt, das unter dem Namen "a" erreichbar ist, soll künftig auch unter dem Namen "b" erreichbar sein.
        
        Ob b dann eine Referenz oder nur ein anderer Name für dasselbe Objekt ist, ist dann wohl gar nicht so wichtig (deshalb erinnerte ich mich auch nicht an den Begriff "Referenz" in diesem Zusammenhang).
        Jedenfalls ist es schon etwas anderes als
        
        Code (perl): (dl )
        
        my $b = \@a;
        
        allein schon, weil @a und $b unterschiedliche Sigil haben.
        Last edited: 2015-06-09 17:10:52 +0200 (CEST)
        
        +3 replies
        
        lichtkind
        
        2015-06-10 14:27
        
        User since
        2004-03-22
        5697 Artikel
        ModeratorIn + EditorIn
        
        ja in Perl 6 sind sowohl alle Container und auch Werte Objekte, weswegen man auch $b = @a schreiben kann und $b benutzen kann wie vorher @a.
        Tutorien in der Wiki, mein zeug:
        kephra, baumhaus, garten, gezwitscher
        
        Es beginnt immer mit einer Entscheidung.
        
        +2 replies
        
        Linuxer
        
        2015-06-10 18:08
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Wenn in diesem Fall "$b" benutzt werden kann wie vorher "@a", haben die Sigils ja keine Bedeutung mehr und sind überflüssig. Wozu gibt es die dann noch in Perl6? Sind dann doch nur weitere Buchstaben für die Bezeichner der Variablen.
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        lichtkind
        
        2015-06-10 18:59
        
        User since
        2004-03-22
        5697 Artikel
        ModeratorIn + EditorIn
        
        tradition :)
        
        es ist halt ne logische konsequenz davon das du quasi keine referenzen hast sontern containerobjekte und feste regel wann welcher kontainer wie angefasst wird.
        
        man hat erreicht:
        - invariante sigils
        - einfaches dereferenzieren
        - ein optik die sich an Perl 5 angleicht
        
        Dafür ist es ein kleiner Preis.
        
        Als contextualisier ops haben dies sigils schon noch sinn, um list und listenkontext oder skalarkontext zu erzwingen mit @(), $() usw
        Last edited: 2015-06-10 19:02:08 +0200 (CEST)
        Tutorien in der Wiki, mein zeug:
        kephra, baumhaus, garten, gezwitscher
        
        Es beginnt immer mit einer Entscheidung.

View all threads created 2015-06-05 12:54.