Skip to content

Instantly share code, notes, and snippets.

Avatar

Satoh, Hiroh cho45

View GitHub Profile
@cho45
cho45 / ls
Last active Aug 29, 2015
View ls
@cho45
cho45 / teng_schema_dumper.pl
Created Mar 18, 2014
View teng_schema_dumper.pl
#!/usr/bin/env perl
use strict;
use warnings;
use FindBin qw($Bin);
use lib "$Bin/../lib";
use Teng::Schema::Dumper;
use String::Random qw(random_regex);
use Path::Class;;
my $file = shift or die "require sql file";
@cho45
cho45 / Mouse#TO_JSON
Created Mar 26, 2014
View Mouse#TO_JSON
use Mouse::Meta::Class;
use JSON::XS;
sub TO_JSON {
my ($self) = @_;
my $klass = +Mouse::Meta::Class->initialize(ref $self);
+{
map {
my $key = $_;
my $val = $self->{$key};
@cho45
cho45 / alighed-if.js
Created Apr 28, 2014
View alighed-if.js
if (foo) {
...;
} else
if (bar) {
...;
} else
if (baz) {
...;
} else {
...;
@cho45
cho45 / yukkuri.txt
Created Jul 24, 2008 — forked from motemen/yukkuri.txt
ゆっくりしていってね！！！
View yukkuri.txt
　　 _,,....,,_　 ＿人人人人人人人人人人人人人人人＿
-''":::::::::::::｀''＞　　ゆっくりした結果がこれだよ！！！　＜
ヽ:::::::::::::::::::::￣^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^￣
　|::::::;ノ´￣＼:::::::::::＼_,. -‐ｧ　　　　　＿_　　 _____　　 ＿_____
　|::::ﾉ　　　ヽ､ヽr-r'"´　　（.__　　　　,´　_,, '-´￣￣｀-ゝ 、_ イ、
_,.!イ_　　_,.ﾍｰｧ'二ﾊ二ヽ､へ,_7　　　'r ´　　　　　　　　　　ヽ、ﾝ、
::::::rｰ''7ｺ-‐'"´　 　 ;　 ',　｀ヽ/｀7　,'＝=─-　　　 　 -─=＝',　i
r-'ｧ'"´/　 /!　ﾊ 　ハ　 !　　iヾ_ﾉ　i　ｲ　iゝ、ｲ人レ／_ルヽｲ i　|
!イ´ ,' |　/__,.!/　V　､!__ﾊ　 ,'　,ゝ　ﾚﾘｲi (ﾋ_] 　　 　ﾋ_ﾝ ).| .|、i .||
`! 　!/ﾚi'　(ﾋ_] 　　 　ﾋ_ﾝ ﾚ'i　ﾉ　　　!Y!""　 ,＿__, 　 "" 「 !ﾉ i　|
@cho45
cho45 / gist:2105
Created Jul 24, 2008
View gist:2105
　　　　　　　　　　　　 　＿_　　 _____　　 ＿_____　　　 ,'´￣￣￣￣￣ヽ.
　　　　　　　　　　　　 ,´　_,, '-´￣￣｀-ゝ 、_ イ、 　 |　そ .お　ご　お |
　　　　　　　　　　　　 'r ´　　　　　　　　　　ヽ、ﾝ、　|　れ .風　飯　帰.|
　　　　　　　　　　　　,'＝=─-　　　 　 -─=＝',　i　 |　と　呂　に　な |
＿|＼∧∧／|＿　　 i　ｲ　iゝ、ｲ人レ／_ルヽｲ i　|　|　も　に　す　 さ |
＼　　　　　 　／　　 ﾚﾘｲi (ﾋ_] 　　 　ﾋ_ﾝ ).| .|、i .||　|　・　 す　る　 い.|
＜ 　　 じ 　　＞　　　 !Y!""　 ,＿__, 　 "" 「 !ﾉ i　|　|　・　 る　？　.ア |
／　　　　　　　＼　　　L.',.　 　ヽ _ﾝ　　　　L」 ﾉ| .|　|　・　 ？　　　 ナ |
￣|／∨∨＼|￣　　　 | ||ヽ、　　　　　　 ,ｲ| ||ｲ| /　 |　　　　　　　　タ |
　　　　　　　　　　　　　レ ル｀ ー--─ ´ルﾚ　ﾚ´　　ヽ､＿＿＿＿＿ノ
@cho45
cho45 / gist:2106
Created Jul 24, 2008
View gist:2106
　　 _,,....,,_　 ＿人人人人人人人人人人人人人人人＿
-''":::::::::::::｀''＞　　　はやく帰ってね！！！　　　　　　＜
ヽ:::::::::::::::::::::￣^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^￣
　|::::::;ノ´￣＼:::::::::::＼_,. -‐ｧ　　　　　＿_　　 _____　　 ＿_____
　|::::ﾉ　　　ヽ､ヽr-r'"´　　（.__　　　　,´　_,, '-´￣￣｀-ゝ 、_ イ、
_,.!イ_　　_,.ﾍｰｧ'二ﾊ二ヽ､へ,_7　　　'r ´　　　　　　　　　　ヽ、ﾝ、
::::::rｰ''7ｺ-‐'"´　 　 ;　 ',　｀ヽ/｀7　,'＝=─-　　　 　 -─=＝',　i
r-'ｧ'"´/　 /!　ﾊ 　ハ　 !　　iヾ_ﾉ　i　ｲ　iゝ、ｲ人レ／_ルヽｲ i　|
!イ´ ,' |　/__,.!/　V　､!__ﾊ　 ,'　,ゝ　ﾚﾘｲi (ﾋ_] 　　 　ﾋ_ﾝ ).| .|、i .||
`! 　!/ﾚi'　(ﾋ_] 　　 　ﾋ_ﾝ ﾚ'i　ﾉ　　　!Y!""　 ,＿__, 　 "" 「 !ﾉ i　|
@cho45
cho45 / gist:2107
Created Jul 24, 2008
View gist:2107
　　　 _,,....,,_　 ＿人人人人人人人人人人人人人人人＿
　-''":::::::::::::｀''＞　　　ゆっくりしていってね！！！　　　＜
　ヽ:::::::::::::::::::::￣^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^￣
　　|::::::;ノ´￣＼:::::::::::＼_,. -‐ｧ　　　　　＿_　　 _____　　 ＿_____
　　|::::ﾉ　　　ヽ､ヽr-r'"´　　（.__　　　　,´　_,, '-´￣￣｀-ゝ 、_ イ、
　_,.!イ_　　_,.ﾍｰｧ'二ﾊ二ヽ､へ,_7　　　'r ´　　　　　　　　　　ヽ、ﾝ、
　::::::rｰ''7ｺ-‐'"´　 　 ;　 ',　｀ヽ/｀7　,'＝=─-　　　 　 -─=＝',　i
　r-'ｧ'"´/　 /!　ﾊ 　ハ　 !　　iヾ_ﾉ　i　ｲ　iゝ、ｲ人レ／_ルヽｲ i　|
　!イ´ ,' |　/__,.!/　V　､!__ﾊ　 ,'　,ゝ　ﾚﾘｲi (ﾋ_] 　　 　ﾋ_ﾝ ).| .|、i .||
　`! 　!/ﾚi'　(ﾋ_] 　　 　ﾋ_ﾝ ﾚ'i　ﾉ　　　!Y!""　 ,＿__, 　 "" 「 !ﾉ i　|
@cho45
cho45 / keyscreen.rb
Last active Aug 29, 2015
一度起動したあと、「システム環境設定」→「セキュリティとプライバシー」→「アクセシビリティ」で macruby を許可する必要あり
View keyscreen.rb
#!macruby
framework "Cocoa"
class MainView < NSView
def init
super
@log = ""
end
@cho45
cho45 / lastfm_unlocalize.user.js
Created Jul 26, 2008
View lastfm_unlocalize.user.js
// ==UserScript==
// @name Last.fm unlocalize
// @namespace http://lowreal.net/
// @include http://www.lastfm.jp/*
// ==/UserScript==
location.href = "http://www.last.fm/" + location.pathname + "?setlang=en";