Skip to content

Instantly share code, notes, and snippets.

View nihen's full-sized avatar

Masahiro Chiba nihen

65 followers · 44 following
View GitHub Profile
@nihen
nihen / gist:3016093
Created June 29, 2012 05:52
use 5.12.0;
use warnings;
use utf8;
use POSIX ':sys_wait_h';
my $pid = fork();
if ( $pid ) {
# parent
say "parent-start child_pid: $pid";
sleep 1;
@nihen
nihen / gist:2785757
Created May 25, 2012 04:24
use strict;
use warnings;
my $app = sub {
my $env = shift;
return sub {
my $responder = shift;
my $writer = $responder->([ 200, []]);
@nihen
nihen / Joinful.pm
Created January 4, 2012 19:12
SQL::Maker::Select::Joinful
package SQL::Maker::Select::Joinful;
use strict;
use warnings;
use utf8;
use base 'SQL::Maker::Select';
sub add_join {
my ($self, $joins) = @_;
@nihen
nihen / gist:1475700
Created December 14, 2011 08:15
use DBI;
use Data::Dumper;
my $dbh = DBI->connect('dbi:mysql:database=sandbox', 'sandbox', 'sandbox');
$dbh = $dbh->clone();
warn Dumper($dbh);
$dbh = $dbh->clone();
@nihen
nihen / gist:1465943
Created December 12, 2011 08:35
use Benchmark qw/cmpthese/;
my $hash = +{
id => 123,
mail => '[email protected]',
@nihen
nihen / gist:1363909
Created November 14, 2011 13:02
#!/usr/bin/env perl
use strict;
use warnings;
use DBI;
use Test::More;
my $CONNECT_INFO = {
dsn => 'dbi:mysql:database=dbibench;host=localhost;mysql_server_prepare=1',
username => 'guest',
password => 'guest',
connect_options => {
@nihen
nihen / gist:1196799
Created September 6, 2011 07:00
psgi benchmark
- app.psgi
sub {
return ['200', ['content-type' => 'text/html', 'content-length' => 11], ['hello world']];
}
ab -n 10000 -c 10 -k http://127.0.0.1:8080/
[Plack::Handler::Nginx]
- keepalive_requests 0;
Requests per second: 4777.98 [#/sec] (mean)
@nihen
nihen / Isucon.pm
Created August 30, 2011 18:10
isucon nginx embeded
package Isucon;
use 5.14.1;
use Nginx::Simple;
use Text::Xslate::Util qw/html_escape/;
use POSIX qw/strftime/;
use List::Util qw/first/;
use JSON::XS;
use IO::Handle;
use Encode;
@nihen
nihen / gist:1179323
Created August 29, 2011 20:30
use 5.14.1;
use Plack::Request;
use Text::Xslate::Util qw/html_escape/;
use POSIX qw/strftime/;
use List::Util qw/first/;
use JSON::XS;
use IO::Handle;
use Encode;
my $header = ['content-type' => 'text/html'];
@nihen
nihen / gist:1178857
Created August 29, 2011 17:13
isucon app
use 5.14.1;
use Plack::Request;
use Plack::Builder;
use FindBin;
use Text::Xslate::Util qw/html_escape/;
use POSIX qw/strftime/;
use List::Util qw/first/;
use JSON::XS;
use IO::Handle;
use Encode;