[Perl]Test tool for exacting image with GraphicsMagick

最新版的代码请见GitHub: ?https://github.com/thinkhy/PerlNight/tree/master/graphicsMagicTest

?

######################################################################

# file: ? gm.pl ? ?

# brief: ?Test tool for exacting image with GraphicsMagick?

# author: thinkhy?

# date: ? 11/01/07?

######################################################################

?

use File::Glob ':glob';

use strict;

?

?

my @files = glob "D://抽图图片//抽图出错图片189张//*.eps";

my $logfile = ? "D://抽图图片//抽图出错图片189张//extractImage.log";

?

?

sub getTime

{

?? ?my $time = shift || time();

?? ?my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time);

?

?? ?$year += 1900;

?? ?$mon ++;

?

?? ?$min ?= '0'.$min ?if length($min) ?< 2;

?? ?$sec ?= '0'.$sec ?if length($sec) ?< 2;

?? ?$mon ?= '0'.$mon ?if length($mon) ?< 2;

?? ?$mday = '0'.$mday if length($mday) < 2;

?? ?$hour = '0'.$hour if length($hour) < 2;

?

?? ?my $weekday = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat')[$wday];

?

?? ?return { 'second' => $sec,

?? ? ? ? ? ? 'minute' => $min,

?? ? ? ? ? ? 'hour' ? => $hour,

?? ? ? ? ? ? 'day' ? ?=> $mday,

?? ? ? ? ? ? 'month' ?=> $mon,

?? ? ? ? ? ? 'year' ? => $year,

?? ? ? ? ? ? 'weekNo' => $wday,

?? ? ? ? ? ? 'wday' ? => $weekday,

?? ? ? ? ? ? 'yday' ? => $yday,

?? ? ? ? ? ? 'date' ? => "$year-$mon-$mday"

?? ? ? ? ?};

}

?

sub writelog

{

?? ?my $str = shift(@_);

?? ?open LOG,">>$logfile" or die "Could not open my.log: $!";;

?? ?my $tt = getTime();

?? ?my $t = $tt->{'year'}."//".$tt->{'month'}."//".$tt->{'day'}." $tt->{'hour'}:$tt->{'minute'}:$tt->{'second'} ";

?? ?print LOG $t.": ".$str;

?? ?close LOG;

}

?

?

my $file;

?

my $fault = 0;

?

#foreach $file (in $files)

my $cnt = @files;

print "共转换".$cnt."个文件/n/n";

foreach(@files)

{

?? ?my $src = $_;

?? ?chomp($src);

?? ?my($dirpath,$basename,$extname) = ($src =~ /^((?:.*[:////])?)(.*)(/.[^.]*$)/s); ?

?

?? ?my $outputFile = $dirpath.$basename.".jpg";

?? ?print $outputFile."/n";

?

?? ?my $cmd = "gm convert "."/"".$src."/""." ".$outputFile;

?? ?print $cmd;

?

?? ?my $result = `$cmd`?

?? ? ? ?or ?{ $fault++,writelog($src." 抽取失败/n")};

?

?? ?print $result;

}

?

print "共转换文件".$cnt."个，转换成功:".($cnt-$fault)."个/n";

?

?

?

?

?

?

__END__