会社が白金台に引っ越しました。外苑前と比べると人がすごく少なかったり、オフィスの隣には都内有数の森があったり、窓からその森が見えたり、僕がその窓際に座っていたり、座って作業していると半径10mに人が1人もいなかったり(前のオフィスは30人くらいいた)して、かなりいい感じです。
そんなカッチョいいオフィスで社会と会社と己のマニーのために働いている僕ですが、先日社長が"カッチョいいディスプレイを会社のフロントに置くから、そこでなんかやってよ"などとおっしゃってまして、ちょっとしたデモを作ることにしました。
何を書いたかというと、食べログの駅名検索で取得できるレストランをランダムでGoogle Earth上に表示するRuby scriptです。WindowsだとCOM APIとか言うのがあっていろいろやんちゃできるみたいなんですが、うちの社長は最近Macにこってるので無理です。apple script経由でGoogle Earth.appに動的にkmlをロードさせる感じで書きます。
earth.scpt:
# osascript ./earth.scpt 'Macintosh HD:Users:po:Desktop:doc.kml'
on run argv
set kml_path to item 1 of argv
tell application "/Applications/Google Earth.app"
#tell application "/Applications/Safari.app"
activate
open file kml_path
end tell
end run
で、rubyではtabelog apiを駅名で叩いて取得した情報をkmlに変換し、10秒ごとにランダムピックアップ後保存してearth.scptを叩いています
#!/usr/bin/ruby -Ku
require 'open-uri'
require 'cgi'
require 'rexml/document'
require 'rubygems'
require 'active_support'
require 'mechanize'
station = '白金台'
kml_path = '/Users/po/test/earth/tabelog.kml'
kml_input_path = "Macintosh HD#{kml_path.gsub(/\//, ':')}"
default_placemark_path = './placemarkDefault.yml'
# kmlのdefault値読み込み
default_placemark = YAML.load_file(default_placemark_path)
class Hash
# kml化
def to_kml
self.to_xml(:root => 'Placemark').sub(/\n/, %!\n<kml xmlns="http://earth.google.com/kml/2.0">\n!).sub(/<\/Placemark>\n/, %!</Placemark>\n</kml>\n!)
end
# うーんなんかまずそう まいっか
def dmerge(other)
me = self.dup
other.each do |k, v|
if v.is_a?(Hash)
me[k] = me[k].dmerge(v)
else
me[k] = v
end
end
me
end
end
def hash_by_item(e)
_r = {}
trans = {
:name => 'RestaurantName',
:category => 'Category',
:score => 'TotalScore',
:latitude => 'Latitude',
:longitude => 'Longitude',
:url => 'TabelogUrl'
}
trans.each do |to, from|
_r[to] = e.elements[from].text
end
r = {
:name => _r[:name],
:description => %|<a href="#{_r[:url]}">#{_r[:name]}</a> : #{_r[:category]}, (#{_r[:score]})|,
:LookAt => {
:latitude => _r[:latitude],
:longitude => _r[:longitude],
},
:Point => {
:coordinates => "#{_r[:longitude]},#{_r[:latitude]},20"
}
}
end
kmls = []
page = 1
items_per_page = 20
max_page = 1
while(page <= max_page) do
puts url = "http://api.tabelog.com/Ver1.1/RestaurantSearch/?ResultSet=large&Station=#{CGI.escape(station)}&PageNum=#{page}"
xml = REXML::Document.new open(url).read
max_page = (xml.elements['//NumOfResult'].text.to_f / items_per_page).ceil
REXML::XPath.match(xml, '//Item').each do |e|
kmls << default_placemark.dmerge(hash_by_item(e)).to_kml
end
page += 1
sleep 5
end
while(true) do
File.open(kml_path, "wb"){|f| f.write kmls[rand(kmls.size)]}
`osascript ./earth.scpt '#{kml_input_path}'`
sleep 10
end
ActiveSupportのHash.to_xmlがいい感じだったので使いました。あとkmlのデフォルト値を外部にymlで持ってます。
placemarkDefault.yml
---
:Point:
:extrude: "1"
:altitudeMode: relativeToGround
:coordinates: 0.0,0.0,0
:visibility: "1"
:name: ""
:Style:
:IconStyle:
:Icon:
:h: "32"
:w: "32"
:y: "160"
:x: "96"
:href: root://icons/palette-3.png
:description: ""
:LookAt:
:latitude: "0.0"
:tilt: "60.0"
:longitude: "0.0"
:range: "300.0"
これと取得した情報をdeep_merge?する感じ。
可視化としてはお店/料理の画像が表示されてなかったりしてかなりダメですけれど、やっときたかったのはkmlの生成とそのロードなので、ま良いかなと。あとあんまりkml仕様書真面目に読んでない。]]>
インスパイア元：
なんかジャンル？言葉でエロ小説ガイドライン
プログラミングの知識ゼロの自分が、はてブでチラ見した知識だけでプログラマー同士の会話を妄想してみる。]]>
]]>
#!/usr/bin/perl
use strict;
use warnings;
use HTTP::Proxy;
use HTTP::Proxy::BodyFilter::lines;
use Image::ObjectDetect;
use LWP::Simple;
our $cascade = "cascade_oppai.xml";
our $detector = Image::ObjectDetect->new($cascade);
our $alt = get('http://media.tumblr.com/MEM3qlmGxbwrympfg4uJRRKA_400.jpg');
my $proxy = HTTP::Proxy->new(port => 8088);
$proxy->push_filter(
response => HTTP::Proxy::BodyFilter::lines->new("EOF"),
response => Oppaifilter->new,
mime => 'image/jpeg'
);
$proxy->start;
{
package Oppaifilter;
use File::Temp qw(tempfile);
use base qw(HTTP::Proxy::BodyFilter);
sub filter{
my ($self, $dataref, $message, $protocol, $buffer) = @_;
return unless defined($$dataref) && $$dataref ne '';
eval {
my ($fh, $filename) = tempfile();
print $fh $$dataref;
close($fh);
my @oppais = $detector->detect($filename);
if(@oppais){
$$dataref = $alt;
}
};
if($@){
warn $@;
}
}
}
HTTP::Proxy使ってfilterで検出されたら適当な画像に置換です。'transfer-encoding' => 'chunked'にドはまりしました。HTTPぜんぜんわかってない。クライアント側で動作させるのは'おっぱいみれません＞＜'で楽しいけど、false positive多くてちょっとギャグに近い感じ。年齢認証のない画像投稿サービスとかで一次フィルタリングさせる用途などには有用ではないでしょうか。
おっぱいみれなくなるのはヤですが、こういう学習データとか公開しちゃうのはすごく有意義だと思います。yusukebe++
参考:
Oppai-Detect 2 @ CodereposCon#1Comments
nDiki: HTTP::Proxy - Twitter ベイジアンフィルタプロキシ (2007-12-29)
HTTP::Proxyの使い方 : blog.nomadscafe.jp
]]>
へんなはてブユーザは設定で非表示にすればいいとおもうよというつぶやきに対し、"コメント一覧ページで１クリックでこれを設定できるようにすりゃ、いろいろな問題が解決しそうだな。"と発言してる人がいたので、書いてみた。
よく出来てるなあ。
(追記 0:21)
すみませんすみません！この件、"普通に検索できた。君のPCから実際DOSやっちゃってるんじゃ"ていう主旨のご指摘がありました。ちと調べます。
koyachiさん感謝です。
(追記2 0:53)
色々なパターンでみんなで検証したところ、youpyさんがminimumなパターンを発見してくれました。
@negipo 表示件数を100件にする + 任意のinurl を指定 + * で再現しました
僕の環境だと+検索結果ページから上記の内容をリクエストする必要がありました。検索窓とかGoogle topとかだと普通に通る。
つまり例えば"inurl:polog.org *"とかを、検索結果ページから検索すると同じ現象が起きます。
Google検索におけるアスタリスクの扱いはこんな感じ。多分バグですね。
お騒がせしました。皆さん感謝です。]]>