File::Find Warnings (gelöst) (Fragen zu Perl-Modulen)

[thread]18254[/thread]

File::Find Warnings [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 12

Articles: hide open all | hide show old branches

+12 replies
bianca

2013-04-04 21:30
User since
2009-09-13
7016 Artikel
BenutzerIn
Hi!
Wie bekomme ich bei folgendem Script das Variable "%work" will not stay shared at test.pl line 18. weg?
Die Struktur, dass alles in einer sub läuft muss bleiben.
Code (perl): (dl )

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

#!/usr/bin/perl -w use strict; use warnings; use File::Find; test(); sub test { my %work = ( gefunden => 0, ); { no warnings 'File::Find'; find(\&file_find_wanted,('/www')); } sub file_find_wanted { if (-f $File::Find::name) { $work{gefunden} ++; } } print $work{gefunden}; }
Im Einsatz ist Strawberry Perl 5.10.1 auf Win7
Danke
10 print "Hallo"
20 goto 10
- +11 replies
- pq
  
  2013-04-04 21:40
  User since
  2003-08-04
  12208 Artikel
  Admin1
  use diagnostics
  
  Quote
  Variable "%work" will not stay shared at test.pl line 18 (#1)
  (W closure) An inner (nested) named subroutine is referencing a
  lexical variable defined in an outer named subroutine.
  
  When the inner subroutine is called, it will see the value of
  the outer subroutine's variable as it was before and during the *first*
  call to the outer subroutine; in this case, after the first call to the
  outer subroutine is complete, the inner and outer subroutines will no
  longer share a common value for the variable. In other words, the
  variable will no longer be shared.
  
  This problem can usually be solved by making the inner subroutine
  anonymous, using the sub {} syntax. When inner anonymous subs that
  reference variables in outer subroutines are created, they
  are automatically rebound to the current values of such variables.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  my $file_find_wanted = sub { if (-f $File::Find::name) { $work{gefunden} ++; } } find($file_find_wanted, ('/www'));
  
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - bianca
    
    2013-04-04 21:49
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Genial, danke dir!
    Du hast aber das Semikolon vergessen nach my $file_find_wanted =...!
    10 print "Hallo"
    20 goto 10
  - +9 replies
  - Muffi
    
    2013-04-05 09:07
    
    User since
    2012-07-18
    1465 Artikel
    BenutzerIn
    
    Benutzt man eigentlich inner-subs?
    Ich hab die noch nie verwendet und wüsste jetzt auch nicht wo sie mir abgegangen wären.
    1 + 1 = 10
    - +6 replies
    - bianca
      
      2013-04-05 10:03
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      2013-04-05T07:07:17 Muffi
      Benutzt man eigentlich inner-subs?
      
      Du meinst eine sub in einer sub?
      Finde ich bei großen Scripten übersichtlicher.
      10 print "Hallo"
      20 goto 10
      - +3 replies
      - Muffi
        
        2013-04-05 10:24
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Hmm. Jetzt in Deinem Fall würd ich wohl das schreiben (ungetestet):
        
        Code (perl): (dl )
        
        1 2 3 4
        
        use File::Find::Rule; my %work; $work{gefunden} = scalar File::Find::Rule->file()->in('/www');
        
        [EDIT] grad nochmal durchgeguckt, gibt leider kein ->count() sonst wärs noch einen Tacken hübscher.
        Last edited: 2013-04-05 10:31:35 +0200 (CEST)
        1 + 1 = 10
        
        +2 replies
        
        bianca
        
        2013-04-05 12:05
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2013-04-05T08:24:05 Muffi
        
        Code (perl): (dl )
        
        $work{gefunden} = scalar File::Find::Rule->file()->in('/www');
        
        Im tatsächlichen Script werden alle Dateien mit den Eigenschaften -f und -z gelöscht, nicht nur gezählt. Der Code war nur zur Darstellung meines Problems gedacht, konntest du nicht wissen.
        Trotzdem danke!
        10 print "Hallo"
        20 goto 10
        
        Muffi
        
        2013-04-05 12:52
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Code (perl): (dl )
        
        $i += unlink($_) for File::Find::Rule->file->empty->in('/www');
        
        [EDIT] noch nen Counter eingefügt.
        Last edited: 2013-04-05 12:58:51 +0200 (CEST)
        1 + 1 = 10
      - +2 replies
      - pq
        
        2013-04-05 11:58
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        es ist aber quatsch. warum sollte man subroutinen verschachteln, wenn sie eh vom ganzen skript aus sichtbar sind? was bringt das? hab ich noch nie gehabt, dass das irgendjemand ernsthaft macht.
        wenn man was übersichtlicher machen will, benutzt man packages und OOP.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        bianca
        
        2013-04-05 12:03
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2013-04-05T09:58:12 pq
        es ist aber quatsch.
        
        Ich mach es auch nicht sonderlich oft. In diesem Fall dachte ich halt, es müsste so sein aufgrund der Syntax von File::Find. Auf die andere Variante bin ich nicht gekommen, daher hatte ich gefragt und du hast - wie immer - sehr gut geholfen.
        10 print "Hallo"
        20 goto 10
    - +2 replies
    - pq
      
      2013-04-05 11:55
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      verschachtelte subroutinen benutzt man nicht, weil es sinnlos ist. sie sind von aussen eh sichtbar, und sie haben das problem mit den variablen, die nicht mehr shared sind.
      man benutzt anonyme subs stattdessen.
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - Raubtier
        
        2013-04-05 12:35
        
        User since
        2012-05-04
        1076 Artikel
        BenutzerIn
        
        Als erste "richtige" Sprache habe ich Pascal gelernt und dann sehr viel mit Delphi gemacht. Dort habe ich wesentlich häufiger innere Funktionen gehabt. Allerdings verhalten die sich dort auch wie innere Funktionen das tun sollten, sie sind nämlich von außerhalb nicht sichtbar, wie alles andere in den Funktionen eben auch. Dass das bei Perl und den C-ähnlichen Sprachen oft anders ist, hat mich echt ziemlich viel Überwindungskraft gekostet. Generell bin ich inzwischen der Meinung, dass diese Verschachtelung oft zu unübersichtlicherem Code führt, da die Funktionen dann dazu tendieren, zu lang zu werden. Sicher, in einigen Fällen ist es durchaus hilfreich, dass es sowas gibt. Aber dann nimmt man in Perl eben anonyme Funktionen. Und ich C++11 gibt es jetzt ja auch die wirklich großartigen Lambdas (allein die sind schon Grund genug, auf C++11 umzusteigen)!

View all threads created 2013-04-04 21:30.