Scope erzeugen (gelöst) (Allgemeines zu Perl)

[thread]14948[/thread]

Scope erzeugen [gelöst]

Leser: 18

Articles: hide open all | hide show old branches

+6 replies
bianca

2010-04-16 09:31
User since
2009-09-13
7016 Artikel
BenutzerIn
Mit welcher Syntax erzeuge ich in Perl korrekt einen Scope, innerhalb dessen ich Variablennamen ungeschoren erneut verwenden kann?

Das folgende funktioniert zwar, scheint mir aber nicht sehr elegant und perlig zu sein.

Danke
Code (perl): (dl )

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

#!/usr/bin/perl -w use strict; use warnings; my $var = ' verwendet werden dürfen.'; if (1==1) { my $var = 'Diese Variable'; print $var; } if (1==1) { my $var = ' soll mehrfach'; print $var; } print $var;
10 print "Hallo"
20 goto 10
- +5 replies
- renee
  
  2010-04-16 10:07
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Einfach {}
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  my $var = 'test'; { my $var = 'hallo'; print "1: $var\n"; } print "2: $var\n";
  
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
  - bianca
    
    2010-04-16 10:14
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    HAMMER!
    Danke Dir.
    Wie einfach es manchmal sein kann.
    Hab da schon Ergebnisse mit eval begin usw. gegoogelt aber war natürlich alles nicht tauglich.
    10 print "Hallo"
    20 goto 10
  - +3 replies
  - esskar
    
    2010-04-16 10:21
    User since
    2003-08-04
    7321 Artikel
    ModeratorIn
    
    find da auch sowas ganz nett
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7
    
    { my $static: sub count { $static || = 0; print $static++; } }
    
    so umgeht man die ganz fiesen GLOBALEN variablen und ersetzt sie durch so ne art statische variablen, wie man sie aus C kennt.
    - +2 replies
    - fs
      
      2010-04-16 10:39
      
      User since
      2010-03-19
      48 Artikel
      BenutzerIn
      
      Ganz so gruselig muss man statische Variablen heute nicht
      mehr erzeugen, dafür gibt es seit Perl 5.10 "state":
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14
      
      use 5.010; sub f { state $i = 0; ++$i; } say f; say f; say f; __END__ 1 2 3
      
      http://www.fseitz.de/
      - esskar
        
        2010-04-16 11:04
        
        User since
        2003-08-04
        7321 Artikel
        ModeratorIn
        
        oh, danke.

View all threads created 2010-04-16 09:31.