tools/sumFileSize.pl

   1 # Perl script to sum up the size of files.
   2
   3 $sum = 0;
   4 $entries = 0;
   5
   6 while (<>)
   7 {
   8         if (/^TF.+size=([0-9]+)\]$/)
   9         {
  10                 $sum += $1;
  11                 $entries++;
  12         }
  13 }
  14
  15 print "Sum of size lines: $sum (from $entries contributing entries)\n";