Win32::IEHistory 0.02

履歴の件数が増えると重いとの指摘を受けたのでコールバックを食わせられるように変更しました。うちではあまりIEを使っていないので実感がわかないのですが、使い方はこんな感じで。

use strict;
use warnings;
use Win32::IEHistory::History;
my $history = Win32::IEHistory::History->new;
   $history->urls( callback => \&callback )

sub callback {
  my $entry = shift;
  return unless $entry->url =~ /nicovideo\.jp/;

  my $url = $entry->url;
     $url =~ s/^Visited: //;
  $entry->url( $url );

  print $entry->url, "\n",
        $entry->headers, "\n";
  return;  # falseを返すとその$entryは$historyに保存されません
}

どちらかというと::Historyより::Cacheの中を覗いた方が狙ったデータが得られやすいような気もするんですが、どこをどういじったせいなのか、うちのIEではニコニコ動画をうまく表示できないのでした。ちゃんちゃん。