view release on metacpan or  search on metacpan

bin/makedict  view on Meta::CPAN

#!/usr/bin/perl
# $Id: makedict,v 1.3 2007/08/29 12:03:23 dk Exp $

use strict;
use subs qw(log);

BEGIN { local @ARGV; require Prima; }

use Prima qw(Application ImageViewer Label InputLine Buttons MsgBox);
use Getopt::Long;
use IPA;
use IPA::Geometry qw(rotate90);
use OCR::Naive qw(:all);

my ( 
	%options, $rename_db,
	$i, $display,

bin/ocr  view on Meta::CPAN

#!/usr/bin/perl
# $Id: ocr,v 1.6 2009/02/10 08:04:55 dk Exp $

use strict;
use subs qw(log);

BEGIN { 
	local @ARGV; 
	require Prima::noX11; 
	require Prima; 
}

use Getopt::Long;
use OCR::Naive qw(:all);

my ( 
	%options,
	$db, @sorted_glyphs,