Data::Dumper require() statt use() (gelöst) (Fragen zu Perl-Modulen)

[thread]19737[/thread]

Data::Dumper require() statt use() [gelöst]

Tags: perl5 use require Data::Dumper Ähnliche Threads

Leser: 12

Articles: hide open all | hide show old branches

+5 replies
bianca

2015-07-27 08:58
User since
2009-09-13
7016 Artikel
BenutzerIn
Guten Morgen!

Wenn ich Data::Dumper nicht mit use() sondern require() lade, bekomme ich bei der Nutzung seiner Variablen Hinweise aus strict. Wie kann ich die vermeiden?
Code (perl): (dl )

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

#!/usr/bin/perl use strict; use warnings; require Data::Dumper; Data::Dumper->import(qw(Dumper)); local $Data::Dumper::Purity = 1; local $Data::Dumper::Useqq = 1; local $Data::Dumper::Sortkeys = sub { my ($hash) = @_; return [(sort {lc $a cmp lc $b} keys %$hash)]; }; my %test = ( harry => 'foo', larry => { foo2 => 'aar', foo => 'bar', }, ); print Dumper(\%test);
P.S.: ist es Absicht, dass man hier in battie in den "Tags" Feldern keine geöffnete runde Klammer verwenden kann?
10 print "Hallo"
20 goto 10
- +4 replies
- GwenDragon
  
  2015-07-27 09:39
  User since
  2005-01-17
  14747 Artikel
  Admin1
  Die Warnung verschwindet, wenn du die Variablen nochmals zuweist.
  wie bspw.
  
  Code: (dl )
  
  local $Data::Dumper::Purity = $Data::Dumper::Purity = 1;
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +3 replies
  - bianca
    
    2015-07-27 10:04
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Sehr coole Lösung, danke dir.
    Ich hatte gefragt, weil ich nicht sicher war, ob das überhaupt syntaktisch korrekt ist, was ich da mache.
    10 print "Hallo"
    20 goto 10
    - +2 replies
    - Raubtier
      
      2015-07-27 13:56
      
      User since
      2012-05-04
      1075 Artikel
      BenutzerIn
      
      Aber das tut nicht dasselbe!
      
      Vergleiche:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11
      
      #!/usr/bin/perl use 5.12.0; use warnings; my $test = "\n"; require Data::Dumper; Data::Dumper->import(qw(Dumper)); { local $Data::Dumper::Useqq = $Data::Dumper::Useqq = 1; } say Dumper(\$test);
      
      versus
      
      Code (perl): (dl )
      
      1 2 3
      
      ... local $Data::Dumper::Useqq = 1; ...
      
      versus
      
      Code (perl): (dl )
      
      1 2 3 4
      
      ... local $Data::Dumper::Useqq; $Data::Dumper::Useqq = 1; ...
      
      In Version 1 hast du den local-Effekt nicht. Version 2 ist deine mit Warnung, Version 3 mit local und ohne Warnung.
      
      Für mich ergibt es wenig Sinn, eine Variable mit local zu deklarieren, wenn man das local dann in demselben Befehl gleich umgeht/aufhebt.
      Last edited: 2015-07-27 13:59:38 +0200 (CEST)
      - bianca
        
        2015-07-27 15:23
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Ja, hab ich verstanden und geändert.
        Danke für den Hinweis!
        10 print "Hallo"
        20 goto 10

View all threads created 2015-07-27 08:58.