検索エンジンの検索結果を調査してみた

「勝手に国別ランキング-2008年」 2008/10/31
「勝手に一人当たりGDP国別ランキング-2008年」 2008/11/30

「国別ランキング」をキーにして検索してみた。
google  1ページの8番目   勝手に一人当たりGDP国別ランキング
       3ページの30番目  勝手に国別ランキング
@nifty  1ページの9番目   勝手に一人当たりGDP国別ランキング
       3ページの30番目  勝手に国別ランキング
biglobe 2ページの11番目   勝手に一人当たりGDP国別ランキング
・goo   2ページの11番目   勝手に一人当たりGDP国別ランキング
・msn   2ページの15番目  勝手に一人当たりGDP国別ランキング
livedoor 2ページの17番目 勝手に一人当たりGDP国別ランキング
・フレッシュアイ 5ページの50番目 勝手に一人当たりGDP国別ランキング
Yahoo!  6ページの55番目 勝手に一人当たりGDP国別ランキング
・excite   6ページの59番目 勝手に一人当たりGDP国別ランキング
・mooter   ?
・infoseek  ?
百度    ?

                                                                                                • -

じじぃの日記、「勝手に国別ランキング-2008年」は「勝手に一人当たりGDP国別ランキング-2008年」の約1ヵ月前に書いたものだ。
だけど、ヒット率では「勝手に一人当たりGDP国別ランキング-2008年」が圧倒的に多い。
勝手に一人当たりはそれだけ、見た人がリンクをはっているということか。
自分のパソコンでほとんど検索エンジンgoogle」を使っている。
予想では「google」でのヒットがほとんどだろうと思っていたが、検索結果で見ると「google」と「@nifty」は似ている。
もしかして、「@nifty」= 「google」だったりして。
「goo」の検索エンジンに「google」のエンジンの一部が利用されていると言われているが検索結果からは?だ。
mooterで「老兵は黙って」をキーにして検索すると検索結果「老兵は黙って去りゆくのみ」が6ページ(60件)まで延々続くが「国別ランキング」でやるとひっかからない。
mooterは曖昧検索が苦手なのだろうか。
検索結果から見ると、あまり知られていない検索エンジンはそれなりにということか。
google」が出る前は「infoseek」を使っていたんだけどなぁ。
話変わって
rubyで簡易HEX(16進)ダンプのプログラムを作ってみた。
改行コードはCR+LFとして処理しています。

                                          • -

読み込むファイル (perldata.txt)
# perl filelist.pl
my @files = glob('obaka/*.*');
foreach my $file (@files) {
  print "$file\n";
}

                                          • -

ruby (hexconv.rb)

                                          • -

#infile = open("perldata.txt")
infile = open(ARGV[0])
i = 0
while c = infile.read(1)
  a = c.unpack("H2")
  #s = a.swapcase
  s = a[0]
  if i == 0
    hx = s
    s2 = " " + c
    i += 1
  else
    i += 1
    if c != "\n"
      hx = hx + s
      s2 = s2 + c
    else
      hx = hx + "0D"
      s2 = s2 + '.'
    end
    if (i % 16) == 0
      hx = hx + s2 + "\n"
      s2 = " "
    end
    if c == "\n"
      hx = hx + "0A"
      s2 = s2 + '.'
      i += 1
      if (i % 16) == 0
        hx = hx + s2 + "\n"
        s2 = " "
      end
    end
  end
end
len = (16 - s2.length)*2+1
while len > 0
  hx = hx + " "
  len -= 1
end
hx = hx + " " + s2
print hx, "\n"
infile.close

                                          • -

実行結果
C:\test>ruby hexconv.rb perldata.txt
23207065726c2066696c656c6973742e # perl filelist.
706c0D0A6d79204066696c6573203d20 pl..my @files =
676c6f6228276f62616b612f2a2e2a27 glob('obaka/*.*'
293b0D0A666f7265616368206d792024 );..foreach my $
66696c6520284066696c657329207b0D file (@files) {.
0A20207072696e7420222466696c655c . print "$file\
6e223b0D0A7d0D0A             n";..}..