× [PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。 |
by dankogai - Sunday, September 05, 2010
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 |