use strict;
use Image::Seek qw(loaddb add_image query_id savedb);
use Storable qw/nfreeze thaw/;
use CGI;
use Template;
my $q = CGI->new;
my $folder = '画像ファイルのあるルート/path/';
my $namehash = {};
my $id = $q->param('id') || '';
my $namedb = 't/imgname.db';
my $imgdb = 't/imgseek.db';
my @results;
open my $fh, '<', $namedb || die;
my $fzdata = do { local $/; <$fh> };
close $fh;
$namehash = thaw($fzdata);
if ( $id ) {
loaddb($imgdb);
@results = query_id($id);
for (@results) {
my $uri = $namehash->{_id}->{$_->[0]};
$uri =~ s!$folder!http://www.drk7.jp/MT/drk/images/!;
$_->[2] = $uri;
}
}
my $orgimg = $namehash->{_id}->{$id} || '';
$orgimg =~ s!$folder!http://www.drk7.jp/MT/drk/images/!;
my $vars = {
orgimg => $orgimg,
maxid => $namehash->{_maxid} || 1,
inputid=> $q->param('id') || '',
img => [@results],
};
print $q->header( -type => 'text/html', -charset=>'utf8', );
my $tt = Template->new;
$tt->process(\*DATA, $vars);
1;
__DATA__
画像類似検索 demo
検索もとの id （ 1 - [% maxid %] ）を指定して下さい
[% IF inputid %]
元画像
類似画像
[% FOREACH i=img %]
類似度：[% i.1 %]
[% i.0 %] : [% i.2 %]
[% END %]
[% END %]