Alias einer Packagevariable mit *variable = \$THISVAR; (gelöst) (Allgemeines zu Perl)

[thread]21606[/thread]

Alias einer Packagevariable mit *variable = \$THISVAR; [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 6

Articles: hide open all | hide show old branches

+9 replies
GwenDragon

2024-07-08 12:19
User since
2005-01-17
14741 Artikel
Admin1
Ich habe gerade ein Verständnisproblem mit der Perl-Symboltable und "Aliases" auf Variablen eines Package.

Es sei ein Package so ähnlich deklariert:
Code (perl): (dl )

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

package TEST { # Trenner bei Daten in Passwort-/Gruppendateien our $DATA_SEPARATOR = q(::); # Trenner bei mehrfachen Daten our $DATA_SEPARATOR_MULTI = q(,); *SPLITCHARS = \$DATA_SEPARATOR; *SPLITCHARS2 = \$DATA_SEPARATOR_MULTI; sub test { if ( $blocked[$i] =~ /^\Q$user\E\Q$SPLITCHARS/ ) { } };
Nun wirft mir Perl beim Compilecheck das für Zeile if ( $blocked[$i] =~ /^\Q$user\E\Q$SPLITCHARS/ ) {
Variable "$SPLITCHARS" is not imported at ...\TEST.pm line ....
Global symbol "$SPLITCHARS" requires explicit package name (did you forget to declare "my $SPLITCHARS"?) at ...

Ich will, dass über * quasi ein $SPLITCHARS erzeugt wird, das auf $DATA_SEPARATOR zeigt.

Wo denke ich falsch?
Last edited: 2024-07-08 12:56:54 +0200 (CEST)
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- rosti
  
  2024-07-08 14:38
  User since
  2011-03-19
  3463 Artikel
  BenutzerIn
  Du denkst schon richtig. Aber's geht bei mir auch nicht ;)
  
  Auch das da geht nicht:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  use strict; use warnings; my $str = 'string'; *bar = $str; print $bar; # not imported
  
  Last edited: 2024-07-08 14:40:17 +0200 (CEST)
- GwenDragon
  
  2024-07-08 14:49
  
  User since
  2005-01-17
  14741 Artikel
  Admin1
  
  *SPLITCHARS = \$DATA_SEPARATOR; geht nur wenn use strict; aus is.
  Aber wie löse ich das dann?
  
  Ich will nur ein paar Aliase, weil das referenzierte ein uralt-Modul ist, das ich nicht ändern darf.
  Ich kann doch niemals ohne use strict; arbeiten, wäre abstrus und fahrlässig.
  Last edited: 2024-07-08 14:51:50 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +6 replies
- haj
  
  2024-07-08 15:45
  User since
  2015-01-07
  551 Artikel
  BenutzerIn
  Eine typeglob-Zuweisung wie *SPLITCHARS=...; deklariert keine Variable! Der Interpreter sieht ein $SPLITCHARS, das ist etwas anderes als *SPLITCHARS.
  
  Es gibt zwei Möglichkeiten, das mit use strict zu verwenden:
  
  Du kannst den Alias, den Du verwenden willst, deklarieren:
  
  Code (perl): (dl )
  
  1 2
  
  our $SPLITCHARS; *SPLITCHARS = \$DATA_SEPARATOR;
  
  Oder, wie die Beschwerde von Perl suggeriert, bei der Benutzung qualifizieren:
  
  Code (perl): (dl )
  
  1 2
  
  if ( $blocked[$i] =~ /^\Q$user\E\Q$TEST::SPLITCHARS/ ) { }
  - +4 replies
  - GwenDragon
    
    2024-07-08 16:08
    
    User since
    2005-01-17
    14741 Artikel
    Admin1
    
    Ich mit Perl-Lazyness-Syndrom wollte doch mehr Schreiben vermeiden.
    OK, dann eben doch Mehrarbeit, was solls: Muss der Kunde eben zahlen, wenn Legacy, so wie er meint, "verbessert" werden soll.
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +3 replies
    - rosti
      
      2024-07-08 16:40
      
      User since
      2011-03-19
      3463 Artikel
      BenutzerIn
      
      Du könntest ja den Exporter bemühen....
      - rosti
        
        2024-07-08 16:56
        
        User since
        2011-03-19
        3463 Artikel
        BenutzerIn
        
        2024-07-08T14:40:45 rosti
        Du könntest ja den Exporter bemühen....
        
        Aber da müsstest Du die Module ändern. Btw., ein print $Egal::foo; funktioniert auch nur wenn $foo mit our deklariert ist.
        
        MFG
      - GwenDragon
        
        2024-07-08 17:01
        
        User since
        2005-01-17
        14741 Artikel
        Admin1
        
        Da ist es einfacher sowas zu schreiben:
        
        sub test123; *test123 = \&Blah;
        sub test42; *test42 = \&booh;
        our $XYZ; *XYZ = \$FOO;
        our $zyxl; *zyxl = \$BAR;
        …
        
        Schrecklich, aber Wayne interessierts. ¯\_(ツ)_/¯
        
        Wie gesagt, wenn eine Legacy-Code von 2003 aufbohren muss.
        Fühlt sich so an (ﾉಥ益ಥ）ﾉ彡┻━┻
        
        Wären es meine eigenen Module, würde ich gleich s///g machen im Code oder hätt längst OO-Module gebaut.
        Last edited: 2024-07-08 17:06:24 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - GwenDragon
    
    2024-07-08 17:09
    
    User since
    2005-01-17
    14741 Artikel
    Admin1
    
    2024-07-08T13:45:51 haj
    Eine typeglob-Zuweisung wie *SPLITCHARS=...; deklariert keine Variable! Der Interpreter sieht ein $SPLITCHARS, das ist etwas anderes als *SPLITCHARS.
    Danke für die Erklärung.
    
    Da hatte ich von früher zu viel Perl-kanns-selbst-Zauber erwartet, war ja früher auch im Legacy-Code ohne strict.
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2024-07-08 12:19.