Replace Image::Size with Image::Magick for performance

toadchild · Dec 22, 2018 · aa58364 · aa58364
1 parent 55565e3
commit aa58364
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/index.pl b/index.pl
@@ -5,7 +5,7 @@
 use CGI qw/:standard/;
 use PDF::Create;
 use Data::Dumper;
-use Image::Size;
+use Image::Magick;
 
 my $annotations;
 read_annotations();
@@ -17,6 +17,13 @@
     print_input();
 }
 
+sub imgsize {
+    my ($img_name) = @_;
+    my $img = new Image::Magick;
+    $img->Read($img_name);
+    return $img->Get("columns", "rows");
+}
+
 sub print_input{
     print <<EOF;
 Content-Type: text/html; charset=utf-8