5 use Shiar_Sheet::ImagePrep;
11 my $db = Shiar_Sheet::DB->connect;
12 my %filter = @ARGV ? (id => shift) : ();
13 my $query = $db->select(word => '*', \%filter);
15 while (my $row = $query->hash) {
16 my $image = Shiar_Sheet::ImagePrep->new("data/word/org/$row->{id}.jpg");
18 my $meta = eval { JSON->new->decode($row->{image} // '{}') }
19 or die ["Invalid JSON metadata in image column.", $@];
20 $image->generate("data/word/32/$row->{id}.jpg", $meta->{convert});
21 } or warn "$row->{id}: @{$@}";