Ich habs jetzt hinbekommen, so gehts :
$scantype = ($FORM{'type'} eq "all") ? '.' : '.'.$FORM{'type'};
foreach $new_line (@filename) {
next if ($new_line eq '.' || $new_line eq '..');
next if ($new_line !~ /.*($scantype)$/ );
next if ($new_line =~ /^.ht/ );
foreach $test_line (@lines) {
($file_id,$stub) = split(/|/,$test_line,2);
if ($new_line eq $file_id) {
$found =1;
last;
}
$found=0;
}
anstatt !~ mußte =~ geschrieben werden.
Vielen Dank an ALLE die geholfen haben !
Gruß
meggamoon