Opened by shaihulud at 2006-10-17 14:55
User since
2006-04-12
76 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-04-12
76 Artikel
BenutzerIn
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
my $suffix = '.JPL';
my $srcdir = $Zeilen[3]."/";
my @dateien = glob($srcdir."*$suffix");
for my $datei(@dateien){
if(index($datei,"---") == length $srcdir ){ # line 63
(my $newname = $datei) =~ s/^---//;
rename ($datei,$newname);
$datei = $newname;
}
my $document;
&functions(\$document,$datei,\%hash,$srcdir);
push(@documentlist,$document);
}
die zeile hat den fehler: newname ist gleich datei. er benennt sie nicht um.
(my $newname = $datei) =~ s/^---//;