if statement: check ob multiple files lesbar sind (gelöst) (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2024-05-04 17:26:51
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online
1 Gast

[thread]15724[/thread]

submit to reddit

if statement: check ob multiple files lesbar sind [gelöst]

[gelöst]

Leser: 22

Articles: hide open all | hide show old branches

+13 replies
suresh

2010-12-09 15:03
User since
2010-10-12
109 Artikel
BenutzerIn
Hallo,
mich würde interessieren, wie ich ein if statement benutze um herauszufinden ob multiple files lesbar sind.
Wie könnte ich den folgenden Code umschreiben,sodass er funktioniert:
Code: (dl )

1 2 3

if (-r "*files*") { do... }
Grüße
- +4 replies
- Linuxer
  
  2010-12-09 15:17
  User since
  2006-01-27
  3875 Artikel
  HausmeisterIn
  Hi,
  
  jede Datei einzeln prüfen und mit && verknüpfen.
  
  Man könnte auch eine eigene Routine schreiben, die den Check macht und entsprechend Rückmeldung gibt.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14
  
  sub _all_readable { my $not_readable = 0; for my $file ( @_ ) { $not_readable++ if !-r $file; } return !$not_readable; } if ( _all_readable( @list_of_files ) ) { # action }
  
  edit: fixed operator: -|| +&&
  Last edited: 2010-12-09 16:02:44 +0100 (CET)
  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!
  - suresh
    
    2010-12-09 15:21
    
    User since
    2010-10-12
    109 Artikel
    BenutzerIn
    
    Ok,
    so kann man es natürlich machen.
    Danke!
  - Gast sman
    
    2010-12-09 15:36
    Das würde auch kürzer gehen, getestet:
    
    Code (perl): (dl )
    
    if ( eval join '&', map -r, @files ) { ... }
    
    Gruß
    Last edited: 2010-12-09 15:43:42 +0100 (CET)
  - Linuxer
    
    2010-12-09 21:05
    User since
    2006-01-27
    3875 Artikel
    HausmeisterIn
    
    Nach Durchsicht der weiteren Antworten und Möglichkeiten, hier eine optimierte Variante.
    Sie ist einfacher im Aufbau als meine letzte und hat auch den Vorteil, dass sie die Tests
    bereits abbricht, sobald die erste nicht lesbare Datei gefunden ist.
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13
    
    sub _all_readable { for ( @_ ) { return 0 if !-r; } return 1; } if ( _all_readable( @list_of_files ) ) { # action }
    
    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!
- +8 replies
- moritz
  
  2010-12-09 15:25
  User since
  2007-05-11
  923 Artikel
  HausmeisterIn
  Noch eine moegliche Loesung:
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  use List::MoreUtils qw(all); if (all { -r } glob '*file*') { ... }
  
  Perl 6 - Perls Zukunft
  - lichtkind
    
    2010-12-09 19:02
    
    User since
    2004-03-22
    5680 Artikel
    ModeratorIn + EditorIn
    
    ja gefällt mir, dies modul hilft eh als übergang zu perl 6 syntax
    Tutorien in der Wiki, mein zeug:
    kephra, baumhaus, garten, gezwitscher
    
    Es beginnt immer mit einer Entscheidung.
  - +6 replies
  - Gast sman
    
    2010-12-09 19:14
    
    Was wäre denn aus performance Sicht schneller?
    Dieses List-Modul oder der obige Vorschlag "if ( eval join '&', map -r, @files ) { ... }" oder die größere Funktion vom Beitrag davor?
    Ich hab immer ein bisschen Abneigung vor großartigen Moduleinbindungen...
    Last edited: 2010-12-09 19:17:56 +0100 (CET)
    - +2 replies
    - GwenDragon
      
      2010-12-09 19:22
      
      User since
      2005-01-17
      14554 Artikel
      Admin1
      
      Du kannst das doch selbst messen, in dem du jede Methode in eine Funktion packst und diese profilest mit nytprof oder Benchmark.
      
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
      - Gast sman
        
        2010-12-09 19:26
        
        Hätte eher mit einem educated guess gerechnet ^^
    - +3 replies
    - pq
      
      2010-12-09 19:54
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      dein vorschlag nutzt ein in meinen augen unnötiges eval, und zweitens macht es für jede datei den test, während all() nach einem nicht erfolgreichen -r sofort zurückkehren kann und die restlichen tests nicht mehr ausführen muss. daher dürfte all() schneller sein.
      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
      - +2 replies
      - Linuxer
        
        2010-12-09 21:08
        
        User since
        2006-01-27
        3875 Artikel
        HausmeisterIn
        
        Ein aus Neugierde gemachter Benchmark, den ich mit allen 4 Varianten (von Moritz', sman und die 2 von mir) gemacht habe, zeigt bei mir folgendes Ergebnis:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
        
        # 1000 Dateien, Datei-Nr. 999 ist nicht lesbar: $ perl bench.pl Rate eval sub1 sub2 all eval 523/s -- -60% -61% -64% # using eval and join sub1 1318/s 152% -- -1% -9% # sub with addition sub2 1330/s 154% 1% -- -8% # sub with direct return from loop all 1450/s 177% 10% 9% -- # sub with usage of List::MoreUtils::all # 2000 Dateien, Datei-Nr. 999 ist nicht lesbar: $ perl bench.pl Rate eval sub1 sub2 all eval 243/s -- -61% -81% -83% sub1 620/s 155% -- -53% -57% sub2 1309/s 438% 111% -- -10% all 1450/s 496% 134% 11% -- # 10 Dateien, alle lesbar $ perl bench.pl Rate eval sub1 sub2 all eval 35485/s -- -68% -68% -72% sub1 111348/s 214% -- -1% -11% sub2 112439/s 217% 1% -- -11% all 125754/s 254% 13% 12% -- # 10 Dateien, Datei-Nr. 7 nicht lesbar $ perl bench.pl Rate eval sub1 sub2 all eval 36202/s -- -67% -78% -79% sub1 108687/s 200% -- -33% -38% sub2 162293/s 348% 49% -- -7% all 174121/s 381% 60% 7% --
        
        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!
        
        suresh
        
        2010-12-12 11:45
        
        User since
        2010-10-12
        109 Artikel
        BenutzerIn
        
        Danke euch für einen sehr interessante thread.
        
        Dein bench zeigt ja deutlich, dass die all() Variante die schnellste Lösung ist.
        
        Grüße

View all threads created 2010-12-09 15:03.