Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
Leser: 1
 |
|< 1 2 >| |  |
15 Einträge, 2 Seiten |
![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
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
use strict;
use File::Find;
my $var = '';
my @dirs = ();
my $startdir = '.';
sub process_item
{
next if $_ =~ /^\.\.?$/;
if (-d $_)
{
# Aus dem gesamten Pfad werden führende Punkte "../" entfernt
$var = $File::Find::name;
$var =~ s/^\.\.?\///;
push (@dirs, $var);
}
}
find(\&process_item, $startdir);
print join("\n", (@dirs);
1
2
3
4
5
6
7
8
9
for my $folder (@dirs)
{
opendir(DIR, $folder ))
my @files = readdir(DIR);
closedir(DIR);
.
#files berarbeiten
.
}
![[Homepage]](/battie/theme/default/homepage.gif)
File::Find::Rule weiter...
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
sub process_item
{
# Einträge "." und ".." in Unterverzeichnissen überspringen!
next if $_ =~ /^\.\.?$/;
# prüfen, ob $_ auf ein Verzeichnis verweist
if (-d $_)
{
# Aus dem gesamten Pfad werden führende Punkte "../" entfernt
$var = $File::Find::name;
$var =~ s/^\.\.?\///;
# Verzeichnisname nebst Pfad in @dirs ablegen
push (@dirs, $var);
}
}
File::Find nach Dateien suchst, dann kannst Du den vollen Pfad auch mit $File::Find::name bekommen.1
2
3
4
5
6
7
8
9
10
11
12
13
14
use strict;
use File::Find;
my $var = '';
my @files = ();
my $startdir = '.';
sub process_item{
push(@files,$File::Find::name) if(-f $File::Find::name);
}
find(\&process_item, $startdir);
print join("\n", (@files);
|
|< 1 2 >| | |
15 Einträge, 2 Seiten |
Schrift
use strict; use warnings;
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
![[Powered by Battie]](/battie/img/powered.png)
