xaicron

// ==UserScript==
// @name           Pixiv Big Image
// @namespace      http://blog.livedoor.jp/xaicron/
// @description    always big illust view of pixiv
// @include        http://www.pixiv.net/*
// ==/UserScript==

(function () {
	var style = document.body.appendChild(document.createElement('style'));
	var sandboxSheet = style.sheet || style.styleSheet;

xaicron

#!C:/Perl/bin/perl

use strict;
use warnings;
use utf8;
use ExtUtils::Installed;
use UNIVERSAL::require;

my @module_list = ExtUtils::Installed->new->modules;
my $max_len = length [ sort { length $b <=> length $a } @module_list ]->[0];

xaicron

package Module::Setup::Plugin::Test::Nmakefile;
use strict;
use warnings;
use base 'Module::Setup::Plugin';

sub register {
    my($self, ) = @_;
    $self->add_trigger( check_skeleton_directory => \&check_skeleton_directory );
}

xaicron

javascript:
(function(d,u,n,k,s){
	c=function(o){prompt('bit.ly',o.results[u].shortUrl)};
	s=d.createElement('script');
	s.type='text/javascript';
	s.src='http://api.bit.ly/shorten?version=2.0.1&login='+n+'&apiKey='+k+'&callback=c&longUrl='+escape(u);
	d.body.appendChild(s);
})(document,location.href,'your name','your api key');

xaicron

#!/usr/bin/perl

# Author:   Kyo Nagashima <kyo@hail2u.net>, http://hail2u.net/
# License:  MIT license (http://opensource.org/licenses/mit-license.php)
# Modified: 2009-11-14T12:24:54+09:00
# Updated: xaicron (http://blog.livedoor.jp/xaicron/)

use strict;
use warnings;

xaicron

#!/usr/bin/env perl

use strict;
use warnings;
use Encode qw/encode decode find_encoding/;
use Benchmark qw/timethese cmpthese/;

my $bytes = '小飼弾はアルファブロガー';

my $enc = find_encoding 'utf8';

xaicron

#!/usr/bin/env perl

use strict;
use warnings;
use Web::Scraper;
use URI;
use WWW::Mechanize;
use File::Basename qw/basename/;

my $user_id = shift || die "Usage: $0 user_id [last_page_num]";

xaicron

#!/usr/bin/env perl

use strict;
use warnings;
use Encode;
use Archive::Zip;
use Pod::Usage qw/pod2usage/;
use opts;

opts

xaicron

use strict;
use warnings;
use utf8;
use Win32;;
use Win32::GuiTest ':ALL';
use Win32::Clipboard;
use Win32::Unicode '-native';
use YAML 0.71 qw/LoadFile/;
use Data::Recursive::Encode;
use Time::HiRes qw/sleep/;

xaicron

#!/usr/bin/env perl

use strict;
use warnings;
use Benchmark qw/timethese cmpthese/;

my @lines;
my $word = 'a';
push @lines, $word x $_ for 1..10000;
@lines = (@lines, @lines);