5 use Shiar_Sheet::ImagePrep;
10 my $db = Shiar_Sheet::DB->connect;
11 my %filter = @ARGV ? (id => shift) : ();
12 my $query = $db->select(word => '*', \%filter);
14 while (my $row = $query->hash) {
15 my $image = Shiar_Sheet::ImagePrep->new("data/word/org/$row->{id}.jpg");
17 $image->convert("data/word/en/$row->{id}.jpg", $row->{thumb});
18 } or warn "$row->{id}: @{$@}";