Leser: 1
![]() |
|< 1 2 >| | ![]() |
20 Einträge, 2 Seiten |
Quoteich benötige dabei insgesamt 3 Angaben:
1. Den kompletten Pfad
Quote2. Ein "Flag" mit dem man erkennt dass es eine Datei oder ein Ordner ist
Quote3.ein Zeitstempel (wann die Datei das letze mal angefasst wurde)
QuoteOptimal wäre wenn es dann so aussieht
c:\test\test,03/07/06 10:03:45,f (das hier ist eine Datei)
c:\test\test,03/07/06 10:03:45,d (das hier ein Ordner)
c:\test\test\muh.txt,03/07/06 10:03:45 ( wieder ein File..)
1
2
3
4
5
6
7
8
9
10
11
12
use File::Find;
my $dir = "c:/test";
find(\&dir_all, $dir);
sub dir_all
{
push (@files, $File::Find::name);
}
print @files;
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!/usr/bin/perl
use strict;
use warnings;
use File::Find;
my $dir = '/path/to/dir';
my @files;
find(\&wanted,$dir);
sub wanted{
my $file = $File::Find::name;
# vereinfachend gehe ich davon aus, dass es entweder eine Datei oder ein Ordner ist...
my $flag = -f $file ? 'f' : 'd';
my $time = -M $file;
push(@files,$file.'__'.$time.'__'.$flag);
}
![]() |
|< 1 2 >| | ![]() |
20 Einträge, 2 Seiten |