mk_byapp_zerosession_report

#!/usr/bin/perl

open (IN, "<output_lines_prod_apps.csv") or die;
while (<IN>) {
  ($appid,$d,$n) = split(/,/);
  $outputlines{$appid} = $n;
}
open (IN, "<zero_sessions_prod_apps.csv") or die;
while (<IN>) {
  ($appid,$d,$n) = split(/,/);
  $zerosessions{$appid} = $n;
}

foreach my $appid (sort keys %zerosessions) {
  my $o = $outputlines{$appid};
  my $z = $zerosessions{$appid};
  $ratio = ($z / (($z + $o) || 0.00001)) * 100.0;

  printf("%06.2f   appid: %05d    zerosessions: %10d    ok: %10d    ratio%%: %6.2f\n",
        $ratio, $appid, $z, $o, $ratio);
}