Skip to content

Instantly share code, notes, and snippets.

View karupanerura's full-sized avatar
👷‍♂️
Please assign issue to me. but, I may be slow to respond.

karupanerura karupanerura

👷‍♂️
Please assign issue to me. but, I may be slow to respond.
254 followers · 495 following
View GitHub Profile
@karupanerura
karupanerura / module-versions.txt
Created August 29, 2015 06:13
YAPC::EU benchmark environment
Time::Strptime: 0.01_1
Time::Moment: 0.24
POSIX::strptime: 0.10
Time::Piece: 1.30
DateTime: 1.20
DateTime::TimeZone: 1.92
DateTime::Locale: 0.46
@karupanerura
karupanerura / get-db-from-dbh.pl
Created February 23, 2014 07:06
use 5.14.0;
use DBIx::Sunny;
my $dbh = DBIx::Sunny->connect("dbi:mysql:database=test", "root", "");
my ($database) = map s/^database=//r, grep /^database=/, DBIx::Sunny->parse_dsn($dbh->connect_info->[0]);
say $database
@karupanerura
karupanerura / gist:9950835
Last active August 29, 2015 13:58
$("#hoge").change(function() {
foo($(this).attr("data-i"));
});
@karupanerura
karupanerura / gist:11361126
Created April 28, 2014 03:32
bash-4.1# curl -L http://cpanmin.us
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
<html><head>
<title>400 Bad Request</title>
</head><body>
<h1>Bad Request</h1>
<p>Your browser sent a request that this server could not understand.<br />
</p>
</body></html>
bash-4.1# curl -vvvv -L http://cpanmin.us
@karupanerura
karupanerura / existsr.pl
Created May 9, 2014 06:24
sub existsr (\%@) {## no critic
my $h = shift;
for my $k (@_) {
return !1 unless exists $h->{$k};
$h = $h->{$k};
}
return !!1;
}
my %h = (
@karupanerura
karupanerura / benchmark.pl
Last active August 29, 2015 14:01
Router::R3 benchmark
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use 5.018002;
use autodie;
use Benchmark qw(:all);
use Router::Boom;
use Router::Boom::Method;
use Router::Simple;
@karupanerura
karupanerura / example-q.js
Created May 22, 2014 04:35
"use msgict";
var Q = require('q');
function task1 (msg) {
var d = Q.defer();
setTimeout(function () {
d.resolve(msg);
}, 1000);
console.log("task1: " + msg);
return d.promise;
@karupanerura
karupanerura / workman-server.log
Created June 27, 2014 08:16
Workman::Server graceful shutdown log
[32795] START at lib/Workman/Server.pm line 35.
[32821] START ADMIN WORKER at lib/Workman/Server.pm line 85.
[32822] START JOB WORKER at lib/Workman/Server.pm line 63.
[32823] START JOB WORKER at lib/Workman/Server.pm line 63.
[32824] START JOB WORKER at lib/Workman/Server.pm line 63.
[32825] START JOB WORKER at lib/Workman/Server.pm line 63.
[32826] START JOB WORKER at lib/Workman/Server.pm line 63.
[32827] START JOB WORKER at lib/Workman/Server.pm line 63.
[32828] START JOB WORKER at lib/Workman/Server.pm line 63.
[32829] START JOB WORKER at lib/Workman/Server.pm line 63.
@karupanerura
karupanerura / go-like-slice.c
Created September 6, 2014 08:35
Goのスライスの挙動を理解するためにCでそれっぽいやつを再実装してみる
#include <stdio.h>
#include <stdlib.h> // size_t
struct IntSlice {
int *ptr;
size_t len;
size_t cap;
};
struct IntSlice newIntSlice (int *ptr, size_t start, size_t end, size_t cap) {
@karupanerura
karupanerura / not.rb
Last active August 29, 2015 14:06
not method
class Object
alias_method :not, :!
end
p true.not.not.not