Help for this page

Select Code to Download


  1. or download this
         use Image::Size;
     for(@files) {
...
       my ($x, $y) = imgsize($_);
       print "$_:  x=$x, y=$y<BR>\n";
     }
  2. or download this
         use Image::Size;
     for(@files) {
...
       my ($x, $y) = imgsize($_);
       print "$_:  x=$x, y=$y<BR>\n";
     }
  3. or download this
         use Image::Size;
     for(@files) {
...
       my ($x, $y) = imgsize($_);
       print "$_:  x=$x, y=$y<BR>\n";
     }
  4. or download this
         opendir(DIR,"../images/dir/name");
     @files = grep -f && /\.jpe?g$/i, readdir(DIR);
...
       my ($x, $y) = imgsize($_);
       print "$_:  x=$x, y=$y<BR>\n";
     }