Opened by Tom at 2004-12-12 18:19
User since
2003-08-04
5246 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-04
5246 Artikel
ModeratorIn
was meinst du mit "alle verzeichnisse"? meinst du alle verzeichnisse, die rekursiv unter einem startverzeichnis haengen?
dafuer funktioniert dein code schon fast:
$File::Find::name enthaelt den Namen der Datei mit vollem Pfad. So kommst du nachher auch noch an die Dateien in @directories dran, waehrend bei deiner Loesung ($_ enthaelt nur den puren Dateinamen, weil File::Find ein chdir macht) nur die Dateinamen ohne Pfad herauskommen.
Ist es das, was du brauchst?\n\n
<!--EDIT|Strat|1127491404-->
dafuer funktioniert dein code schon fast:
Code: (dl
)
1
2
3
4
5
6
7
8
use File::Find;
find (
sub {
push (@dateien, $File::Find::name)
if -f $_ and $_ ne 'Thumbs.db'; # nur dateien ausser 'Thumbs.db'
},
@directories
);
$File::Find::name enthaelt den Namen der Datei mit vollem Pfad. So kommst du nachher auch noch an die Dateien in @directories dran, waehrend bei deiner Loesung ($_ enthaelt nur den puren Dateinamen, weil File::Find ein chdir macht) nur die Dateinamen ohne Pfad herauskommen.
Ist es das, was du brauchst?\n\n
<!--EDIT|Strat|1127491404-->
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
http://www.fabiani.net/