[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__