Toshiyuki Nakamura yukidarake

## jsondiff.js
#!/usr/bin/env node
var fs = require('fs');
var difflet = require('difflet');
var deepEqual = require('deep-equal');

var read = function(file) {
    return fs.readFileSync(file, 'utf8')
        .split(/\n/)
        .filter(function(line) {
            return line;

## gist:3863055
my @use_chars     = ( 'a' .. 'z', 0 .. 9 );
my $serial_length = 7;
my $serian_num    = 120_000;

for ( 1 .. $serian_num ) {
    print random_str($serial_length), "\n";
}

sub random_str {
    my $length = shift;

## gist:3863066
use strict;
use warnings;
use utf8;
use Image::Magick;
use File::Basename;
use File::Path;

for (<*.jpg>) {
    resize($_);
}

## slurp.pl
use strict;
use warnings;
use utf8;

sub slurp {
    my $file = shift;
    open my $fh, $file or die $!;
    my $content = do {
        local $/;
        <$fh>;

## result
var TIMES = 10000;

console.time(1);
var array1 = [];
for (var i = 0; i < TIMES; i++) {
    array1.push(Math.random());
}
console.timeEnd(1);

console.time(2);

## gist:4618249
'<,'>perld s{^((  )+)}{"\t" x (length($1)/2)}e

## gist:4618259
perl -pi -e 's{^(\t+)}{q( ) x (length($1)*4)}e' **/*.js

## gist:4631890
function User(name) {
    if (!(this instanceof User)) {
        return new User(name);
    }
    this.name = name;
}

// better way
function User(name) {
    var self = this instanceof User

## gist:4662008
ack -f lib | xargs perl -i -pe 's#\*/\n#*/\n\n/*jshint unused: false */\n# if $. < 7; close ARGV if eof;'

## jst.pl
perl -MTime::Piece -lane 'print localtime(gmtime($F[0]/1000)->epoch)."\t$F[1]"' hoge.log
	#!/usr/bin/env node
	var fs = require('fs');
	var difflet = require('difflet');
	var deepEqual = require('deep-equal');

	var read = function(file) {
	return fs.readFileSync(file, 'utf8')
	.split(/\n/)
	.filter(function(line) {
	return line;
	my @use_chars = ( 'a' .. 'z', 0 .. 9 );
	my $serial_length = 7;
	my $serian_num = 120_000;

	for ( 1 .. $serian_num ) {
	print random_str($serial_length), "\n";
	}

	sub random_str {
	my $length = shift;
	use strict;
	use warnings;
	use utf8;
	use Image::Magick;
	use File::Basename;
	use File::Path;

	for (<*.jpg>) {
	resize($_);
	}
	var TIMES = 10000;

	console.time(1);
	var array1 = [];
	for (var i = 0; i < TIMES; i++) {
	array1.push(Math.random());
	}
	console.timeEnd(1);

	console.time(2);
	function User(name) {
	if (!(this instanceof User)) {
	return new User(name);
	}
	this.name = name;
	}

	// better way
	function User(name) {
	var self = this instanceof User