pointer auf array und hash (Inline::C) (Allgemeines zu Perl)

[thread]15675[/thread]

pointer auf array und hash (Inline::C)

Leser: 19

Articles: hide open all | hide show old branches

+14 replies
Gast Graf Herschel

2010-11-26 15:05
Hallo an alle

Frage:
Wie gebe ich einen leeren array- oder hash pointer auf eine function, die dieses array dann füllt?
Wie ich mir das dachte:
Code: (dl )

1 2 3 4 5 6 7 8 9 10

sub function() { my(*par,$any)=@_; // hier, so schätze ich, werde ich wohl ein globales array deklarieren müssen my(@arr)=(); // nun fülle ich @arr und setze den pointer *par drauf...so meinte ich } my $array function(\$array,"any_text");
Aber:
Can't declare ref-to-glob cast in "my" at .....

Wie funktioniert sowas?
Vielen Dank

mod-edit pq: Inline::C zum titel hinzugefügt
Last edited: 2010-11-26 17:27:06 +0100 (CET)
- +8 replies
- pq
  
  2010-11-26 15:38
  User since
  2003-08-04
  12208 Artikel
  Admin1
  das sieht sehr merkwürdig aus, was du da machst.
  hast du denn die entsprechende doku gelesen?
  http://p3rl.org/perlref
  http://p3rl.org/perlreftut
  http://p3rl.org/perldsc
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11
  
  my $array = []; function($array); # alternativ my @array; function(\@array); sub function { my ($array) = @_; push @$array, 23; }
  
  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
  - Gast Graf Herschel
    
    2010-11-26 16:02
    
    Danke.
    Ja, habe ich gelesen, finde aber das Benötigte nicht.
    Deine Beispiele helfen nicht.
    Bei A. ist beim caller eine Referenz auf ein array nötig,
    bei B. muß der caller ein array allokieren und den pointer darauf der function übergeben.
    Ich benötige aber beim caller einen void* und die function setzt den übergebenen *void auf das von der function erzeugte array oder sie gibt einen NULL pointer bei Problem zurück, über den stack, nicht per return.
    Ich benötige das als Interface zwischen Perl und meinem inline_C
    
    Gruß
    - +4 replies
    - renee
      
      2010-11-26 16:04
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Vielleicht erläuterst Du erstmal genauer, was Du genau machen möchtest. Dann lässt sich bestimmt einfacher helfen...
      OTRS-Erweiterungen (http://feature-addons.de/)
      Frankfurt Perlmongers (http://frankfurt.pm/)
      --
      
      Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
      Perl-Entwicklung: http://perl-services.de/
      - +3 replies
      - Gast Graf Herschel
        
        2010-11-26 16:25
        
        2010-11-26T15:04:51 renee
        Vielleicht erläuterst Du erstmal genauer, was Du genau machen möchtest. Dann lässt sich bestimmt einfacher helfen...
        
        Ich habe das perl nach längerem HickHack hineingequetscht in ein flash. Diese nun verfügbare Grundfunktionalität ist optimal und die Performance ist nahezu wie bash. Für weitere module ist kein Platz mehr, außerdem ist alles zum Laden der module entfernt. Perl soll nun allokieren, Strukturen wie hash, arrays usw.erstellen. Eben all das was es gut kann. Angestossen wird es von C, Nun benötige ich noch die Interaktion über pointer mit den Perl_funktionen. alles andere funktioniert perfekt. Perl soll allokieren, deshalb will ich den perl_funktionen den *void über den stack geben. Das sollte doch machbar sein, oder? Dieses my(*ptr) gibt es doch.
        
        () lasse ich in weg.
        Last edited: 2010-11-26 16:26:56 +0100 (CET)
        
        +2 replies
        
        Mithaldu
        
        2010-11-26 17:18
        
        User since
        2010-10-28
        20 Artikel
        BenutzerIn
        
        Du hast, scheint mir, die Erstellung von Pointern in Perl gänzlich missverstanden.
        
        Kurzfassung:
        
        Pointer heissen in Perl ref oder reference.
        
        Dies erstellt eine Referenz auf ein anonymes Hash:
        my $hash_ref = {};
        Auf ein bestehendes:
        my $hash_ref = \%hash;
        Ähnlich für Arrays:
        my $array_ref = [];
        my $array_ref = \@array;
        
        * verwendet man in Perl nur um Funktionsnamen anzusprechen.
        
        Gast Graf Herschel
        
        2010-11-26 18:04
        
        Das mit dem Missverständnis muß ich nun aber zurückweisen.
        Ich sehe es ja von meiner Seite aus. Ich übergebe den Perlfunktionen meine pointer und wenn die dann dort zu Referenzen mutieren, dann ist das für mich weniger relevant. Mein Problem liegt im Mangel an Wissen um die richtige Notation in Perl und gefunden habe ich in den Docs. auch nichts. Aber hier wurde mir geholfen, darum geht's und so sieht mein pointer nun aus: @{$$my_pointer}. Das muß man wissen, ich wußte es nicht.
        Danke für deine Aufstellung,ich habe es schon als Info in mein ~/include/arm_perl.h hineinkopiert.
        Last edited: 2010-11-26 18:34:50 +0100 (CET)
    - +2 replies
    - pq
      
      2010-11-26 17:16
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      Guest Graf Herschel
      Ich benötige das als Interface zwischen Perl und meinem inline_C
      
      wäre leicht hilfreich gewesen, das gleich am anfang zu erwähnen. ich hab mich schon gewundert, warum du von pointer und void in perl redest.
      
      Quote
      Deine Beispiele helfen nicht.
      
      nuja, sie helfen dem, der das problem hat, dass ich annahm. sie zeigen, wie man einer sub eine referenz auf ein array übergibt.
      deine frage "Wie gebe ich einen leeren array- oder hash pointer auf eine function, die dieses array dann füllt?" wird damit exakt beantwortet (ausser dass man halt in perl von referenxen redet).
      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
      - Gast Graf Herschel
        
        2010-11-26 17:27
        
        2010-11-26T16:16:59 pq
        Guest Graf Herschel
        Ich benötige das als Interface zwischen Perl und meinem inline_C
        
        wäre leicht hilfreich gewesen, das gleich am anfang zu erwähnen. ich hab mich schon gewundert, warum du von pointer und void in perl redest.
        
        Quote
        Deine Beispiele helfen nicht.
        
        nuja, sie helfen dem, der das problem hat, dass ich annahm. sie zeigen, wie man einer sub eine referenz auf ein array übergibt.
        deine frage "Wie gebe ich einen leeren array- oder hash pointer auf eine function, die dieses array dann füllt?" wird damit exakt beantwortet (ausser dass man halt in perl von referenxen redet).
        
        Damit hast du natürlich völlig Recht! Ich habe mich wohl etwas schlampig ausgedrückt. Wird nicht wieder vorkommen.
        Ich danke dir und ich hoffe auf deine Unterstützung, wenn es wieder einmal klemmt.
        
        Graf Herschel,eigenhändig
- renee
  
  2010-11-26 16:03
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Du solltest bei der Subroutinendeklaration auch die "()" weglassen. Prototypen sind in Perl ein eigenes Thema...
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  sub function { my ($arref,$value) = @_; push @{$arref}, $value; } my @array; function( \@array, 'neuer wert' ); print $_,"\n" for @array;
  
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
- +4 replies
- topeg
  
  2010-11-26 16:22
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Meinst du so was?:
  
  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 26 27 28 29 30 31 32
  
  #!/usr/bin/perl; use strict; use warnings; my $typles_ref1; if(function(\$typles_ref1,"array")) { print "ARRAY:\n"; print join(', ',@$typles_ref1)."\n"; } my $typles_ref2; if(function(\$typles_ref2,"hash")) { print "HASH:\n"; while(my($k,$v)=each(%$typles_ref2)) { print "$k = $v\n"; } } ###################################################### sub function { my($ref,$type)=@_; return 0 if($type ne 'array' and $type ne 'hash'); $$ref=[qw(var1 var2 var3)] if($type eq 'array'); $$ref={qw(key1 var1 key2 var2)} if($type eq 'hash'); return 1; }
  - +3 replies
  - Gast Graf Herschel
    
    2010-11-26 16:58
    
    Ja, funktioniert, bzw. ist deine Darstellung die benötigte Hilfe.
    
    $$ref=[qw(var1 var2 var3)] if($type eq 'array');
    allokiert nicht und crashed deshalb, zeigt mir aber wie man das in Perl macht.
    
    push(@{$$ref},$plip);
    push(@{$$ref},$plop);
    erzeugt,allokiert richtig und liefert korrekt:
    printf("plop is %s\n",*((char*)ptr+1));
    
    Du bist eine echte Perl(e)
    Gruß und herzlichen Dank
    - +2 replies
    - topeg
      
      2010-11-26 20:54
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Ich kann mir schon denken warum meines in C kracht und deines nicht. Ich habe eine Zuweisung gemacht, damit bekommt "$typles_ref" einen neuen Wert zugewiesen. Wenn "$typles_ref" aber von Perl mit C geteilt wird, so wird die Koppelung bei der Zuweisung aufgehoben und beide Seiten entkoppelt (der Wert auf in C bleibt "void"). Bei der Autovivikation "@{$$ref}" wird diese auf die geteilte Variable angewendet und die Koppelung bleibt erhalten.
      Aber das ist nur eine Vermutung, ich stecke in der Programmierung mit libperl nicht so drin.
      - Gast Graf Herschel
        
        2010-11-26 22:01
        
        Ich habe mir das mit dem GDB angesehen, deine Vermutung ist korrekt. Man muß ziemlich tief tauchen. $$ref wird außerhalb des für das binary erreichbare datansegments gestellt,
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
        
        cs::xxx push ds push dx push ax push ds push es usw. push dx ; dx stammt vom stack,beschrieben von perl pop ds ; hier setzt er sich in das perl_daten_segment call pqwmerge; hier ist dieses generalized quotes *Adresse wird gemäß ds außerhalb deklariert pop ds ; und wieder alles in Ordnung retf
        
        Wenn ich den pointer nicht verwende, passiert auch nichts, aber das ist ja nicht der Sinn der Sache. Bei nur push(@{$$ref},$plip); bleibt ds im daten_segment des binaries. Ich müsste ja nur an den compiler_switches drehen, dann würde auch das funktionieren,bin aber angewiesen auf code mit kleinstem memory_datasegment. Was mir nicht gelingt, ist den pointer auf NULL zu setzen, aber das löse ich mit unterschiedlichen return_werten.
        
        Alles Bestens
        Last edited: 2010-11-26 22:03:34 +0100 (CET)

View all threads created 2010-11-26 15:05.