Skip to content

Instantly share code, notes, and snippets.

View hiroyukim's full-sized avatar

Hiroyuki Yamanaka hiroyukim

60 followers · 59 following
View GitHub Profile
@hiroyukim
hiroyukim / qrcode maker
Created April 29, 2011 06:44
ローカル環境で外に出したくないデータをqrcodeにしたくなったときにはこんなんでいけるはず。
use strict;
use warnings;
use Plack::Request;
use Imager::QRCode;
my $html = q{
<html>
<head>
<title>qrcode</title>
</head>
@hiroyukim
hiroyukim / dump_env.psgi
Created May 5, 2011 06:25
envをふとdumpではかせたくなる瞬間につかうひと
use strict;
use warnings;
use Data::Dumper;
my $app = sub {
my $env = shift;
my $dump = '<html><body><h1>dump env</h1><table style="font-size:normal;">';
$dump .=
join("\n",
@hiroyukim
hiroyukim / gist:1533324
Created December 29, 2011 10:10
[X][X][X][X][X][X][X][X][X][X][X][X][X][X][X][X][X][X][X][X][X][X][X][X][X][X][X][X][X][X][X][X][X][X][X][X]
[X][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][ ][X]
[X][ ][X][X][X][ ][X][ ][X][X][X][X][X][ ][X][X][X][ ][X][ ][X][ ][X][ ][X][ ][X][ ][X][X][X][ ][X][X][X][X]
[X][ ][X][ ][ ][ ][X][ ][X][ ][ ][ ][X][ ][X][ ][ ][ ][X][ ][X][ ][X][ ][X][ ][X][ ][X][ ][X][ ][ ][ ][X][X]
[X][ ][X][ ][X][X][X][X][X][ ][X][X][X][ ][X][ ][X][ ][X][X][X][X][X][ ][X][ ][X][ ][X][X][X][ ][X][X][X][X]
[X][ ][X][ ][X][ ][X][ ][ ][ ][X][ ][X][ ][X][ ][X][ ][X][ ][ ][ ][ ][ ][X][ ][X][ ][ ][ ][ ][ ][ ][ ][X][X]
[X][ ][X][ ][X][X][X][X][X][ ][X][ ][X][ ][X][X][X][ ][X][X][X][X][X][ ][X][X][X][ ][X][ ][X][ ][X][ ][X][X]
[X][ ][X][ ][X][ ][ ][ ][ ][ ][X][ ][X][ ][X][ ][ ][ ][X][ ][X][ ][X][ ][X][ ][X][ ][X][ ][X][ ][X][ ][ ][X]
[X][ ][X][X][X][ ][X][ ][X][X][X][ ][X][ ][X][ ][X][ ][X][ ][X][X][X][ ][X][ ][X][X][X][X][X][ ][X][X][X][X]
[X][ ][ ][ ][ ][ ][X][ ][ ][ ][ ][ ][ ][ ][
@hiroyukim
hiroyukim / gist:1618806
Created January 16, 2012 02:57
sub add {}
sub post_add {
my ($class,$c) = @_;
container('dbh')->insert({
name => $c->req->param('name'),
created_at => container('dtf')->now->strftime("%Y-%m-%d %H:%M:S")
}, table => 'member');
$c->redirect('/member/');
@hiroyukim
hiroyukim / Handler.pm
Created January 31, 2012 15:12 — forked from riywo/Handler.pm
Amon2::Plugin::DBIx::Handler
use strict;
use warnings;
use utf8;
package Amon2::Plugin::DBIx::Handler;
use DBIx::Handler;
sub init {
my ($class, $context_class, $config) = @_;
@hiroyukim
hiroyukim / fluentd
Created October 30, 2012 06:05 — forked from higebu/fluentd
/etc/init.d/fluentd
#!/bin/bash
PID_FILE=/var/run/fluentd.pid
CONF_FILE=/etc/fluent/fluent.conf
LOG_FILE=/var/log/fluent/fluent.log
PSNAME="fluentd --daemon"
F_USER=fluentd
F_GROUP=fluentd
RUBY_VER="1.9.3-p194"
@hiroyukim
hiroyukim / sp modeのIPリスト
Created November 1, 2012 04:06
use strict;
use warnings;
use utf8;
use Web::Query;
use NetAddr::IP;
my @ips;
wq(q{http://www.nttdocomo.co.jp/service/developer/smart_phone/technical_info/etc/index.html})
->find('#maincol div:nth-child(4) div .delmb')
->each(sub{
@hiroyukim
hiroyukim / 棒倒し法
Created January 9, 2013 21:19
use strict;
use warnings;
use utf8;
use feature "switch";
# map 生成
my @map;
my $MAP_SIZE = 35;
my $iter = sub {
@hiroyukim
hiroyukim / gist:6338506
Created August 26, 2013 06:17
use strict;
use warnings;
use Data::Dumper;
my @hoge = qw/aa dd ee ff/;
my %hash = (
test => @hoge,
);
@hiroyukim
hiroyukim / gist:6547431
Created September 13, 2013 06:54
use strict;
use warnings;
my @results;
sub functional_number {
my $num = shift;
if( $results[$num] ) {
return $results[$num];