#! /usr/bin/perl

my $data;
$file = "dkp40.html";
{
local $/;
open SLURP, $file or die "can't open $file: $!";
$data = <SLURP>;
close SLURP or die "cannot close $file: $!";
}

my %dkp_hash;

#maak rij afsluiters 1 character lang
$data =~ s/<\/tr>/#/g;

#select de dkp40 naam en dkp value en zet in een hash
while($data =~ s/amp;name=([^"]+)"[^#]+<td width="60" nowrap="nowrap" class="[^"]+">([^<]*)<\/td>[^#]*#//m){
      $dkp_hash{$1} = $2/1000; #lol gedeelt door 1000 haha

}

$data = '';
$file = "dkp20.html";
{
local $/;
open SLURP, $file or die "can't open $file: $!";
$data = <SLURP>;
close SLURP or die "cannot close $file: $!";
}

#maak rij afsluiters 1 character lang
$data =~ s/<\/tr>/#/g;

#select de dkp20 naam en dkp value en tel op bij dkp 40 value
while($data =~ s/amp;name=([^"]+)"[^#]+<td width="60" nowrap="nowrap" class="[^"]+">([^<]*)<\/td>[^#]*#//m){
     $dkp_hash{$1} += $2*33; # haha keer 33 LOL!
     print "INSERT BLA MUSQL $1 HAS NOW " .$dkp_hash{$1} . " DKP LOL!\n";
}