- (local $munged = $file_line) =~ s/^[^ ]* *[^ ]* *[^ ]* *[^ ]* *([0-9]+).*$/\1/;
-# print "munge=$munged\n";
- $lengths += $munged;
+ if ($file_line =~ /$pattern/) {
+ (local $munged = $file_line) =~ s/$pattern/\1/;
+ #print "munge=$munged\n";
+ if ($munged =~ /K$/) {
+ chop $munged;
+ $munged *= 1024.0;
+ #print "K munged is now $munged\n";
+ }
+ if ($munged =~ /M$/) {
+ chop $munged;
+ $munged *= 1024.0 * 1024.0;
+ #print "M munged is now $munged\n";
+ }
+ if ($munged =~ /G$/) {
+ chop $munged;
+ $munged *= 1024.0 * 1024.0 * 1024.0;
+ #print "G munged is now $munged\n";
+ }
+ $lengths += $munged;
+ }