kga

// ==UserScript==
// @name           Hatena::Bookmark - Favorite Users Ratio
// @namespace      http://d.hatena.ne.jp/KGA/
// @include        http://b.hatena.ne.jp/entry/*
// ==/UserScript==

(function() {
    var th = $X('//th[contains(., "お気に入り")]')[0];
    if (!th) return;
    var favs = $X('count(./following-sibling::td/ul[@class="userlist"]/li)', th, null, XPathResult.NUMBER_TYPE).wrappedJSObject.numberValue;

kga

PLUGINS = %w{
  appendAnchor
  auto_source
  char-hints-mod2
  clock
  copy
  cpan-search
  feedSomeKeys_2
  hatena-bookmark-search
  hints-yank-paste

kga

#!/usr/bin/env perl
use strict;
use warnings;

use Perl6::Say;
use IPC::Cmd qw/can_run run/;
use YAML;

my $file = shift || 'sample.mp4';

kga

#!/usr/bin/env perl
use strict;
use warnings;

use URI;
use WWW::Mechanize;

my $url   = URI->new(shift) or die;
my %query = $url->query_form;
my $code  = $query{ref};

kga

#!/usr/bin/env perl
# keywordlist_furigana2skkdic.pl
# original ruby code
# - http://rubyist.g.hatena.ne.jp/znz/20060924/p1

use strict;
use warnings;

use Encode qw/encode decode/;
use File::Temp;

kga

use strict;
use warnings;
use utf8;

use Test::More;
use Test::TCP;
use Email::MIME;
use Mail::Address;
use Encode;
use IO::Socket::INET;