Help for this page

Select Code to Download

Select or download this

@DISKD = <inputfile>;
foreach $domain (@domainlist) {
...
     $sum += $data[$#data];
  }
}

Select or download this

# Calculate the sum for every domain.
@DISKD = <inputfile>;
...
foreach $domain (keys(%sum)) {
   delete $sum{$domain} unless $domainlist{$domain};
}