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

xaicron

#!/usr/bin/env perl

use strict;
use warnings;
use Encode qw/decode/;
use Gtk2 -init;
use Pod::Usage qw/pod2usage/;
use opts;

opts

xaicron

Beginning a new cpanminus installation: build direcotry is C:\Documents and Settings\xai\.cpanm\build-1266758002.2976
Fetching http://search.cpan.org/CPAN/authors/id/M/MI/MIYAGAWA/App-CPAN-Fresh-0.08.tar.gz
Unpacking App-CPAN-Fresh-0.08.tar.gz...
Entering App-CPAN-Fresh-0.08...
Checking configure dependencies from META.yml...
Checking if you have ExtUtils::MakeMaker 6.42... Yes (6.56)
Checking dependencies from MYMETA.yml...
Finding PREREQ from Makefile...
Checking if you have URI 0... Yes (1.52)
Checking if you have ExtUtils::MakeMaker 6.42... Yes (6.56)

xaicron

> perl -MWin32::Unicode::Native -e "print Encode::decode cp932 => shift" ほげ
ほげ
> echo hoge > hoge.txt 2>&1
> perl -MWin32::Unicode::Native -e "print Encode::decode cp932 => shift" ほげ
縺ｻ縺