aike

シャイなRubyistにできること - 松江Ruby会議02 - I am Cruby!

Google トレンド: アンドロイド, ねんどろいど

otsune:

shyouhei:

昔と違って今は{PostNotes}がテーマに入ってるから、wgetでページぶっこ抜いてきてawkかperlでちょろっと整形してgraphvizに突っ込むだけでこういう画像が簡単に。

zsh % export target="http://shyouhei.tumblr.com/post/339223403/tumblr-tumblr"; \
zsh -c 'wget -O - $target | tidy -i -w 0 -utf8 | ruby -n <(cat) | neato -Tpng -o tmp.png' <<'EOF'
BEGIN {
        require 'open-uri'
        require 'thread'
        $h = Hash.new
        $q = Queue.new
        $th = Thread.start {
                loop {
                        url = $q.deq
                        $th.exit unless url
                        file = File.basename url
                        open(url) {|f| open(file, 'wb') {|g| g.write f.read } } unless File.exist? file } }
        puts DATA.read }
END {
        $q << nil
        $th.join
        $h.to_a.reverse_each {|(k, v)| printf %'"%s" [ image = "%s" ];\n', k, v }
        puts "}" }
case $_
when %r'<a href="(.+?)" title=".+?"><img src="(http://\d+\.media\.tumblr\.com/avatar_(?:[0-9a-f]+)_16\.(?:gif|png)|http://assets\.tumblr\.com/images/default_avatar_16\.gif)" class="avatar" alt="" /></a> <span class="action"><a href="\1" class="tumblelog" title=".+?">.+?</a> (?:posted this|reblogged this from <a href="(.+?)" class="source_tumblelog" title=".+?">.+?</a>)'u
        url = $1
        from = $3
        avatar = $2.sub('_16.', '_64.')
        $q << avatar
        file = File.basename avatar
        $h[url] = file
        printf %'"%s" -> "%s";\n', from, url if from
end

__END__
digraph Tumblr {
   graph [ overlap = scale, splines = true ]
   node [ label = "", shape = "box" ]
   edge [ label = "" ]
EOF