#!C:\\Perl\bin\perl.exe
use strict;
use warnings;

my $test=0; #mit der Zahl wird die Anzahl der Dateien gelesen
my @Verzeichnis;
opendir(Freunde, 'C://Freunde') or die "Konnte Ordner nicht öffnen ($!)\n";
while(my $Filename=readdir(Freunde))
{next if($Filename eq '.' or $Filename eq '..');
if(-f 'C://Freunde/'.$Filename)
{$test=$test+1;
push(@Verzeichnis,$Filename);
}
}
closedir(Freunde);

my @Namensliste;
for my $Filename(@Verzeichnis)
{
$Filename=~/^(.+?)@/s;
push(@Namensliste,$1);
}


open(SPEICHERN,'>','C://Verzeichnis.txt') or die "Konnte Verzeichnis nicht Speichern ($!)\n";
print SPEICHERN join("\n",@Verzeichnis);
close(SPEICHERN);

open(SPEICHERN2,'>','C://Namensliste.txt') or die "Konnte Titelliste nicht Speichern ($!)\n";
print SPEICHERN2 join("\n",@Namensliste);
close(SPEICHERN2);

#des darüber stehende ab hier will ich nicht mehr verändern, des funzt ja alles dank hilfe =)
print "$test\n$Verzeichnis[03]\n$Namensliste[03]\n";
#übereinstimmung von verz-->namen und wieviele .txt es gibt wird angezeigt

my @inhalt;
my $Zahl;
for (my $s=00;$s<=$test;$s++)
#hier sage ich er soll alle Dateien der Reihe nach öffnen bis eben die letze Datei erledigt ist
#wäre das dann nicht <=$test-1 statt <=$test ?
{
#für was müsste ich hier $Dateiname einsetzen? bei mir finde ich diese Variabel nicht
#müsste ich in meinem Fall dann $Verzeichnis[$s] einsetzen?
for my $Dateiname (@Verzeichnis)
open(LESEN,"<","C://Freunde/$Verzeichnis[$s]");
my @inhalt=<LESEN>;
my $Data=join(' ', @inhalt); #hier wird inhalt in eine Zeile gestopft 
#also slurpen soweit ich verstanden habe
for my $Name (@Namensliste[$s])
{
#falls Name in Datei vorhanden, egal ob/mayer oder Mayer
#dann wird die Zahl um eins erhöht, falls es 2x vorkommt
#trotzdem nur einmal da if Bedinung 1x erfüllt und es
#dann gleich weiter geht
if($Data=~/$Name/i)
{
$Zahl++;";
}
} 
close(LESEN);
}
print "$Zahl\$test\n";
<stdin>
#hier lasse ich mir eben ausgeben in wievielen
#Textdateien der Name wo im Namen der Datei stand
#auch im Dateiinhalt steht und wieviele Dateien
#es insgesamt waren.

#!C:\\Perl\bin\perl.exe
use strict;
use warnings;

my $test=0; #mit der Zahl wird die Anzahl der Dateien gelesen
my @Verzeichnis;
opendir(Freunde, 'C://Freunde') or die "Konnte Ordner nicht öffnen ($!)\n";
while(my $Filename=readdir(Freunde))
{
 next if($Filename eq '.' or $Filename eq '..');
 if(-f 'C://Freunde/'.$Filename)
 {
  $test=$test+1;
  push(@Verzeichnis,$Filename);
 }
}
closedir(Freunde);

my @Namensliste;
for my $Filename(@Verzeichnis)
{
 $Filename=~/^(.+?)@/s;
 push(@Namensliste,$1);
}

 
open(SPEICHERN,'>','C://Verzeichnis.txt') or die "Konnte Verzeichnis nicht Speichern ($!)\n";
print SPEICHERN join("\n",@Verzeichnis);
close(SPEICHERN);
 
open(SPEICHERN2,'>','C://Namensliste.txt') or die "Konnte Titelliste nicht Speichern ($!)\n";
print SPEICHERN2 join("\n",@Namensliste);
close(SPEICHERN2);
 
#des darüber stehende ab hier will ich nicht mehr verändern, des funzt ja alles dank hilfe =)
print "$test\n$Verzeichnis[03]\n$Namensliste[03]\n";
#übereinstimmung von verz-->namen und wieviele .txt es gibt wird angezeigt

my @inhalt;
my $Zahl;
for (my $s=00;$s<=$test;$s++)
#hier sage ich er soll alle Dateien der Reihe nach öffnen bis eben die letze Datei erledigt ist
#wäre das dann nicht <=$test-1 statt <=$test ?
{
 #für was müsste ich hier $Dateiname einsetzen? bei mir finde ich diese Variabel nicht
 #müsste ich in meinem Fall dann $Verzeichnis[$s] einsetzen?
# for my $Dateiname (@Verzeichnis) # < nicht nötig in deinem Code. keine Fehlermeldung?
 open(LESEN,"<","C://Freunde/$Verzeichnis[$s]"); 
 my @inhalt=<LESEN>;
 my $Data=join(' ', @inhalt); #hier wird inhalt in eine Zeile gestopft 
 #also slurpen soweit ich verstanden habe
 # for my $Name (@Namensliste[$s])# < geht so nicht. Keine Fehlermeldung?
 for my $Name (@Namensliste) # Gehe die gesamte Namensliste durch
 {
  #falls Name in Datei vorhanden, egal ob/mayer oder Mayer
  #dann wird die Zahl um eins erhöht, falls es 2x vorkommt
  #trotzdem nur einmal da if Bedinung 1x erfüllt und es
  #dann gleich weiter geht
  if($Data=~/$Name/i)
  {
   $Zahl++;";
  }
 } 
 close(LESEN);
}
print "$Zahl\$test\n";
<stdin>
#hier lasse ich mir eben ausgeben in wievielen
#Textdateien der Name wo im Namen der Datei stand
#auch im Dateiinhalt steht und wieviele Dateien
#es insgesamt waren.

for (my $s=00;$s<=$test;$s++) #Zeile41
#hier sage ich er soll alle Dateien der Reihe nach öffnen bis eben die letze Datei erledigt ist
#wäre das dann nicht <=$test-1 statt <=$test ?
{
#für was müsste ich hier $Dateiname einsetzen? bei mir finde ich diese Variabel nicht
#müsste ich in meinem Fall dann $Verzeichnis[$s] einsetzen?
for my $Dateiname (@Verzeichnis) #Zeile47


open (LESEN,"<C:/Freunde/my $Verzeichnis[$s]");     #Zeile50
my @inhalt=<LESEN>;    #Zeile51
my $Data=join(' ', @inhalt);      #Zeile52
#hier wird inhalt in eine Zeile gestopft 
#also slurpen soweit ich verstanden habe
for my $Name ($Namensliste[$s])      #Zeile55

{
#falls Name in Datei vorhanden, egal ob/mayer oder Mayer
#dann wird die Zahl um eins erhöht, falls es 2x vorkommt
#trotzdem nur einmal da if Bedinung 1x erfüllt und es
#dann gleich weiter geht
if($Data=~/$Name/i)      #Zeile62
{
my $Zahl++;     #Zeile64
}

}
close(LESEN)      #Zeile68
}

print my $Zahl;     #Zeile71
print my $test;     #Zeile72
<stdin>
#hier lasse ich mir eben ausgeben in wievielen
#Textdateien der Name wo im Namen der Datei stand
#auch im Dateiinhalt steht und wieviele Dateien
#es insgesamt waren.