Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision e8a42733

Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt

  • ID e8a427334ec00090b77b6cf62d1a7a21038d5cee
  • Vorgänger ec022a58
  • Nachfolger 4d8a6515

Nur Dateien nach $locale->text() durchsuchen, deren Name mit .pl endet.

Unterschiede anzeigen:

locale/de/locales.pl
25 25 
}
26 26 

  		




  27
  27
  
    
opendir DIR, "$bindir" or die "$!";


  		




  28
  
  
    
@progfiles = grep { /\.pl$/; !/(_|^\.)/ } readdir DIR;


  		




  
  28
  
    
@progfiles = grep { /\.pl$/ && !/(_|^\.)/ } readdir DIR;


  		




  29
  29
  
    
seekdir DIR, 0;


  		




  30
  30
  
    
@customfiles = grep /_/, readdir DIR;


  		




  31
  31
  
    
closedir DIR;


  		












Auch abrufbar als:  Unified diff