my $suffix = '.JPL';
my $srcdir = $Zeilen[3]."/";
my @dateien = glob($srcdir."*$suffix");
for my $datei(@dateien){
if(index($datei,"---") == length $srcdir ){ # line 63
my $tempsrc =quotemeta $srcdir;
(my $newname = $datei) =~ s/^($tempsrc)---/$tempsrc/;
print $newname;
rename ($datei,$newname);
$datei = $newname;
}
my $document;
&functions(\$document,$datei,\%hash,$srcdir);
push(@documentlist,$document);
}
er escaped mit quotemeta alle zeichen ... auch das :
ansonsten sind halt die Sonderzeichen nicht drin.
jemand ne ahnung wie man das lösen kann?
danke