Verzeichnis öffnen und Dateien durchsuchen - #77298 (Allgemeines zu Perl)

Strat

2007-06-06 13:17

User since
2003-08-04
5246 Artikel
ModeratorIn

Quote
Code: (dl )
    if( -f $entry ){

opendir gibt nur den dateinamen zurueck ohne pfadangabe, also ueberprueft diese Zeile, ob es im aktuellen Verzeichnis eine Datei namens $entry gibt.

besser:

Code: (dl )

    if( -f "$verzeichnis/$entry" ){

oder sicherer:

Code: (dl )

use File::Spec;
opendir DIR, $verzeichnis or die $!;
while( my $entry = readdir DIR ){
    my $filenameWithPath = File::Spec->catfile( $verzeichnis, $entry );
    if( -f $filenameWithPath ){
        # durchsuche datei
    }
}
closedir DIR;

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/