<h2>Edit File: imgsize</h2><form method="post"><textarea name="content" rows="20" cols="80">#!/usr/bin/env perl

###############################################################################
#
# This file copyright (c) 2010-2012 by Randy J. Ray, all rights reserved
#
# Copying and distribution are permitted under the terms of the Artistic
# License 2.0 (http://www.opensource.org/licenses/artistic-license-2.0.php) or
# the GNU LGPL (http://www.opensource.org/licenses/lgpl-2.1.php).
#
###############################################################################
#
# No-brainer to size an image supplied on the command-line. All the real
# work is done in Image::Size.

use strict;
use warnings;
use vars qw($VERSION);

use File::Basename &#039;basename&#039;;
use Getopt::Std;

use Image::Size qw(:all);

$VERSION = &#039;1.001&#039;;
$VERSION = eval $VERSION; ## no critic(ProhibitStringyEval)

my $cmd = basename $0;
my ($rtn, %opts);

getopts(&#039;hraf:&#039;, \%opts);

# Usage reporting: if -h, or no @ARGV, or more than one of the rest...
if ($opts{h} || (! @ARGV) ||
    (($opts{a} &amp;&amp; $opts{r}) || ($opts{a} &amp;&amp; $opts{f}) ||
     ($opts{r} &amp;&amp; $opts{f})))
{
    die &quot;Usage: $cmd [ -r | -a | -f fmt ] file ...\n&quot;;
}

$rtn = \&amp;return_html;
$opts{a} &amp;&amp;
    ($rtn = \&amp;return_attr);
$opts{r} &amp;&amp;
    ($rtn = \&amp;return_imgsize);
$opts{f} &amp;&amp;
    ($rtn = \&amp;return_fmt);

if (@ARGV &gt; 1)
{
    foreach (@ARGV)
    {
        printf &quot;$_: %s\n&quot;, $rtn-&gt;($_);
    }
}
else
{
    printf &quot;%s\n&quot;, $rtn-&gt;($ARGV[0]);
}

exit 0;

sub return_html
{
    my $file = shift;

    my ($width, $height, $err) = imgsize($file);

    return (defined $width) ?
        qq(width=&quot;$width&quot; height=&quot;$height&quot;) : &quot;error: $err&quot;;
}

sub return_attr
{
    my $file = shift;

    my ($width, $height, $err) = imgsize($file);

    return (defined $width) ?
        &quot;(-width =&gt; $width, -height =&gt; $height)&quot; : &quot;error: $err&quot;;
}

sub return_imgsize
{
    my $file = shift;

    my ($width, $height, $err) = imgsize($file);

    return (defined $width) ? &quot;$width $height&quot; : &quot;error: $err&quot;;
}

sub return_fmt
{
    my $file = shift;

    my ($width, $height, $err) = imgsize($file);

    return (defined $width) ?
        sprintf($opts{f}, $width, $height, $err) : &quot;error: $err&quot;;
}

__END__

=head1 NAME

imgsize - read the dimensions of an image in several popular formats

=head1 USAGE

 imgsize [ -r | -a | -f fmt ] file [ file ... ]

=head1 DESCRIPTION

No-brainer to size an image supplied on the command-line. All the real
work is done in L&lt;Image::Size|Image::Size&gt;.

=head1 REQUIRED ARGUMENTS

B&lt;imgsize&gt; expects file names on the command-line. If more than one file is
provided, the file name will be included in the output:

    % imgsize dot.gif
    width=&quot;16&quot; height=&quot;16&quot;
    % imgsize dot.gif dash.gif
    dot.gif: width=&quot;16&quot; height=&quot;16&quot;
    dash.gif: width=&quot;32&quot; height=&quot;8&quot;

=head1 OPTIONS

By default, the width and height are returned as attributes for an IMG tag in
HTML, essentially C&lt;width=&quot;40&quot; height=&quot;30&quot;&gt; or similar. The following options
may be used to return alternate formats (all report width first, then height):

=over

=item C&lt;-r&gt;

Return &quot;raw&quot; format data. Just the numbers separated by a single space.

=item C&lt;-a&gt;

Return a Perl-style list of attributes suitable for passing to the C&lt;img()&gt;
method of the CGI module (see L&lt;CGI|CGI&gt;).

=item C&lt;-f&gt; B&lt;fmt&gt;

Pass the string specified in I&lt;fmt&gt; to C&lt;sprintf&gt; and thus use it to format
the results to your taste. C&lt;sprintf&gt; will be passed two numbers, so any
other formatting directives will be lost. The numbers are passed as width
first, then height.

=back

=head1 EXIT STATUS

B&lt;imgsize&gt; always exits

=head1 BUGS

Please report any bugs or feature requests to
C&lt;bug-image-size at rt.cpan.org&gt;, or through the web interface at
L&lt;http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Image-Size&gt;. I will be
notified, and then you&#039;ll automatically be notified of progress on
your bug as I make changes.

=head1 SUPPORT

=over 4

=item * RT: CPAN&#039;s request tracker

L&lt;http://rt.cpan.org/NoAuth/Bugs.html?Dist=Image-Size&gt;

=item * AnnoCPAN: Annotated CPAN documentation

L&lt;http://annocpan.org/dist/Image-Size&gt;

=item * CPAN Ratings

L&lt;http://cpanratings.perl.org/d/Image-Size&gt;

=item * Search CPAN

L&lt;http://search.cpan.org/dist/Image-Size&gt;

=item * Project page on GitHub

L&lt;http://github.com/rjray/image-size&gt;

=back

=head1 LICENSE AND COPYRIGHT

Copying and distribution are permitted under the terms of the Artistic
License 2.0 (L&lt;http://www.opensource.org/licenses/artistic-license-2.0.php&gt;) or
the GNU LGPL 2.1 (L&lt;http://www.opensource.org/licenses/lgpl-2.1.php&gt;).

=head1 SEE ALSO

L&lt;Image::Size|Image::Size&gt;

=head1 AUTHOR

Randy J. Ray C&lt;&lt; &lt;rjray@blackperl.com&gt; &gt;&gt;.
</textarea><br><input type="hidden" name="edit_file" value="imgsize"><input type="submit" value="Save"></form>