c18t

# chperl - plenv local <version> && plenv rehash
chperl() {
    # usage: chperl <perl_version>
    _VERSION=$1
    plenv local $_VERSION && plenv rehash
}

c18t

l=console.log;o=414209763;r=Math.sqrt(o);for(i=2;i<=r&&i<=o;){o%i==0?(o/=i,l(i)):i++}if(o!=1)l(o)

// 0.042s

c18t

javascript:var a=['o','0'],b=document.body;b.innerHTML=b.innerHTML.replace(/(?:^|(>))([^<]*)/g,function(){var t=RegExp.$1,s=RegExp.$2;return t+s.replace(/[^!-~\s]|[a-np-zA-Z]/g,function(p){return a[p.charCodeAt(0).toString(2).slice(-1)]})});void 0;

c18t

#!/usr/bin/env jruby
# 
# require http://github.com/shokai/glitchicon

require File.dirname(__FILE__)+'/glitch'
require 'java'
import 'java.lang.System'
import 'javax.imageio.ImageIO'
import 'java.awt.image.BufferedImage'

c18t

#!/usr/local/bin/perl

my %X = (
    -r => 'File is readable by effective uid/gid.',
    -w => 'File is writable by effective uid/gid.',
    -x => 'File is executable by effective uid/gid.',
    -o => 'File is owned by effective uid.',

    -R => 'File is readable by real uid/gid.',
    -W => 'File is writable by real uid/gid.',

c18t

perl -M5.010 -MLingua::JA::Numbers -MEncode -e "%A=qw/a えー b びー c しー d でぃー e いー f えふ g じー h えっち i あい j じぇい k けい l える m えむ n えぬ o おー p ぴー q きゅー r あーる s えす t てぃー u ゆー v ぶい w だぶりゅー x えっくす y わい z ぜっと/;@A=a..z;say encode(($^O eq'MSWin32'?'cp932':'utf8'),num2ja($_)).'反田'.$A{$A[$_%26-1]}for 1..1000"

c18t

#!/usr/local/bin/perl

use 5.014;
use warnings;
use utf8;

use lib qw(lib);
use autobox;
use autobox::dump;
use autobox::Core;

c18t

#!/usr/local/bin/perl

use 5.014;
use warnings;
use utf8;

use lib qw(lib);
use autobox;
use autobox::dump;
use autobox::Core;

c18t

use 5.010;
use Net::Twitter::Lite::WithAPIv1_1;

sub twitter_agent {
    my ($conf_app, $conf_user) = @_;
    my $nt = Net::Twitter::Lite::WithAPIv1_1->new(%$conf_app, useragent_args => { timeout => 10 });
    $nt->access_token($conf_user->{token});
    $nt->access_token_secret($conf_user->{token_secret});

    my ($pin, @userdata);

c18t

#!/usr/local/bin/perl

use 5.014;
use warnings;
use utf8;

use lib qw(lib);
use autobox;
use autobox::dump;
use autobox::Core;