File: imgdump

package info (click to toggle)
libimage-info-perl 1.42-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, bullseye, sid
  • size: 840 kB
  • sloc: perl: 3,354; makefile: 12
file content (13 lines) | stat: -rwxr-xr-x 178 bytes parent folder | download | duplicates (5)
1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl -w

use lib "./lib";

use strict;
use Image::Info qw(image_info);
use Data::Dumper;

while (@ARGV) {
    print Data::Dumper::Dumper(image_info(shift)), "\n";
}