C(isch) Perl(en) (C-Datenstrukturen nach Perl) (gelöst) (Allgemeines zu Perl)

[thread]17690[/thread]

C(isch) Perl(en) (C-Datenstrukturen nach Perl) [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 23

Articles: hide open all | hide show old branches

+15 replies
tonewheel

2012-08-21 21:46
User since
2006-10-01
182 Artikel
BenutzerIn
Wie wuerde man folgende (willkuerlich gewaehlte) C-Datenstruktur
Code: (dl )

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

const int max1 = 50; typedef struct { int a; float b; const char *s; } foo; typedef struct { long x; short y; foo[max1] _foo; } bar; bar[1000] _bar;
sinnvoll nach Perl uebertragen? arrays of hashes?
- +4 replies
- rosti
  
  2012-08-21 21:52
  User since
  2011-03-19
  3196 Artikel
  BenutzerIn
  Wie wärs mit Hash-Referenzen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  $foo = { x => 1, y => 2, z => [1,2,3], h => { foo => 'bar' }, };
  
  --Rosti
  - +3 replies
  - tonewheel
    
    2012-08-21 22:14
    User since
    2006-10-01
    182 Artikel
    BenutzerIn
    
    2012-08-21T19:52:54 rosti
    Wie wärs mit Hash-Referenzen:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6
    
    $foo = { x => 1, y => 2, z => [1,2,3], h => { foo => 'bar' }, };
    
    --Rosti
    
    Aehmmm, danke erstmal. Aber mir geht es hauptsaechlich um die Verschachtelung beider Strukturen, und auch darum, dass foo als array der Groesse max1 (hier 50) in bar enthalten ist, bzw. dass es spaeter ein array von 1000 bar(s) gibt.
    - +2 replies
    - rosti
      
      2012-08-22 08:58
      
      User since
      2011-03-19
      3196 Artikel
      BenutzerIn
      
      Quote
      Aehmmm, danke erstmal. Aber mir geht es hauptsaechlich um die Verschachtelung beider Strukturen, und auch darum, dass foo als array der Groesse max1 (hier 50) in bar enthalten ist, bzw. dass es spaeter ein array von 1000 bar(s) gibt.
      
      Dann gebe ich Dir mal den unschätzbaren Hinweis, dass Du im Gegensatz zu c in Perl den Speicherbedarf nicht reservieren musst, das macht Perl ganz von selbst ;)
      
      --Rosti
      - tonewheel
        
        2012-08-22 13:50
        
        User since
        2006-10-01
        182 Artikel
        BenutzerIn
        
        2012-08-22T06:58:26 rosti
        Quote
        Aehmmm, danke erstmal. Aber mir geht es hauptsaechlich um die Verschachtelung beider Strukturen, und auch darum, dass foo als array der Groesse max1 (hier 50) in bar enthalten ist, bzw. dass es spaeter ein array von 1000 bar(s) gibt.
        
        Dann gebe ich Dir mal den unschätzbaren Hinweis, dass Du im Gegensatz zu c in Perl den Speicherbedarf nicht reservieren musst, das macht Perl ganz von selbst ;)
        
        --Rosti
        
        War mir schon klar. :-) Ich hatte nur die Definition von bar vermisst. Danke Dir.
- +10 replies
- Linuxer
  
  2012-08-21 22:37
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  Hi, ich denke, es wären sowohl ein AoA (Array of Arrays) als auch ein AoH (Array of Hashes) denkbar.
  Ein AoH hätte den Vorteil, dass man auf die Felder Zugriff über Namen/Hash-Keys hat.
  
  Hier mal mein Versuch (mit AoH), Dein Beispiel nachzubilden:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
  
  #! /usr/bin/env perl use strict; use warnings; use Storable qw(dclone); my $max_foo = 4; my $max_bar = 3;; my %foo = ( a => undef, b => undef, s => undef, ); my %bar = ( x => undef, y => undef, foo => [ map { dclone(\%foo) } 1 .. $max_foo ], ); my @_bar = map { dclone( \%bar ) } 1 .. $max_bar; require Data::Dumper; print Data::Dumper->Dump( [ \@_bar ], [ "*_bar" ] );
  
  Wenn man die innere Struktur als eigene Struktur vordefiniert (wie hier %foo), muss man darauf achten, dass die Struktur nicht wiederholt referenziert wird (also mit einem simplen \%foo; und dass Referenzen, die in der inneren Struktur schon existieren, nicht einfach kopiert, sondern geklont werden)), daher das dclone(). Möchte man sich das sparen, könnte man das auch direkt mit anonymen Referenzen tun:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
  
  #! /usr/bin/env perl use strict; use warnings; use Storable qw(dclone); my $max_foo = 4; my $max_bar = 3;; my @_bar2 = map { { x => undef, y => undef, foo => [ map { { a => undef, b => undef, s => undef } } 1 .. $max_foo ] } } 1 .. $max_bar; require Data::Dumper; print Data::Dumper->new( [ \@_bar2 ], [ "*_bar" ] )->Sortkeys(1)->Dump();
  
  Last edited: 2012-08-21 23:12:00 +0200 (CEST)
  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
  - tonewheel
    
    2012-08-22 13:54
    
    User since
    2006-10-01
    182 Artikel
    BenutzerIn
    
    2012-08-21T20:37:28 Linuxer
    Hi, ich denke, es wären sowohl ein AoA (Array of Arrays) als auch ein AoH (Array of Hashes) denkbar.
    Ein AoH hätte den Vorteil, dass man auf die Felder Zugriff über Namen/Hash-Keys hat.
    
    Vielen Dank. Nur ist 'map' wohl noch recht neu und ich werde aus der Definition nicht ganz schlau draus. Muss also noch etwas nachlesen.
    - +6 replies
    - murphy
      
      2012-08-22 14:11
      
      User since
      2004-07-19
      1776 Artikel
      HausmeisterIn
      
      Meines Wissens ist map bei Perl 5 von Anfang an dabei.
      
      Im wesentlichen ist
      
      Code (perl): (dl )
      
      my @result = map { ... CODE ... } @input;
      
      äquivalent zu
      
      Code (perl): (dl )
      
      1 2
      
      my @result; push @result, do { ... CODE ... } for (@input);
      
      Die Schreibweise mit map ist oft kürzer und klarer.
      When C++ is your hammer, every problem looks like your thumb.
      - +5 replies
      - tonewheel
        
        2012-08-22 15:23
        
        User since
        2006-10-01
        182 Artikel
        BenutzerIn
        
        Ok, so weit bin ich noch nicht gekommen. Das geht wohl in Richtung 'Higher Order Perl', oder?
        
        +4 replies
        
        murphy
        
        2012-08-22 16:10
        
        User since
        2004-07-19
        1776 Artikel
        HausmeisterIn
        
        Das geht in Richtung funktionale Programmierung und da das erste Argument von map ein Codeblock, also eine Funktion ist, ist map selbst eine Funktion höherer Ordnung.
        
        Solche hochtrabenden Bezeichnungen sind aber eher geeignet, bei Unwissenden Eindruck zu schinden, als wirklich etwas zu erklären ;-)
        When C++ is your hammer, every problem looks like your thumb.
        
        +3 replies
        
        tonewheel
        
        2012-08-22 16:37
        
        User since
        2006-10-01
        182 Artikel
        BenutzerIn
        
        2012-08-22T14:10:40 murphy
        Das geht in Richtung funktionale Programmierung und da das erste Argument von map ein Codeblock, also eine Funktion ist, ist map selbst eine Funktion höherer Ordnung.
        
        Ok, und das zweite Argument ist eine Liste, daher verstehe ich das Konstrukt nicht ganz, denn
        
        Code (perl): (dl )
        
        foo => [ map { { a => undef, b => undef, s => undef } } 1 .. $max_foo ]
        
        hat doch als zweites Argument nur eine Liste (1,2,3), wo werden diese Zahlenwerte verwendet? Oder geht es nur um die schlichte Tatsache, dass man einfach 3 mal was tut? Wie aber kann ich dann spaeter diese Werte wieder dereferenzieren?
        
        2012-08-22T14:10:40 murphy
        Solche hochtrabenden Bezeichnungen sind aber eher geeignet, bei Unwissenden Eindruck zu schinden, als wirklich etwas zu erklären ;-)
        
        :-)
        
        +2 replies
        
        Linuxer
        
        2012-08-22 16:50
        
        User since
        2006-01-27
        3870 Artikel
        HausmeisterIn
        
        map() ist eigentlich dazu gedacht, Werte einer Liste zu überarbeiten und dann wieder eine (Ergebnis)Liste auszugeben.
        
        Ich "missbrauche" das an dieser Stelle ein wenig. Die Liste, die ich übergebe ( 1..$max_foo ), liefert eben $max_foo Elemente, für die map jeweils den Code-Block ausführt.
        Im Code-Block wird $_ auf den aktuellen Wert der Liste gesetzt; aber hier egal, weil ich es gar nicht verwende.
        Damit dient dieses map {} 1..$x hier nur dazu, den Code-Block $x mal auszuführen.
        
        Eine for-Schleife wäre eigentlich passender, lässt sich aber nicht so schön in den Aufbau der Datenstruktur integrieren.
        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!
        
        tonewheel
        
        2012-08-22 17:30
        
        User since
        2006-10-01
        182 Artikel
        BenutzerIn
        
        2012-08-22T14:50:54 Linuxer
        map() ist eigentlich dazu gedacht, Werte einer Liste zu überarbeiten und dann wieder eine (Ergebnis)Liste auszugeben.
        
        Ich "missbrauche" das an dieser Stelle ein wenig. Die Liste, die ich übergebe ( 1..$max_foo ), liefert eben $max_foo Elemente, für die map jeweils den Code-Block ausführt.
        Im Code-Block wird $_ auf den aktuellen Wert der Liste gesetzt; aber hier egal, weil ich es gar nicht verwende.
        Damit dient dieses map {} 1..$x hier nur dazu, den Code-Block $x mal auszuführen.
        
        Eine for-Schleife wäre eigentlich passender, lässt sich aber nicht so schön in den Aufbau der Datenstruktur integrieren.
        
        Ok, also wie schon vermutet. Besten Dank fuer die Antworten.
    - +2 replies
    - Muffi
      
      2012-08-22 14:14
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      In dem Fall wird er auch ein kleines bisschen zweckentfremdet. Oder zumindest ist es nicht sein typischer Einsatzzweck.
      
      Code (perl): (dl )
      
      @neues_array = map { <Regel von Element alt nach neu> } @altes_array
      
      Und das aktuelle Element steht in $_
      
      z.B.
      
      Code (perl): (dl )
      
      @zahlen_plus_eins = map { $_ + 1 } @zahlen
      
      in dem Fall wird er nur benutzt um eine bestimmte Anzahl (1..$max_foo) durchlaufen zu werden und konstanten Output zurückzuliefern.
      
      Wenn ich mich recht erinner sollt auch
      
      Code (perl): (dl )
      
      my @_bar = (dclone( \%bar )) x $max_bar;
      
      funktionieren. [EDIT] Anfängerfehler, tut doch nicht so wies soll.
      Last edited: 2012-08-22 14:37:14 +0200 (CEST)
      1 + 1 = 10
      - Linuxer
        
        2012-08-22 14:21
        
        User since
        2006-01-27
        3870 Artikel
        HausmeisterIn
        
        2012-08-22T12:14:51 Muffi
        Wenn ich mich recht erinner sollt auch
        
        Code (perl): (dl )
        
        my @_bar = (dclone( \%bar )) x $max_bar;
        
        funktionieren.
        
        Naja, ich denke, dass dclone() genau einen Klon erzeugt und dieser dann $max_bar mal kopiert wird. Was meines Erachtens wiederum nicht korrekt wäre.
        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!

View all threads created 2012-08-21 21:46.