hallo!
Doch habe ich; doch ich wollte es noch mal schwarz auf weiss haben ;-)

ich hätte dann noch etwas...
es geht um verschachtelte foreach-schleifen:
in den text-files stehen ein haufen zeilen...nach dem muster
C.text:
XX bla
XX bla
1
2
3
EndOfFile;
D.txt. ist, sagen wir einmal, komplett ident.



# !C:\Perl
use strict;
use warnings;


my $C = open(DREI,"C.txt");
my $D = open(VIER,"D.txt");
my $EE = open(SIEBEN,">E.txt");

foreach my $nachricht1 (<DREI>){
if ($nachricht1=~/EndOfFile/){
print SIEBEN "$nachricht1\n";
exit ();
}
elsif ($nachricht1=~ /XX/){
print SIEBEN "$nachricht1";
next;
}
else{
my $D = open(VIER,"D.txt");
my $nachricht2;
foreach my $nachricht2 (<VIER>){
if ($nachricht2=~/EndOfFile/){
last;
}
elsif ($nachricht2=~ /XX/){
next;
}
else{
print "$nachricht2\n";
print SIEBEN "$nachricht2";
last;
}
}
close (VIER);
next;
}
next;
}
print "check2\n";

close(SIEBEN);