ytnobody

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 {

ytnobody

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

ytnobody

#!/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

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

秒速ではないけれど、割と手っ取り早くDENYされたお話

![ytnobody][http://ytnobody.net/impress/hachiojipm-26/img/ytnobody_char.png]

hachioji.pm #26 - ytnobody

なんか、最近迷惑電話が多いなあ

ytnobody

#!/usr/bin/env bash
# shellcheck disable=SC2016
#
# plenvsetup http://is.gd/plenvsetup
# Tue Jan 7 17:29:22 JST 2020 v0.06 by ytnobody
#

set -e

die () {

ytnobody

#!/bin/sh
#
# rbenvsetup http://is.gd/rbenvsetup
# Tue May 28 11:03:00 JST 2013 v0.01 by ytnobody
#

RBENV_REPO=git://github.com/sstephenson/rbenv.git
RBENV_ROOT=$HOME/.rbenv
PROF_FILE=$HOME/.bash_profile

ytnobody

#!/usr/bin/env lua
i = 20
f = loadstring("if (i == 20) then return true else return nil end")

if ( f() ) then
    print "ok"
else
    print "ng"
end

ytnobody

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use AnyEvent;
use AnyEvent::Twitter::Stream;
use AnyEvent::IRC::Client;
use Encode;
use Net::Twitter::Lite;
use Text::MeCab;

ytnobody

use strict;
use warnings;
use Parallel::ForkManager;

my $pm = Parallel::ForkManager->new(4);

for my $i ( 1 .. 30 ) {
    my $sleep = int(rand(5)+3);
    my $pid = $pm->start and next;
    printf "PID:%s NUM:%s START sleep %s\n", $pid, $i, $sleep;