Seiteneffekt von our (solved) (Allgemeines zu Perl)

[thread]20483[/thread]

Seiteneffekt von our [solved]

Tags: anfänger package Similar Threads

Readers: 14

Articles: hide open all | hide show old branches

+12 replies
guest GwenDragon/Linux

2018-07-01 18:50
//modedit: Abgeteilt von Variable in einem Modul deklarieren.

Aber da stellt sich mir die Frage wieso zeigt dies dann zweimal 42?
Code (perl): (dl )

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

use strict; use warnings; use 5.010; use utf8; package A; our $test = 42; say ${A::test}; 1; say $test;
Ergibt:
42 42

Ich dachte die letzte Zeile wäre nun sowas wie say $main::test; , Weil doch $test durch die Deklaration im package A mit our zu A gehört. Wo ist da mein Denkfehler?
Last edited: 2018-07-02 16:07:41 +0200 (CEST)
- +11 replies
- Linuxer
  
  2018-07-01 23:09
  User since
  2006-01-27
  3891 articles
  HausmeisterIn
  Naja, erster Gedanke war: Du wechselst ja gar nicht zurück nach main, sondern bleibst im Package A.
  
  Der zweite war: Laut perldoc erzeugt our einen lexikalischen Alias in Form der gegebenen Variable.
  Da es keinen umschließenden Block gibt, innerhalb dessen diese Deklaration steht, gilt sie für die gesamte Datei...
  
  Vergleiche ~~dazu~~ zum Geltungsbereich auch das Verhalten bei Verwendung von my:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
  
  /usr/bin/perl use strict; use warnings; use 5.020; package A; my $test = 42; say $test; 1; package main; say $test;
  
  und
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
  
  #! /usr/bin/perl use strict; use warnings; use 5.020; { # Beware: Package enclosed in Block package A; my $test = 42; say $test; 1; } package main; say $test;
  
  PS: So reim ich mir das jedenfalls zusammen ;-)
  Last edited: 2018-07-01 23:19:12 +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!
  - +10 replies
  - GwenDragon
    
    2018-07-02 08:59
    User since
    2005-01-17
    14816 articles
    Admin1
    
    Ich hatte mal gelernt, dass Package-Variablen, die von Außen referenziert werden sollen, mit our deklariert werden. Und gedacht, dass diese auch nur einen Geltungsbereich innerhalb der Package-Deklaration haben. Und gedacht, dass alles außerhalb einer package automatisch main:: ist.
    
    Anstatt
    
    Code (perl): (dl )
    
    1 2 3 4 5
    
    package A; our $test = 42; say ${A::test}; 1; say $test;
    
    sollte es wohl
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8
    
    use strict; use 5.010; package A { our $test = 42; say ${A::test}; 1; } say $test;
    
    sein.
    
    Früher hatte ich use vars verwendet um nur im Package Variablen zu deklarieren, aber das ist ja eigentlich deprecated, oder?
    Das ist wohl der feine Unterschied, von use vars qw(…) und our verwendet werden sollte.
    
    Fallstrick. :(
    Wäre interessant zu wissen ob es mehr Leute gibt, die our verwenden, und aus Versehen so falsch wie das meiner Frage.
    Möglicherweise ist mir das nie aufgefallen, weil in üblicherweise packages in Dateien liegen und deswegen die Variablen Datei-lokal deklariert sind.
    
    Bin ich nur diejenige, die das nicht richtig verstanden hat mit package?
    Oder geht es euch auch so?
    Last edited: 2018-07-02 09:27:26 +0200 (CEST)
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - rosti
      
      2018-07-02 09:58
      
      User since
      2011-03-19
      3548 articles
      BenutzerIn
      
      Hi,
      
      our verwende ich nur in
      
      Code (perl): (dl )
      
      1 2 3 4 5 6
      
      sub AUTOLOAD{ my $self = shift; my $fname = do{ our $AUTOLOAD =~ /(\w+)$/; $1; };
      
      und auch nur weil use strict; geschaltet ist. D.h., ich könnte auf das our auch verzichten ;)
      
      Genauso wie man auch auf den Exporter verzichten kann, wenn man statische Variablen als $Pname::varname also fullqualified deklariert.
      
      MfG
      
      PS: Kennst Du Lindenfels? Die Drachenstadt ;)
      http://blog.rolfrost.de/
      
      The art of steam.
    - Linuxer
      
      2018-07-02 13:04
      
      User since
      2006-01-27
      3891 articles
      HausmeisterIn
      
      Bei mir liegt normalerweise jedes Package in einer eigenen Datei. Von daher traf mich der Geltungsbereich nicht so sehr.
      
      Ich habe dann nur unterschieden, ob ich eine Variable direkt von außen direkt modifizierbar haben wollte oder nicht.
      Wenn ja, habe ich mit perlfunc our deklariert, wenn nicht, dann mit perlfunc my.
      
      Wenn man mehrere Packages innerhalb einer Datei deklarieren und getrennt haben will, muss man wohl mit Package- Blöcken arbeiten, wie Du bereits geschrieben hast. Da ich das bisher meist vermieden habe, habe ich damit keine wirklichen Erfahrungen und auch keine richtige Meinung ;-) Ich bin jetzt erst über Dein Beispiel von gestern darauf aufmerksam gemacht geworden.
      
      vars ist laut eigener perldoc noch nicht "depricated" (das Wort taucht nicht direkt auf), aber es wird darauf hingewiesen, dass es durch perlfunc our überflüssig wäre und von der Nutzung von vars abgeraten wird.
      
      perldoc vars
      NOTE: For use with variables in the current package for a single scope, the functionality provided by this pragma has been superseded by our declarations, available in Perl v5.6.0 or later, and use of this pragma is discouraged. See our.
      
      Wobei ich sagen muss, dass es bei mir etwas mit Lust und Laune zu tun hat, welches der beiden ich verwendet habe.
      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!
    - +2 replies
    - haj
      
      2018-07-02 13:15
      
      User since
      2015-01-07
      567 articles
      BenutzerIn
      
      Dass package keinen Gültigkeitsbereich beschreibt, ist ja schon dargestellt worden, deshalb nur noch ein Nachtrag zu our:
      
      Das Verhalten von our halte ich auch für sehr ... gewöhnungsbedürftig, um es schonend zu sagen. Erstens ist es wirklich anders als use vars, zweitens gibt es anders als bei my keinerlei Warnung, wenn die gleiche Variable selben Gültigkeitsbereich nochmal deklariert wird - auch dann nicht, wenn die zweite Deklaration in einem anderen Namensraum liegt:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
      
      use warnings; use strict; use 5.010; package A; our $test = "Alpha"; package B; our $test = "Beta"; package main; say '$A::test = ', $A::test; # Alpha say '$B::test = ', $B::test; # Beta say '$test = ', $test; # Beta say '$main::test = ', $main::test; # Uninitiaized
      
      Das gibt zwei Warnungen:
      
      Name "main::test" used only once: possible typo at /tmp/a.pl line 17.
      Use of uninitialized value $test in say at /tmp/a.pl line 17.
      
      Es gibt also keine Warnung, dass $test nochmal deklariert wird, aber dafür zwei andere.
      Die zweite Warnung ist verblüffend, weil $test ja grade erfolgreich ausgegeben wurde, hier wird also der Präfix main:: irreführend aus dem Text entfernt.
      
      Wie Du schreibst: Meistens fällt es nicht auf, eben weil üblicherweise Perl anhand der Konvention "eine Datei = ein Modul = ein Package = eine Klasse" geschrieben wird.
      
      Nun braucht man ja our eher selten, und es ist auch nur einer der Fallstricke, wenn man mehrere package Deklarationen in einer Datei hat. Man sollte wirklich einen triftigen Grund haben, von der Konvention abzuweichen.
      - GwenDragon
        
        2018-07-02 14:20
        
        User since
        2005-01-17
        14816 articles
        Admin1
        
        2018-07-02T11:15:06 haj
        Nun braucht man ja our eher selten, und es ist auch nur einer der Fallstricke, wenn man mehrere package Deklarationen in einer Datei hat.
        Man sollte wirklich einen triftigen Grund haben, von der Konvention abzuweichen.
        Lazyness. Um was schneller zu schrieben.
        
        Quote
        Das Verhalten von our halte ich auch für sehr ... gewöhnungsbedürftig, um es schonend zu sagen
        Ja, in dem Fall auch.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +5 replies
    - GwenDragon
      
      2018-07-02 14:06
      
      User since
      2005-01-17
      14816 articles
      Admin1
      
      Quote
      In the next example we don't have curly braces and thus the declaration our $x = 23; will be intact even after switching namespaces. This can lead to very unpleasant situations. My recommendation is to avoid using our (you almost always need to use my anyway) and to put every package in its own file.
      Sagte Gabor in https://perlmaven.com/package-variables-and-lexica...
      
      Ich habe vorhin rumgesucht in meinen Perl-Büchern, aber weder it "Perls Best Practices" noch "Fortgeschrittene Programmierung in Perl" wird wirklich auf die Falle mit our hingewiesen. Und dort wird packages nicht mit Code-Block verwendet.
      
      Der Seiteneffekt mit our ist genau das was Perl auch zum Ärgernis werden lässt und selbst nicht mit Tests zu erlegen ist.
      
      Hat irgendjemand eine Idee wozu our gut sein soll, wenn es solche Seiteneffekte zeigt?
      Ich dachte das wäre anstatt use vars die moderne Version Variablen in Modulen zu definieren.
      Last edited: 2018-07-02 14:09:32 +0200 (CEST)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - Linuxer
        
        2018-07-02 14:22
        
        User since
        2006-01-27
        3891 articles
        HausmeisterIn
        
        perlfunc our ist etwas länger und beschreibt zum einen die Größe des Geltungsbereichs, ("wie my") und auch auf die Besonderheiten ein, wenn man mehrere Packages in einer Datei hat. Damit ist mMn der Seiteneffekt auch dokumentiert.
        
        Ich weiß gerade nicht, ob da auch dabei steht, wozu das erlebte Verhalten "gut ist". Mir fehlt gerade die Zeit, das weiterzuverfolgen. Vielleicht später oder heute abend...
        
        Und Packages mit Code-Blocks gibt es auch "noch nicht sooo lange" ... Das ist irgendwann als Feature dazu gekommen. Aber ich weiß gerade nicht, ab welcher Version. Evtl. konnten die Bücher da noch gar nicht drauf eingehen, weil es das noch nicht gab?
        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!
      - rosti
        
        2018-07-02 14:35
        
        User since
        2011-03-19
        3548 articles
        BenutzerIn
        
        Das Problem ist nicht our sondern der Geltungsbereich. Also das Übliche zum Thema Globalismus. Die andere Frage ist die, wie sich statische Variablen verhalten, was ich auch beschrieben habe.
        
        Ansonsten:
        
        Code (perl): (dl )
        
        1 2 3
        
        our $foo = 3; our $foo = 4; # "our" variable $foo redeclared
        
        und andererseits;
        
        Code (perl): (dl )
        
        1 2 3 4
        
        $A::bar = 1; $B::bar = 2; print $A::bar, $B::bar;
        
        Also kriegen wir ja doch eine Warnung bz. redeclare. Wohingegen ein $A::foo nicht einmal mit my zu deklarieren ist, weil ja der Geltungsbereich zusammen mit der Variablen angegeben wurde.
        
        MfG
        
        .
        http://blog.rolfrost.de/
        
        The art of steam.
      - +2 replies
      - Linuxer
        
        2018-07-02 17:14
        
        User since
        2006-01-27
        3891 articles
        HausmeisterIn
        
        Wie schon mal erwähnt, habe ich in der Regel jedes Package in einer eigenen Datei. Und da nutze ich our auch problemlos.
        
        Super finde ich nach den jetzigen Überlegungen dazu, die Verkürzung, die our bietet.
        Ich glaube, ich habe das ab und an mal verwendet, aber nie so drüber nachgedacht, was da eigentlich passiert.
        Es funktionierte und passte mir gut in den Kram ;-)
        
        Anstatt
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9
        
        package My::Foo::Bar::Helper::Module; use strict; use warnings; # type long name at least once $My::Foo::Bar::Helper::Module::OPTION1 = 0; $My::Foo::Bar::Helper::Module::OPTION2 = 0; # use long names later on in this package/file
        
        macht our das Leben einfacher:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8
        
        package My::Foo::Bar::Helper::Module; use strict; use warnings; our $OPTION1 = 0; our $OPTION2 = 0; # use short OPTION1/2 later on in this package/file
        
        Innerhalb des Package kann man wunderbar den kurzen Alias-Namen verwenden.
        Und im Skript, dass diese Modul dann beispielsweise verwendet, kann dann diese Variable über den vollen Namen der Package-Variablen ansprechen:
        
        Code (perl): (dl )
        
        1 2
        
        use My::Foo::Bar::Helper::Module; $My::Foo::Bar::Helper::Module::OPTION1 = 1;
        
        Klar kann man sich drüber streiten, ob man das toll findet oder nicht. Man kann die Variablen auch mit my deklarieren und die Veränderungen daran über Methoden/Funktionen realisieren.
        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!
        
        GwenDragon
        
        2018-07-02 17:27
        
        User since
        2005-01-17
        14816 articles
        Admin1
        
        Nee, diese $Langen::Band::würmer sind ja schlimm.
        Ich finde die verkürzten Namen ja auch gut und habe deswegen immer our im richtigen Kontext, sprich einzelnen Modul-Dateien verwendet.
        
        Mein Denkfehler war ja, dass our den Scope innerhalb des deklarierten Package-Definition hat.
        Ich glaub, das ist wohl ein verstaubtes Relikt in meinem Hirn wo innerhalb einer Procedure die Variablen lokal definiert waren.
        Bin ja auch bislang nie darüber gestolpert.
        
        Aber ganz nützlich drüber zu diskutieren, es gibt bestimmt auch andere, die denken dass our so oder so funktioniert und vermuten, dass sie 'use strict' und 'use warnings' vor solch bösen Konstrukten rettet.
        
        //EDITH: Ich habe den Thread auch mit 'Anfänger' getaggt.
        Last edited: 2018-07-07 13:10:47 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2018-07-02 16:05.