xaicron

#!C:/Perl/bin/perl
# Youtubeから最高画質の動画をダウンロードする
# fmt35とかもいける

use strict;
use warnings;
use utf8;
use Encode;
use LWP::UserAgent;
use File::Basename;

xaicron

# 偉大なるしょこたんが今日までにどれだけBlog記事を書いたか調べるスクリプト
use strict;
use warnings;
use Web::Scraper;
use LWP::UserAgent;
use URI;
use Encode;
use 5.0100;

my $base_url = 'http://blog.excite.co.jp/shokotan/';

xaicron

javascript:
(function () {
	var module = location.href.match(/lib\/(.*).pm$/)[1].replace(/\//g, '::');
	prompt(module + 'のリンク', '<a href="http://search.cpan.org/perldoc?' + module + '">' + module + '</a>');
})();

xaicron

javascript:
(function (d,c,e,a,b,p,l,i) {
function C(e,u,n,i) {
    for (i = 0; i < e[c].length; i++) {
        n = e[c][i];
        if (n.nodeName === 'IMG' && n.src.match('http://z2-ec2.images-amazon.com/images/P/')) {
            u = n.src.replace(/_SX\d+_SCLZ/, '_SCRM');
            break;
        }
        else if (n[c].length) {

xaicron

# pixivから指定したユーザーIDの画像一覧を取得する
# Usage: $0 [-i] id [-d save_directory] [-p max_page_number] [-e encode]
# 
# 2009-12-26T02:40:21 漫画形式も対応した
# 2010-01-23T05:18:17 form_numberを指定しないと動かなくなってた
#

use strict;
use warnings;
use utf8;

xaicron

#!/usr/bin/perl

use strict;
use warnings;
use Web::Scraper;
use YAML;
use URI;

binmode STDOUT => ':utf8';

xaicron

import javax.swing.*;
import java.awt.Font;
import java.awt.BorderLayout;

public class AAviewer extends JFrame{
	public static void main(String[] args){
		new AAviewer();
	}
	
	AAviewer() {

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 );
}