Träumen Vinyl von elektrischen Schafen?

»

require ‘open-uri’

$user = ‘r_ikeda’
$url_base = “http://img.f.hatena.ne.jp/images/fotolife/r/r_ikeda”
$begin_url = ‘http://f.hatena.ne.jp/r_ikeda/20091230212739’

def url_loop(url)
uri = URI(url)
body = uri.read

# オリジナル画像のリンクがあれば、そのURL
if %r|#{$url_base}/\d+/\d+_original.jpg| =~ body
puts $~
# なければ、通常画像のURL
elsif %r|#{$url_base}/\d+/\d+.jpg| =~ body
puts $~
end

# 次の画像へのリンクがある限り再帰する
if %r!next>! =~ body
url_loop(‘http://f.hatena.ne.jp’ + $1)
end
end

puts ‘—begin—’

url_loop($begin_url)

puts ‘—end—’

«