my $directory="/Perl/BugFiles";
opendir(RDIR, $directory) or die "das Verzeichnis konnte nicht geöffnet werden";
my @fileList= grep(!/^\.?$/, readdir(RDIR));
close(RDIR);

foreach $file(@fileList)   {
   open (WRITEFILE, ">/Perl/ExtractedData/data.txt");
   open(READFILE, "</Perl/BugFiles/$file"); 
   while (my $row=<READFILE>) {
     if($row=~/<TITLE>(.+)-$/){
        my $bugnumber=$1;
     }
     if($row=~/<a href="pkgreport\.cgi\?submitter=.+">(.+)<\/a>/) {
        my $sender=$1;}
        
     if($row==~/<a href="pkgreport\.cgi\?submitter=.+">(.+)<\/a>/) {
       my $maintainer=$1;}
     elsif($row=~/<a href="pkgreport\.cgi\?maint=">(.+)<\/a>/)
      { $maintainer="unknown";}
     if($row =~/^Date:(.+)UTC\.$/){
        my $date=$1;}
     if($row=~/<pre class="message">Package:(.+)$/){
        my $package=$1;}
     elsif($row=~/<pre class="message">Package:"$/){
       $package="unknown";}
     if($row=~/^Severity:(.+)$/){
        my $severity=$1;}    }


     my @zeile=($bugnumber, $sender, $maintainer, $date, $package, $severity);

     print WRITEFILE $zeile;
   }