#!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 $Zahl; 
#Die Zahl die erhöht werden soll, sofern in der
#Datei Mayer@München.txt der Namen Mayer vorhanden ist(also im Inhalt)
#kann sein das eventuell auch /Mayer dran steht.
my @inhalt;
#ist wo für jede Datei deren Inhalt abgespeichert wird
for (my $s=00;$s<=$test;$s++) 
{
open(LESEN,"<","C://Freunde/$Verzeichnis[$s]");
@inhalt=<LESEN>;

##########################################
# Hier bräuchte ich jetzt etwas was jede #
# Zeile nach $Namensliste[$s] durchsucht #
# Das müsste sowohl mayer, Mayer aber    #
# auch /mayer /Mayer und .mayer .Mayer   #
# erkennen aber maximal die Zahl nur um  #
# eins erhöhen auch wenn es ein paar mal #
# vorkommt, also i-wie das wenn mehr wie #
# 2 gefunden trotzdem nur $Zahl+1 ist    #
# und nicht jedesmal wenn es was findet  #
##########################################

close(LESEN);}