http://qs1969.pair.com?node_id=620605


in reply to HTML image resizing with Image::Info based on max height/width

Can someone see if this would work?
#!/usr/bin/perl use warnings; use strict; my $height = "1000"; my $width = "1234"; my $maxh = "600"; my $maxw = "800"; if ($height > $maxh || $width > $maxw) { my $hratio = $height / $maxh; my $wratio = $width / $maxw; my $newh = $height / $hratio; my $neww = $width / $hratio; print "Height is now $newh, Width is now $neww"; }


"Age is nothing more than an inaccurate number bestowed upon us at birth as just another means for others to judge and classify us"

sulfericacid