!/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);

#!/usr/bin/perl

use strict;
use warnings;

my $file1 = '/pfad/datei1.txt';
my $file2 = '/pfad/dat2.txt';
my $file3 = '/pfad/dat3.txt';

my %hash;

for my $file( $file1, $file2 ){
    open my $in, '<', $file or die $!;
    while( my $line = <$in> ){
        chomp $line;
        my ($count,$url) = split /\s*:\s*/, $line;
        $hash{$url} += $count;
    }
    close $in;
}

open my $out, '>', $file3 or die $!;
for my $key ( keys %hash ){
    print $out $hash{$key},": ", $key, "\n" or die $!;
}
close $out or die $!;