Skip to content

Instantly share code, notes, and snippets.

View ytnobody's full-sized avatar
♨️
470

Satoshi Azuma a.k.a. ytnobody ytnobody

♨️
470
View GitHub Profile
@ytnobody
ytnobody / hachiojipm-26.md
Created June 18, 2013 03:46
ytnobody flavored markdown2impress.pl - support image syntax
@ytnobody
ytnobody / compare_bench.pl
Created August 15, 2013 07:28
compare engine benchmark
use strict;
use warnings;
use Benchmark qw(:all);
use Test::Deep::NoTest;
use Data::Compare;
{
package Data::Compare::Deparse;
use B::Deparse;
my $deparser = B::Deparse->new();
@ytnobody
ytnobody / nephia-primalize.sh
Created August 21, 2013 07:55
migration nephia to primalnephia
#!/bin/sh
PROJ_DIR=$1 ; shift
cd $PROJ_DIR
git mv lib/Nephia lib/PrimalNephia
find ./* ./.gitignore -type f | xargs sed -i 's/Nephia/PrimalNephia/g; s/nephia-setup/primalnephia-setup/g;'
git add . && minil build && minil test && git add . && git commit -m 'rename' && git push
@ytnobody
ytnobody / gittest.txt
Last active December 21, 2015 20:39
git test
azuma@ubuntu:~/myproj$ git log
commit 52b0450b049f45b88b4aa4b0694ca646f16f2f12
Author: ytnobody <ytnobody@gmail.com>
Date: Wed Aug 28 15:12:55 2013 +0900
Z
commit 3807c7bb1b25166078f9ca269788eafd7990aabb
Author: ytnobody <ytnobody@gmail.com>
Date: Wed Aug 28 15:12:38 2013 +0900
use strict;
use warnings;
use Test::More;
use Plack::Builder;
use Plack::Test;
use HTTP::Request::Common;
my $app = sub { [200,[],['Hello, World']] };
my $wrapped = builder {
#!/bin/sh
PROJ_DIR=$1 ; shift
git clone git@github.com:ytnobody/$PROJ_DIR.git
cd $PROJ_DIR
git mv lib/Voson lib/Nephia
find ./* ./.gitignore -type f | xargs sed -i 's/Voson/Nephia/g; s/voson-setup/nephia-setup/g;'
git add . && minil build && minil test && git add . && git commit -m 'rename' && git push
cpanm .
#!/usr/bin/env perl
use strict;
use warnings;
use lib qw(BitterMilk/lib SugarMilk/lib HornyMilk/lib);
use Benchmark qw(:all);
use BitterMilk;
use SugarMilk;
use HornyMilk::Web;
use Data::Dumper;
use strict;
use Benchmark qw(:all);
use Router::Simple;
use Dispatcher::Small;
use Data::Dumper;
my $rs = Router::Simple->new;
$rs->connect('/user/:id' => {action => 'user'});
my $ds = Dispatcher::Small->new(
@ytnobody
ytnobody / env-export
Created January 23, 2014 02:27
export env args
#!/usr/bin/env perl
use strict;
use warnings;
my $dir = $ARGV[0] || 'env';
mkdir $dir unless -d $dir;
my @data = `env`;
chdir $dir;
for my $entry (@data) {
@ytnobody
ytnobody / markdowntest.md
Created January 25, 2014 06:44
markdown test

test

  • foo
  • bar
  1. hoge
  2. fuga