Thread Verzeichnis sortiert in Array einlesen (2 answers)
Opened by cohama at 2013-01-19 13:37

GwenDragon
 2013-01-19 14:30
#165049 #165049
User since
2005-01-17
14510 Artikel
Admin1
[Homepage]
user image
Code (perl): (dl )
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
27
28
29
30
31
32
33
34
35
use strict;
use warnings;

my $dh;
my $dir;
my @files;

# ...
# ... dein weiterer Code
# ... 

if ( opendir($dh, $dir) ) {
  @files =  
     sort {  
        # stat auf Dateinamen in Index 9 ist mtime (Änderungsdatum)
        (stat $a)[9] <=> (stat $b)[9]  # aufsteigend sortieren
     }
     grep {  
        -f # Test auf Typ Datei; könnte ja auch Verzeichnis sein 
        &&
        # Punkt in Dateinamen maskieren!
        /\.(jpg|JPG)$/ 
     } 
     readdir($dh);
  closedir($dh) 
     or die "Kann $dir nicht schliessen (Error: $!)";
}
else {
  die "Kann $dir nicht oeffnen (Error: $!)";
}
my $oldest = $files[0];

# ...
# ... dein weiterer Code
# ... 

//EDIT: Hinweise, Dateitest -f
Last edited: 2013-01-19 14:37:19 +0100 (CET)
die Drachin, Gwendolyn


Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

View full thread Verzeichnis sortiert in Array einlesen