Frage zur nutzung von eigenen Modulen (gelöst) (Allgemeines zu Perl)

[thread]15846[/thread]

Frage zur nutzung von eigenen Modulen [gelöst]

Leser: 25

Articles: hide open all | hide show old branches

+5 replies
Kean

2011-01-14 12:01
User since
2004-08-18
463 Artikel
BenutzerIn
Ich würde gerne in einem Programm von mir ein zweites Programm als Package einbinden. Dabei bin ich auf ein kleines Problem gestoßen bei dem ich nicht weiter komme.

Ich habe ein Programm wie z.b. das hier:
Code (perl): (dl )

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

use strict; use warnings; use Tk; my $mw = MainWindow->new(); my $Variable; {verschiedene Widgets} MainLoop; sub x { ... } sub y { ... }
In dieses Programm würde ich jetzt gerne mit "use Programm2;" das zweite Programm einbinden. Das zweite Programm ist ähnlich aufgebaut:
Code (perl): (dl )

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

use strict; use warnings; use Tk; my $mw = MainWindow->new(); my $Variable; {verschiedene Widgets} MainLoop; sub x { ... } sub y { ... }
Wenn ich jetzt also im ersten Programm "use Programm2;" hinzufüge und im zweiten "package Programm2;", dann startet er beim öffnen des Hauptprogramms zuerst das Programm2, sprich er erzeugt das MainWindow.

Ich habe dann das erzeugen des MainWindow bis zum MainLoop in ein sub mit dem namen Start gepackt. Dann startet es nicht mehr und ich kann mit Programm2->Start das ganze auslösen.

Und hier beginnen auch meine Probleme. Da die subs in Programm2 auf Widgets und Variablen in Start zugreifen müssen, bekomme ich natürlich die Fehlermeldung das diese Widgets/Variablen nicht deklariert sind.

Ich habe versucht in den Start sub die anderen subs aus Programm2 mit einzubinden, was aber nicht funktioniert hat.

Bleibt mir keine andere Möglichkeit wie alle Subs in Programm2 umzuschreiben, so dass diesen die Widgets und Variablen übergeben werden? Oder gibt es vielleicht eine einfachere Möglichkeit?
Last edited: 2011-01-14 12:04:13 +0100 (CET)
- +4 replies
- MatthiasW
  
  2011-01-14 12:46
  
  User since
  2008-01-27
  367 Artikel
  BenutzerIn
  
  Je nachdem welches Verhalten du versuchst zu erzielen, könntest du bspw. die Variablen außerhalb von start() deklarieren, sodass sie auch in den anderen Subroutinen bekannt wären.
  Einfacher wäre es sicherlich, den Aufruf von MainLoop() zu versetzen, sodass die Hauptschleife erst betreten wird, wenn du es möchtest.
  
  Ein anderes Perl-Skript kann man übrigens auch mittels ~~require~~ do EXPR einbinden.
  
  MfG
  
  edit: Ich meinte natürlich do 'filename' und nicht require...
  Last edited: 2011-01-14 14:54:10 +0100 (CET)
  perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
  - +3 replies
  - Kean
    
    2011-01-14 13:51
    
    User since
    2004-08-18
    463 Artikel
    BenutzerIn
    
    Ich habe das Modul jetzt mit use eingebunden, die Hauptschleife in die start Sub gepackt und alle Variablen vorher deklariert.
    
    Durch die Zeile "package Program2;" am Anfang des Moduls können dann ja keine Variablen im Hauptprogramm überschrieben werden wenn diese gleichlautend sind oder? Es wird doch ein eigener Namespace dadurch angelegt. Sehe ich das richtig?
    
    Den Aufruf mache ich mit "Program2->start("test");". Der übergebene String kommt aber nicht in der Variable $_[0] an. Woran liegt das?
    - +2 replies
    - Linuxer
      
      2011-01-14 13:58
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Weil beim verwendeten Methoden-Aufruf der PackageName als ersten Argument übergeben wird.
      Das erste Argument ist damit als $_[1] zu finden.
      
      Code (perl): (dl )
      
      PACKAGENAME->foo("bar");
      
      Code (perl): (dl )
      
      1 2 3 4 5
      
      sub foo { my $package = shift; my $argument = shift; # ... }
      
      Last edited: 2011-01-14 14:00:57 +0100 (CET)
      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!
      - Kean
        
        2011-01-14 14:07
        
        User since
        2004-08-18
        463 Artikel
        BenutzerIn
        
        Danke jetzt klappt es :-)

View all threads created 2011-01-14 12:01.