Wx- Compile (Graphische Oberflächen)

[thread]15065[/thread]

Wx- Compile

Tags: WxPerl Ähnliche Threads

Leser: 21

Articles: hide open all | hide show old branches

+21 replies
Gast Hubbi

2010-05-27 13:23
Sorry ich schon wieder:-( ,

ich möchte mein Wx- Perlprojekt in Bytecode speichern.
Da der PC wo es laufen soll sehr schwach ist, möchte ich das Compile des Perlcodes abnehmen.
Dazu benutze ich das Module B:Bytecode. Funktioniert eigentlich auch ganz gut.
Nur wenn bestimmte Wx- Codestücke darin vorkommen, kommt dann bei der Ausführung ein "Segmentation fault" :-(

Nach langen ausprobieren habe ich gefunden an was es liegen könnte:

Wenn in Code etwas mit wxDefault... vorkommt, kommt der Fehler!

Z.B:
Code: (dl )

1 2

$pos = wxDefaultPosition unless defined $pos; $size = wxDefaultSize unless defined $size;
Wenn ich diese Zelien Auskommentiere, läuft der Bytecode durch (nur eben kommt eine entsprechende Wx- Fehlermeldung...)

An was könnte es liegen?

Bei bedarf kann ich hier mein ganzes Testscript mal posten.

Hoffe auf Hilfe
Hubbi
Last edited: 2010-05-27 13:25:03 +0200 (CEST)
- +3 replies
- esskar
  
  2010-05-27 13:36
  
  User since
  2003-08-04
  7321 Artikel
  ModeratorIn
  
  was sind wxDefaultPosition & wxDefaultSize. subS oder constantS?
  - lichtkind
    
    2010-05-27 14:32
    
    User since
    2004-03-22
    5697 Artikel
    ModeratorIn + EditorIn
    
    aliase auf -1 :)
    Tutorien in der Wiki, mein zeug:
    kephra, baumhaus, garten, gezwitscher
    
    Es beginnt immer mit einer Entscheidung.
  - lichtkind
    
    2010-05-27 14:38
    
    User since
    2004-03-22
    5697 Artikel
    ModeratorIn + EditorIn
    
    sind konstanten denn sie sind in Wx_Exp.pm. meiner ansicht ist das die liste der konstanten die dann direkt übers XS auf die einkompilierten wx werte zugreifen.
    Tutorien in der Wiki, mein zeug:
    kephra, baumhaus, garten, gezwitscher
    
    Es beginnt immer mit einer Entscheidung.
- +17 replies
- lichtkind
  
  2010-05-27 14:40
  
  User since
  2004-03-22
  5697 Artikel
  ModeratorIn + EditorIn
  
  zur not kannst sie ja mit [-1,-1] ersetzen.
  Tutorien in der Wiki, mein zeug:
  kephra, baumhaus, garten, gezwitscher
  
  Es beginnt immer mit einer Entscheidung.
  - Gast Hubbi
    
    2010-05-27 15:42
    
    Danke
    Werde ich mal probieren
    Last edited: 2010-05-27 15:44:56 +0200 (CEST)
  - +15 replies
  - Gast Hubbi
    
    2010-05-27 16:47
    Danke es geht.
    Aber warum ist das so?
    
    Jetzt habe ich aber noch ein anderes Problem entdeckt (was nicht Wx angeht, aber auch Bytecodes - möchte dazu extra kein neues Thema aufmachen), hoffe ihr könnt mir trotzdem helfen:
    
    Habe nun in mein Testscript ein eigenes geschriebenes Modul eingebunden (use...).
    Daraufhin rufe ich nun in der package MyFrame die Subrotine anmeldung() auf (welches in Modul ist). Doch nach der Umwandlung in Bytescodes sucht er die Sub in MyFrame statt in Modul :-(
    
    Code: (dl )
    
    Undefined subroutine &MyFrame::anmeldung called at test.pl line 101.
    
    An was kann das denn nun liegen, da es ja vor der Umwandlung klappt?
    
    P.S. Das Modul ist auch in Bytescode.
    
    Hubbi
    Last edited: 2010-05-27 16:48:56 +0200 (CEST)
    - +13 replies
    - esskar
      
      2010-05-27 16:52
      
      User since
      2003-08-04
      7321 Artikel
      ModeratorIn
      
      wie sieht denn der genau aufruf aus?
      Modul::anmeldung() ?
      - +12 replies
      - Gast Hubbi
        
        2010-05-27 17:16
        
        Modul wird so aufgerufen:
        
        Code: (dl )
        
        use module::userv;
        
        Und dann ruft ein Wx- Event eine Sub auf, die dann wiederum die Sub anmeldung aufruft:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        sub anmelden { my ($self, $event) = @_; my $user = $self->{text_user}->GetValue; my $pwd = $self->{text_pwd}->GetValue; anmeldung($user, $pwd); # Funktion in Modul }
        
        Hoffe das hilft.
        
        Hubbi
        Last edited: 2010-05-27 17:21:19 +0200 (CEST)
        
        +11 replies
        
        MatthiasW
        
        2010-05-27 18:30
        
        User since
        2008-01-27
        367 Artikel
        BenutzerIn
        
        Die Subroutine wird von deinem Modul anscheinend nicht exportiert, sodass du sie nicht so aufrufen kannst wie in deinem Beispiel.
        
        Um u.a. Funktionen einfach exportieren zu können, gibt es den Exporter, oder aber du rufst sie vollqualifiziert auf, also so wie esskar es gezeigt hat.
        
        Es gibt da noch andere Möglichkeiten, z.B. könntest du objektorientiert arbeiten und anmeldung() bspw. als Klassenmethode anbieten.
        
        MfG
        perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
        
        +2 replies
        
        esskar
        
        2010-05-27 20:31
        
        User since
        2003-08-04
        7321 Artikel
        ModeratorIn
        
        2010-05-27T16:30:05 MatthiasW
        Die Subroutine wird von deinem Modul anscheinend nicht exportiert, sodass du sie nicht so aufrufen kannst wie in deinem Beispiel.
        
        aber, dann könnte sie doch nie aufgerufen werden, oder? ich denke mal, Exportieren ist nich vom Byte-Dings-Da-Bums-Da unterstützt. Also alles, was irgendwas in den aktuellen namensraum läd. deswegen funktionieren auch keine <tt>constant</tt>s - meines erachtens
        
        MatthiasW
        
        2010-05-27 21:55
        
        User since
        2008-01-27
        367 Artikel
        BenutzerIn
        
        2010-05-27T18:31:52 esskar
        2010-05-27T16:30:05 MatthiasW
        Die Subroutine wird von deinem Modul anscheinend nicht exportiert, sodass du sie nicht so aufrufen kannst wie in deinem Beispiel.
        
        aber, dann könnte sie doch nie aufgerufen werden, oder?
        
        Vor der Übersetzung in Bytecode hätte das auch diesen Fehler geben müssen, da haste Recht. Das mit dem Exportieren war wohl ein Schnellschuss :-|
        
        2010-05-27T18:31:52 esskar
        ich denke mal, Exportieren ist nich vom Byte-Dings-Da-Bums-Da unterstützt.
        
        Also, wenn das Modul nicht schon in Bytecode übersetzt wurde funktioniert es:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        #Foo.pm package Foo; sub import { *{caller().'::foo'} = \&foo } sub foo { 'bar' } 1; # $ perl -MO=Bytecode,-H,-ofoo -E 'use Foo; say foo' # -e syntax OK # $ perl foo # bar
        
        Gast Hubbi
        P.S. Das Modul ist auch in Bytescode.
        
        Ich denke es ist auch nicht nötig vorher alle Module in Bytecode zu übersetzen, da das doch sowieso getan wird, wenn das Skript, welches die Module lädt übersetzt wird, oder? Vielleicht ist das ja das Problem.
        
        Ansonsten fällt mir nichts ein, woran es denn liegen könnte. *kopfkratz*
        
        MfG
        perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
        
        +8 replies
        
        Gast Hubbi
        
        2010-05-28 09:11
        
        Vielen dank für eure Antworten :-)
        
        Also wenn ich die Sub so aufrufe:
        
        Code: (dl )
        
        module::userv::anmeldung($user, $pwd);
        
        funktioniert es.
        
        Nur gibt es kein anderen weg (sonst müsste ich mein ganzes GUI ändern...)?
        
        Mein Anfang von Modul sieht so aus:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12
        
        package module::userv; use strict; use Wx qw[wxICON_ERROR wxICON_EXCLAMATION]; use JSON; use Digest::MD5 qw(md5_hex); use Exporter; our @ISA = qw(Exporter); our @EXPORT = qw(pruefen anmeldung change_pwd);
        
        hubbi
        Last edited: 2010-05-28 09:23:08 +0200 (CEST)
        
        +7 replies
        
        MatthiasW
        
        2010-05-28 14:14
        
        User since
        2008-01-27
        367 Artikel
        BenutzerIn
        
        Zwar ist es mir ein Rätsel weshalb, aber der Exporter scheint Probleme zu machen. Mit einer eigenen import() Methode hat es bei mir in einem Test ohne Wx usw. hervorragend funktioniert. Vielleicht läuft es so auch bei dir:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
        
        package module::userv; use strict; use Wx qw[wxICON_ERROR wxICON_EXCLAMATION]; use JSON; use Digest::MD5 qw(md5_hex); sub import { no strict 'refs'; my $caller = caller; #@EXPORT: *{"$caller\::$_"} = \&{"$_"} for qw(pruefen anmeldung change_pwd); } # import #...
        
        MfG
        perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
        
        +6 replies
        
        Gast Hubbi
        
        2010-05-28 15:09
        
        vielen Dank, jetzt geht es *freu*
        
        +5 replies
        
        Gast Hubbi
        
        2010-05-31 11:10
        
        Zu früh gefreut:-(
        
        Leider nützt mir das doch nix, da jetzt meine CPAN- Module nicht gehen... (json_decode z.B.). Die Module nutzen ja auch export... :-(
        
        Warum unterstützt B::Bytecode nur kein Exporter?
        Gibt es eine andere Lösung ein Bytecode zu erstellen?
        
        Hubbi
        Last edited: 2010-05-31 11:20:45 +0200 (CEST)
        
        +4 replies
        
        esskar
        
        2010-05-31 11:21
        
        User since
        2003-08-04
        7321 Artikel
        ModeratorIn
        
        schreib doch nen FIX dafür ;)
        
        du kannst all dem umgehen, indem du auf OO umweichst!
        
        +3 replies
        
        Gast Hubbi
        
        2010-05-31 11:56
        
        2010-05-31T09:21:42 esskar
        schreib doch nen FIX dafür ;)
        
        du kannst all dem umgehen, indem du auf OO umweichst!
        
        OO, was ist das?
        Last edited: 2010-05-31 11:58:49 +0200 (CEST)
        
        +2 replies
        
        esskar
        
        2010-05-31 12:01
        
        User since
        2003-08-04
        7321 Artikel
        ModeratorIn
        
        Object-orientiert
        also in dem fall von json
        
        Code (perl): (dl )
        
        $perl_scalar = JSON->new->utf8->decode($json_text)
        
        anstatt von
        
        Code (perl): (dl )
        
        $perl_scalar = decode_json $json_text
        
        Gast Hubbi
        
        2010-05-31 12:14
        
        ok, danke werde ich mal versuchen
        
        Hubbi
        Last edited: 2010-05-31 12:16:25 +0200 (CEST)
    - lichtkind
      
      2010-05-27 22:54
      
      User since
      2004-03-22
      5697 Artikel
      ModeratorIn + EditorIn
      
      Gast Hubbi
      Aber warum ist das so?
      
      weil es der inhalt der konstanten ist. der code ist auch einigermaßen sicher weil sich der inhalt wohl nicht so schnell ändern wird.
      Tutorien in der Wiki, mein zeug:
      kephra, baumhaus, garten, gezwitscher
      
      Es beginnt immer mit einer Entscheidung.

View all threads created 2010-05-27 13:23.