|
× [PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。 |
 |
|
by dankogai - 2010年9月5日
usr/bin/env perl use strict; use warnings; use Imager; use autodie; my $img = Imager->new(); $img->read( file => shift ) or die $img->errstr; $img->write( data => \my $pnm, type => 'pnm' ) or die $img->errstr; my $hdr = do { $pnm ... PR |
|