Skip to content

Instantly share code, notes, and snippets.

View kazuph's full-sized avatar

Kazuhiro Homma kazuph

View GitHub Profile
@kazuph
kazuph / kytprof_add_prof_test.pl
Created March 23, 2013 12:52
Devel::KYTProfの最新版(0.03以降)だとエラーになるソースコード
#!/usr/bin/env perl
use strict;
use warnings;
use Text::Xslate;
use Devel::KYTProf;
use Data::Section::Simple;
Devel::KYTProf->add_prof(
"Text::Xslate",
"render",
@kazuph
kazuph / atnd.pl
Created March 18, 2013 10:50
WebService::Simple::ATNDのテスト
use strict;
use warnings;
use utf8;
use Encode;
use WebService::Simple::ATND;
my @keywords = qw/東京 perl/;
my @ym = qw/201302 201303 201304/;
my $query = WebService::Simple::ATND->query_events(count => 30);
@kazuph
kazuph / model_bench.pl
Last active December 15, 2015 01:39
Moose vs Mouse vs Moo
#!/usr/bin/env perl
# package ClassBless;
# # 原始的なPerlの書き方
# use strict;
# use warnings;
# use utf8;
# use Data::Dump qw/dump/;
# sub new {
# my $class = shift;
# my %args = @_;
package Amon2::Plugin::Model;
use strict;
use warnings;
use Module::Find;
use Try::Tiny;
our $VERSION = '0.01';
sub init {
my ($class, $context_class, $config) = @_;
@kazuph
kazuph / rubymotion_run.sh
Last active December 11, 2015 01:29
https://github.com/haraken3/SublimeRubyMotionBuilder/blob/master/rubymotion_run.sh がMac OS X 10.7.5だと正常に動かなかったので自分なりに修正
#!/bin/sh
TERMINAL_ID="RubyMotionBuilder"
PROJECT_DIR="$1"
OPTIONS="$2"
if [ "${PROJECT_DIR}" = "" ]; then
exit 1
fi
@kazuph
kazuph / .gitignore
Last active November 24, 2015 03:06
Backlog記法で書かれたWikiをMarkdownのプロジェクトのWikiに全面自動移行するスクリプト ref: http://qiita.com/kazuph/items/57103dde7f4e4a0c4ff1
# Created by https://www.gitignore.io/api/vim,ruby
### Vim ###
[._]*.s[a-w][a-z]
[._]s[a-w][a-z]
*.un~
Session.vim
.netrwhist
*~
@kazuph
kazuph / colorize.pl
Created November 12, 2012 01:28 — forked from Cside/colorize.pl
colorize keywords of logs.
#!/usr/bin/env perl
=head1 Examples
$ tail -f access_log | perl colorize.pl
$ plackup app.psgi 2>&1 | perl colorize.pl
=cut
use strict;
@kazuph
kazuph / bundleInstall
Created October 24, 2012 13:02
bundle install
bundle install
@kazuph
kazuph / project_euler_011.rb
Created October 19, 2012 14:14
ProjectEuler Problem 11
data = [ [8,2,22,97,38,15,0,40,0,75,4,5,7,78,52,12,50,77,91,8],
[49,49,99,40,17,81,18,57,60,87,17,40,98,43,69,48,4,56,62,0],
[81,49,31,73,55,79,14,29,93,71,40,67,53,88,30,3,49,13,36,65],
[52,70,95,23,4,60,11,42,69,24,68,56,1,32,56,71,37,2,36,91],
[22,31,16,71,51,67,63,89,41,92,36,54,22,40,40,28,66,33,13,80],
[24,47,32,60,99,3,45,2,44,75,33,53,78,36,84,20,35,17,12,50],
[32,98,81,28,64,23,67,10,26,38,40,67,59,54,70,66,18,38,64,70],
[67,26,20,68,2,62,12,20,95,63,94,39,63,8,40,91,66,49,94,21],
[24,55,58,5,66,73,99,26,97,17,78,78,96,83,14,88,34,89,63,72],
[21,36,23,9,75,0,76,44,20,45,35,14,0,61,33,97,34,31,33,95],
@kazuph
kazuph / problem037.rb
Created August 28, 2012 02:58
ProjectEuler Problem 37
#!/usr/bin/env ruby
# encoding : utf-8
require 'set'
t = Time.now
# 素数の判定
def prime?(num, ary)
ary.each do |n|
break if n * n > num
return false if num % n == 0