Skip to content

Instantly share code, notes, and snippets.

View hatenabookmark-favorite-users-ratio.user.js
// ==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;
View Rakefile
PLUGINS = %w{
appendAnchor
auto_source
char-hints-mod2
clock
copy
cpan-search
feedSomeKeys_2
hatena-bookmark-search
hints-yank-paste
View get_mov_info.pl
#!/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';
View gettorrent.pl
#!/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
kga / keywordlist_furigana2skkdic.pl
Created Jan 11, 2009
Hatena::Keyword to skkdict
View keywordlist_furigana2skkdic.pl
#!/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;
View mail_server_test.t
use strict;
use warnings;
use utf8;
use Test::More;
use Test::TCP;
use Email::MIME;
use Mail::Address;
use Encode;
use IO::Socket::INET;