2002-04-06
_ tdiary theme ranking
(独自調べ)
気になったので勝手に調べました。（笑）
つーか自分の作ったCSSって使われてんのかな?というのがあったんで。結果はでしたが、でも満足度も高いようなのででヨカッタ
その結果、デフォルトでそのまま使ってる方が多いみたいですね。
２位以下はシンプルなテーマが多かったようです。
ちなみに調査対象はtDiary.net内とnga.jp内のレンタル日記のみです。
なんでかというとエラー処理のやり方がようわからんかったから(汗
最初は全部調べようと思ってたんだけどエラー(サバエラとか接続タイムアウトとか)
がでないレンタルのとこだけになっちまった。
そんな初心者なスクリプトは下記。
#!/usr/bin/ruby
#
# theme_rank.rb
#
require 'net/http'
c = Hash.new(0)
url = ''
path = ''
port = ''
Net::HTTP::start( 'www.tdiary.net' ) do |http|
res, = http.get( '/' )
res.body.each do |l|
next unless /a href/ =~ l
if %r!<li>(.*) <a href="http://([^/]+)([^"]+)[^>]+>(.*)! =~ l then
url = $2
path = $3
port = 80
if /(.*):(\d+)/ =~ url then
url = $1
port = $2
end
p url, path, port
if /(tdiary\.net|www\.nga\.jp)/ =~ url
Net::HTTP.start( url, port ) do |http|
res2 , = http.get( path )
res2.body.each do |line|
if %r!<link rel="stylesheet" href="(http://)*([^"]+).*! =~ line then
css = $2.scan( %r![^/]*.css! )
p css
c[css] += 1
break
end
end
end
end
end
end
end
c.keys.sort do |a, b|
[c[b], a] <=> [c[a], b]
end.each do |k|
printf "%4d %s\n", c[k], k
end
いろいろ調べ回ってこんな感じにでき上がった。
まだ正規表現をはっきり理解してないのがイタイとこ。
あとはエラー処理やねぇ。rubyハッカーへの道はまだまだとおいなぁ
_ 今夜の晩飯は
ひさしぶりにピリ辛丼。なかなかうまい。
2003-04-06
_ [ツーリング]奈良へGO！
きょうは朝から リーダーと ちゅん会長と共にジェームスへいったんですが、なにやらちゅん会長がオイル交換するとかいいやがって時間つぶしのためラウンド１でビリヤード。ビリヤードは数年ぶりの上に2,3回しかやったことなかったから当然ながらダメダメだった。
んでその後飯食って「天気ええなぁ、奈良行こうか？」つーことで奈良行きが決定。しかも俺が「バイクでいくってのはどう？」とか言った為バイクで行くことになった。
実に2ヶ月くらいほっといたバイクだがなんなく動いた。奈良には会長が
_ Nana [あ、私もこのテーマ使わせてもらってますぉ。なまずとこで。ひっひっひ。]
_ アビー [こっそりつかわれちゃわからんぜよ（笑）]
_ ただただし [うひ、おれのが3つも入ってるし。まぁdefaultはものぐさなだけだと思うから除くとして(笑)、snakeがランク入..]
_ cue [や。使わせていただいています。 やたらと満足度は高いです。どうもありがとうございます。はい。]