Changeset 15177 for gsdl/trunk/perllib/plugins/ImagePlug.pm

Timestamp:

2008-04-09T17:17:53+12:00 (16 years ago)

Author:

ak19

Message:

On Linux, image file sizes can be given in the form 3.4e+02kb (3.4 x 1 x 10^{2=340kb). The modifications to ImagePlug.pm now match this and store the size when given in this form rather than the size defaulting to the unknown string.}

File:

• gsdl/trunk/perllib/plugins/ImagePlug.pm (modified) (1 diff)

gsdl/trunk/perllib/plugins/ImagePlug.pm

@@ -332 +332 @@
     }
     }
-
+    elsif ($result =~ m/^.* (([0-9]+)(\.([0-9]+))?e\+([0-9]+))(kb|b)?/) {
+    # Deals with file sizes on Linux of type "3.4e+02kb" where e+02 is 1*10^2.
+    # 3.4e+02 therefore evaluates to 3.4 x 1 x 10^2 = 340kb.
+    # Programming languages including Perl know how that 3.4e+02 is a number,
+    # so we don't need to do any calculations.
+    $size = $1*1; # turn the string into a number by multiplying it by 1
+           #if we did $size = $1; $size would be merely the string "3.4e+02"
+    $size = int($size); # truncate size
+    }
     print $outhandle "file: $image:\t $type, $width, $height, $size\n" 
     if ($verbosity > 2);