O2-toolと、nhocr、freetypeをインストール。
なんかO2-toolのインストールに失敗すると思ったら、O2-dtoolだったというオチ
まずfreetypeとO2-toolを普通にインストール。ただし、prefixを指定すること。(O2-toolのデフォルトが変)
./configure prefix=/usr/local
make
sudo make install
次に、nhocrインストール
$./configure prefix=/usr/local --with-O2tools=/usr/local
test/run-testでサンプル実行。
うーん、精度悪い。でもまぁ言葉としておかしいところを修正すればそれっぽくなるか。
ここまでやっといて自分の目的とは違うなぁってことに気づく。
画像中から文字っぽいところを探しだしてパターンマッチングでいいきがする、、、、。
簡単。get_tagのところは複数指定可
my $p = HTML::TokeParser->new(\$html_data);
if ($p->get_tag("title")) {
warn $p->get_trimmed_text;
}
はじめてのPath::Class
slurpがあるとはー。
my $dir = dir($dir_path);
my @file_paths;
$dir->recurse(
callback => sub {
my $entry = shift;
return if $entry->is_dir;
return if $entry !~ /\.html\z/;
push @file_paths, $entry->absolute;
}
);
for my $path (@$paths) {
my $html_data = Encode::decode('utf-8', $path->slurp);
}
has 'weight' => (
is => 'ro',
writer => '_set_weight',
default =>
sub { ( 'small', 'medium', 'large' )[ int( rand 3 ) ] },
required => 1,
clearer => 'clear_weigth',
predicate => 'has_weight',
);
package HasSize;
use Moose::Role;
requires '_build_size'; # Roleを使用するクラスに必要なメソッド
has 'size' => (
is => 'ro',
lazy => 1,
builder => '_build_size',
);
package Lilliputian;
use Moose;
with 'HasSize';
sub _build_size { return 'small' }
has 'size' => (
is => 'ro',
lazy_build => 1,
);
has 'size' => (
is => 'ro',
lazy => 1,
builder => '_build_size',
clearer => 'clear_size',
predicate => 'has_size',
);
has 'bigness' => (
is => 'ro',
init_arg => 'size',
);
こういう正統派は実践で使いやすそう好き
YAPC参加した、関わった人は是非ブログを書いてね！ほんと頼むよ！それ見たくて運営やってるようなもんだから！ #yapcasia
