AIファイルからPerlでサムネールを取り出す スポンサードリンク Tweet AIファイルからサムネールを取り出す試み【成功】 - なにする?DTP+WEB [d.hatena.ne.jp] を、Perlでやってみた。 1.そのまま移植した。 Filename: thumbnail.pl use strict; use warnings; use File::Basename; use MIME::Base64; if (-e $ARGV[0] ) { my ( $fname, $dir, $ext ) = fileparse( $ARGV[0], qw(¥..*) ); open my $fh, '<', $ARGV[0] or die $!; my $xmpmeta; while ( <$fh> ) { $xmpmeta .= $_; last if m|</x:xmpmeta>|;