kga

// ==UserScript==
// @name          LDR modify keybind
// @include       http://reader.livedoor.com/reader/*
// ==/UserScript==

location.href = 'javascript:void(' + encodeURIComponent(uneval(function () {

function mod_rate (n) {
    return function () {
        var feed = get_active_feed();

kga

#!/usr/bin/env perl
# original code by id:antipop
# http://subtech.g.hatena.ne.jp/antipop/20071121/1195652375
use strict;
use warnings;

use Config::Pit;
use File::Temp;
use IPC::Run qw/run/;
use WebService::Hatena::Fotolife;

kga

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

use Encode;
use XML::Simple;
use LWP::Simple;

my @id = qw/to sa/;

kga

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

use Imager;

my $history = shift;

my @frames;
my $img = Imager->new;

kga

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

use Perl6::Say;
use YAML;

use Config::Pit;
use LWP::UserAgent;
use HTTP::Request::Common;

kga

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

use File::Temp;
use Image::ObjectDetect;
use LWP::Simple;
use XML::Feed;
use XML::Feed::Deduper;
use YAML;

kga

<ul>
<li><img src="http://img.imatsubu.jp/img/upload/account/20100513/17758_20100513110735906.jpg"><a href="http://imatsubu.jp/info/17758/">mai03</a> <p>うめこと茎わかめなう</p></li>
<li><img src="http://img.imatsubu.jp/img/upload/account/20100513/17754_20100513110715252.jpg"><a href="http://imatsubu.jp/info/17754/">erica06</a> <p>ホントにすぐ更新されるーおもしろい</p></li>
<li><img src="http://img.imatsubu.jp/img/upload/account/20100513/17750_20100513110645554.jpg"><a href="http://imatsubu.jp/info/17750/">erika07</a> <p> バリバリデコメ使えてるよぉ( 」´０｀)」  ERIKA </p></li>
<li><img src="http://img.imatsubu.jp/img/upload/account/20100513/17746_20100513110558541.jpg"><a href="http://imatsubu.jp/info/17746/">fonchi08</a> <p>電車にガタンゴトンと揺られながらお仕事に向かっています。皆様今日も一日頑張りまっしょいp(^^)q</p></li>
<li><img src="http://img.imatsubu.jp/img/upload/account/20100513/17742_20100513110532782.jpg"><a href="http://imatsubu.jp/info/17742/">rurika09</a> <p>いまつぶ初投稿☆デコメがよくわからないので色合いは淡白になりますが汗よろしくお願いします☆</p></li>
<li><img src="http://img.imatsubu.jp/img/upload/account/20100513/177

kga

{
  'mai03'   : '遠藤舞',
  'erica06' : '外岡えりか',
  'erika07' : '谷澤恵里香',
  'fonchi08': 'フォンチー',
  'rurika09': '横山ルリカ',
  'suzuka11': '森田涼花',
  'yui12'   : '河村唯',
  'serina13': '長野せりな',
  'hitomi14': '酒井瞳',

kga

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

use Perl6::Say;
use List::MoreUtils qw(minmax);

chomp (my @input = <DATA>);

my @direct = ([-1, 0], [0, -1], [1, 0], [0, 1]);

kga

CREATE TABLE funcmap (
        funcid INTEGER PRIMARY KEY AUTOINCREMENT,
        funcname VARCHAR(255) NOT NULL,
        UNIQUE(funcname)
);
CREATE TABLE job (
        jobid INTEGER PRIMARY KEY AUTOINCREMENT,
        funcid INTEGER UNSIGNED NOT NULL,
        arg MEDIUMBLOB,
        uniqkey VARCHAR(255) NULL,