Opened by Math55 at 2004-02-02 16:54
User since
2003-08-08
2561 Artikel
HausmeisterIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-08
2561 Artikel
HausmeisterIn
Klar!
File::Find durchsucht das Verzeichnis "dir" samt Unterverzeichnissen und steckt jedes File in den Array "@file". Mit einer Schleife kannst du nun prüfen, ob das betreffende File verfügbar ist. Natürlich könntest du die Überprüfung schon in der Subroutine vornehmen, anstatt alle Dateien zuerst in einen Array zu packen.\n\n
<!--EDIT|[E|B]|1075734996-->
Code: (dl
)
1
2
3
4
5
6
7
use strict;
use warnings;
use File::Find;
my @file = ();
find(sub { push(@file, $File::Find::dir); }, "dir");
print "$_\n" for(@file);
File::Find durchsucht das Verzeichnis "dir" samt Unterverzeichnissen und steckt jedes File in den Array "@file". Mit einer Schleife kannst du nun prüfen, ob das betreffende File verfügbar ist. Natürlich könntest du die Überprüfung schon in der Subroutine vornehmen, anstatt alle Dateien zuerst in einen Array zu packen.\n\n
<!--EDIT|[E|B]|1075734996-->
Gruß, Erik!
s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}
It's not a bug, it's a feature! - [CGI-World.de]
s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}
It's not a bug, it's a feature! - [CGI-World.de]