✖
✖
写真にもっとメタデータを書いておかないといけないんだろうけど、面倒くさくて無理なんだよなあ…… なんか簡単にできればいいのかな
✖
「餡の雲」で検索するといつのまにやら知らない人が出てくるようになっていて、なんか嫌な感じだし、それなりに愛着はあるけど、それほどこだわりもないしサイト名を変えたい…… 。でもいい名前が思いつかない。
✖
いろいろやって、ページのロード速度を改善してみた。
✖
サイト名を「氾濫原」に変えた。他人にとってあまり意味がない言葉で、かつ自分にとってある程度意味がある言葉、というのにしたくていろいろ悩んだ。
microdata を適当に抜き出す Perl スクリプト
あんまり仕様書読みこめてないけど書くだけ書いてみた。CPAN にあるのは依存がひどいし、別に HTML::Parser 的なもの一個の依存で JSON 返すようなのでいいじゃんと思った。やる気があればテスト書いて CPAN にあげたりしたいけど、あんまりやる気わかない。
結局 HTML::Parser ではなく HTML::TreeBuilder::LibXML にしたけど、普通に入るモジュールなのでよさそう。
レポジトリをつくってテストを書いた。
https://github.com/cho45/HTML-Microdata/blob/master/lib/HTML/Microdata.pm
use v5.12;
use LWP::Simple qw($ua);
use URI;
use JSON::XS;
my $uri = URI->new('http://www.lowreal.net/');
my $res = $ua->get($uri);
my $microdata = HTML::Microdata->parse($res->content);
say encode_json $microdata->items->{cho45}->{properties};
package HTML::Microdata;
use HTML::TreeBuilder::LibXML;
use Scalar::Util qw(refaddr);
use Hash::MultiValue;
sub new {
my ($class, $args) = @_;
bless {
items => {},
}, $class;
}
sub parse {
my ($class, $content, $opts) = @_;
my $self = $class->new($opts);
$self->_parse($content);
$self
}
sub items {
my ($self) = @_;
$self->{items};
}
sub _parse {
my ($self, $content) = @_;
my $tree = HTML::TreeBuilder::LibXML->new_from_content($content);
my $scopes = $tree->findnodes('//*[@itemscope]');
my $number = 0;
for my $scope (@$scopes) {
my $type = $scope->attr('itemtype');
my $id = $scope->attr('itemid');
unless ($scope->id) {
$scope->id($number++);
}
if (my $refs = $scope->attr('itemref')) {
my $ids = [ split /\s+/, $refs ];
for my $id (@$ids) {
my $props = $tree->findnodes('//*[\@id="' . $id . '"]//*[\@itemprop]');
for my $prop (@$props) {
my $name = $prop->attr('itemprop');
my $value = $self->extract_value($prop);
$self->{items}->{ $scope->id }->add($name => $value);
}
}
}
$self->{items}->{ $scope->id } = {
($id ? (id => $id) : ()),
type => $type,
properties => Hash::MultiValue->new,
};
}
my $props = $tree->findnodes('//*[@itemprop]');
for my $prop (@$props) {
my $name = $prop->attr('itemprop');
my $value = $self->extract_value($prop);
my $scope = $prop->findnodes('./ancestor::*[@itemscope]')->[-1];
$self->{items}->{ $scope->id }->{properties}->add($name => $value);
}
for my $key (keys %{ $self->{items} }) {
my $item = $self->{items}->{$key};
$item->{properties} = $item->{properties}->multi;
}
}
sub extract_value {
my ($self, $prop) = @_;
my $value;
if (defined $prop->attr('itemscope')) {
$value = $self->{items}->{ $prop->id };
} elsif ($prop->tag eq 'meta') {
$value = $prop->attr('content');
} elsif ($prop->tag =~ m{^audio|embed|iframe|img|source|video$}) {
$value = $prop->attr('src');
} elsif ($prop->tag =~ m{^a|area|link$}) {
$value = $prop->attr('href');
} elsif ($prop->tag eq 'object') {
$value = $prop->attr('data');
} elsif ($prop->tag eq 'time' && $prop->attr('datetime')) {
$value = $prop->attr('datetime');
} else {
$value = $prop->findvalue('normalize-space(.)');
}
$value;
}
✖
✖
漠然と、いろいろ上手くいってないみたいな感じがしている。よくある。
✖
自分は自分の判断を正しいと思っているが (あたりまえだ)、一方メタな視点で自分を信じていない自分もいるのだ。
✖
✖
他人に対する信用というものが実感としてほとんどない割には、微妙なところで「このぐらいなら信じても良いだろう」と思い、その度にことごとく裏切られるので、余計他人が信用できなくなるという悪循環がある。これは単に自分が「信用する」という判断のしかたが間違っていることに他ならないんだけど、どうしたらいいのか全く分からない。
全く信用しないで生きていこう、というのは社会的には無理だ。どこかで線をひいて「ここまでは信用しても良いだろう」というのを自分の中で他人一人一人について見つけなければならない。例えば「技術的には信用できるが、人間的には信用できない」というのはありえるし「センスは信用できるが、技術的には信用ができない」とか「成果物は信用できるけど、言動は良く変わって信用できない」とか、いろいろある。
人を見る目というのは、誰かに頼ることのできないもの (だってその誰かを信用できるかなんてわからないからだ) で、自分でどうにかするしかないのだけれども、それを鍛える方法を発見することができない。
✖
✖