Opened by Gast at 2006-11-14 23:23
Hallo,
was ist an diesem Ausdruck falsch?
Es soll mir alle config.xxxx Dateien auflisten die 4-stellige Dateiendungen aus Ziffern haben. Das mit der Filterung der Dateiendungen <4 Stellen funktioniert. Ebenfalls die aus Buchstaben. Aber eine config.99999 wird immer noch gelistet.
was ist an diesem Ausdruck falsch?
Code: (dl
)
if ($name =~/config\.[0-9]{4}/i){Es soll mir alle config.xxxx Dateien auflisten die 4-stellige Dateiendungen aus Ziffern haben. Das mit der Filterung der Dateiendungen <4 Stellen funktioniert. Ebenfalls die aus Buchstaben. Aber eine config.99999 wird immer noch gelistet.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
use strict;
use warnings;
system "cls";
my $name;
my $verzeichnis="D:\\perl\\configdt";
opendir VH, $verzeichnis
or die "Kann $verzeichnis nicht oeffnen: $!";
while ($name= readdir VH){
if ($name =~/config\.[0-9]{4}/i){
print $name,"\n";
}
}