!/usr/bin/perl -w

open(AUF1,  "<output.0.dat");
@lines1=<AUF1>;
close(AUF1);

open(AUF2, "<output.1.dat");
@lines2=<AUF2>;
close(AUF2);

open(AUF3, ">new.output.dat");

foreach $line1 (@lines1)
{
  #RegEx auf 1. Zeile und speichern von Zaehler in $line_count und URL in $line_url

 $line1 =~ /(\d+)\s:\s([a-zA-Z0-9\.\-]+)/g;

  $line1_count = $1;
  $line1_url = $2;

        foreach $line2 (@lines2)
        {

          $line2 =~ /(\d+)\s:\s([a-zA-Z0-9\.\-]+)/g;

                 $line2_count = $1;
                 $line2_url = $2;

                if ($line1_url eq $line2_url)
                {
                        $new_count=($line1_count+$line2_count);
                        print AUF3 "$new_count : $line1_url\n";
                }
        }

}
close(AUF3);