Globale Variable im Package benutzen (solved) (Allgemeines zu Perl)

[thread]18387[/thread]

Globale Variable im Package benutzen [solved]

Tags: perl5 Similar Threads

Readers: 19

Articles: hide open all | hide show old branches

+16 replies
rc27

2013-06-18 09:10

User since
2013-06-18
14 articles
BenutzerIn

Hallo, ich versuche eine Variable, die im main.pl definiert wurde im package p.pm zu benutzen. Funktioniert das auch ohne Exporter?

Grüße
Last edited: 2013-06-18 09:23:53 +0200 (CEST)
- GwenDragon
  
  2013-06-18 09:30
  User since
  2005-01-17
  14816 articles
  Admin1
  Wenn die Variable im Package mit our deklariert ist, lässt sie sich qualifiziert druch zusätzliche Angabe des Packages ansprechen.
  
  Beispiel:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
  
  #!/usr/bin/perl use 5.008; use strict; use warnings; package mytest; our $x = 42; 1; package main; print "Die Antwort auf Alles namens x ist $mytest::x", "\n"; 1;
  
  ergibt in der Shell:
  test@pc1 ~ Die Antwort auf Alles namens x ist 42
  Last edited: 2013-06-18 09:32:06 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- payx
  
  2013-06-18 09:32
  
  User since
  2006-05-04
  564 articles
  BenutzerIn
  
  Hallo rc27,
  
  das geht mit our:
  
  http://perldoc.perl.org/functions/our.html
  
  HTH
  Grüße
  payx
- GwenDragon
  
  2013-06-18 09:35
  User since
  2005-01-17
  14816 articles
  Admin1
  Selbst wenn du das Package nicht im Hauptprogramm drin stehen hast, sondern mit use lädst geht's:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  use lib '.'; use mytest; package main; print "Die Antwort auf Alles namens x ist $mytest::x", "\n"; 1;
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +12 replies
- Muffi
  
  2013-06-18 09:36
  
  User since
  2012-07-18
  1465 articles
  BenutzerIn
  
  Die Frage ist, ob es nicht schöner geht.
  Man macht ja unter anderem Module, damit man eine Trennung hat.
  Wenn man jetzt über globale Variablen kommuniziert kanns sein, dass man das Schlechteste aus 2 Welten (Code unübersichtlich verteilt auf etliche Dateien + trotzdem keine Trennung) hat.
  1 + 1 = 10
  - +11 replies
  - rc27
    
    2013-06-18 10:37
    
    User since
    2013-06-18
    14 articles
    BenutzerIn
    
    Vielen Dank für die Antworten. Eigentlich benutze ich auch nur lokale Variablen. Wie macht ihr das denn, wenn ihr einen Wert im main und in den Packages benötigt? Da kommt man doch nicht, um eine globale Variable rum oder per Zeiger?
    
    Grüße
    - +10 replies
    - Muffi
      
      2013-06-18 10:44
      
      User since
      2012-07-18
      1465 articles
      BenutzerIn
      
      Das kann man so pauschal nicht sagen.
      
      das alles sein von
      
      Code (perl): (dl )
      
      1 2 3 4
      
      $obj->methode($die_gebrauchte_variable); Package->new($die_gebrauchte_variable); $obj->init($die_gebrauchte_variable); Package::init($die_gebrauchte_variable);
      
      Evtl. ist auch das globale in main gut, muss an anhand der Situation entscheiden. Guck mal, ob man den Wert nicht irgendeiner Funktion mitgeben kann.
      Last edited: 2013-06-18 10:47:16 +0200 (CEST)
      1 + 1 = 10
      - +9 replies
      - rc27
        
        2013-06-18 11:49
        
        User since
        2013-06-18
        14 articles
        BenutzerIn
        
        Danke für den Tipp.
        
        Grüße
        
        +8 replies
        
        guest rc27
        
        2013-06-18 15:21
        
        Ich habe jetzt noch ein Problem. Weil ich strict verwende gibt eine Warnung wegen $main:zahl in pack - used only once ... .
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14
        
        #!/usr/bin/perl # # test1.pl # use strict; use warnings; our $zahl = "22"; use pack; &pack::version();
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
        
        #!/usr/bin/perl # # pack.pm # package pack; use strict; use warnings; sub version { print "Wert: ", $main::zahl; } 1;
        
        Last edited: 2013-06-18 15:30:48 +0200 (CEST)
        
        +7 replies
        
        GwenDragon
        
        2013-06-18 15:42
        
        User since
        2005-01-17
        14816 articles
        Admin1
        
        Es läuft aber ohne Laufzeitfehler.
        Nur beim Kompilieren meckert Perl da.
        
        Einfach mal no warnings 'once'; wenn der ganze Code korrekt läuft;
        einfügen, dann hört's auf.
        Siehe http://perldoc.perl.org/warnings.html
        
        Code (perl): (dl )
        
        sub version { no warnings 'once'; print "Wert: ", $main::zahl=$main::zahl; }
        
        Oder sowas:
        
        Code (perl): (dl )
        
        sub version { print "Wert: ", $main::zahl=$main::zahl; }
        
        Ihhhh! Denke ich dann.
        Ganz ehrlich, Warnung abschalten finde ich schöner.
        Last edited: 2013-06-18 15:43:44 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +6 replies
        
        rc27
        
        2013-06-18 15:55
        
        User since
        2013-06-18
        14 articles
        BenutzerIn
        
        Besten Dank. Gibts eine Lösung ohne Warnungen?
        
        Von der Sache her wird die Variable nie leer sein, aber welche Möglichkeiten gibt es noch?
        
        Ich versuche ja eigentlich nur eine Zahl, die im main definiert wird in allen Packages zu benutzen. Die ändert sich auch nie.
        
        Grüße
        
        +2 replies
        
        GwenDragon
        
        2013-06-18 16:15
        
        User since
        2005-01-17
        14816 articles
        Admin1
        
        Was spricht gegen no warnings 'once';?
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        rc27
        
        2013-06-19 07:23
        
        User since
        2013-06-18
        14 articles
        BenutzerIn
        
        2013-06-18T14:15:44 GwenDragon
        Was spricht gegen no warnings 'once';?
        
        Gut, wenn das ok ist. Ich dachte nur, dass das vielleicht auch ohne Warnung geht. Noch einmal allen vielen Dank und Grüße.
        
        guest wer
        
        2013-06-18 16:40
        
        Dann benutze sie sich einmal:
        
        Code (perl): (dl )
        
        1 2
        
        our $zahl = "22"; sub version { $zahl; }
        
        Last edited: 2013-06-18 16:48:55 +0200 (CEST)
        
        +2 replies
        
        GwenDragon
        
        2013-06-19 08:19
        
        User since
        2005-01-17
        14816 articles
        Admin1
        
        Die Warnung klommt, weil Perl denkt, du hättest dich verschrieben weil die Variable nur einmal im Package verwendet wird. Manchmal ist Perl eben übervorsichtig. ;)
        
        Ich habe doch gezeigt, dass ein nochmaliges benutzen der $main::zahl in der sub dazu führt, dass keine Warnung mehr kommt.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        rc27
        
        2013-06-19 08:57
        
        User since
        2013-06-18
        14 articles
        BenutzerIn
        
        Ah ja, danke!

View all threads created 2013-06-18 09:10.