Skip to content

Instantly share code, notes, and snippets.

View dameninngenn's full-sized avatar

ダメ人間 dameninngenn

46 followers · 29 following
View GitHub Profile
@dameninngenn
dameninngenn / test
Created September 22, 2010 08:59
　　　　　　　＿＿＿_　　　　　　　　 ／￣￣￣＼
　　 　 　 ／＿＿＿　＼　　　　　　/　 ＿＿＿　ヽ
　　　　／　 |´・ω・`|　 ＼　　　　/　　 |´・ω・`|　＼　みんな～
　　 /　　　　￣￣￣　　　＼　　/ _,　　　￣⊂二二)
　　 |　 i　　　　　　　　　　ヽ､_ヽl　|　　　　　　　　|
　　└二二⊃　　　　 　 　 l　∪　 |　　　 　 　 　 |
　　　　 |　　　,､___,　　　　ノ　　　　|　　　 ,、　　　|
　　　　 ヽ＿二コ/　　 ／　　　　　ヽ　　/　＼　 /
　　 _＿＿＿＿/__／´　　　　　＿＿ヽノ＿___｀´
@dameninngenn
dameninngenn / output_swf_version
Created November 30, 2010 07:04
output swf version
perl -MSWF::Header -le "print SWF::Header->read_file(@ARGV[0])->{'version'}" SWF_FILEPATH
@dameninngenn
dameninngenn / swf_header
Created November 30, 2010 07:19
output swf_headers
perl -MData::Dumper -MSWF::Header -le "print Dumper(SWF::Header->read_file(@ARGV[0]))" SWF_FILEPATH
@dameninngenn
dameninngenn / epoch2ymdhis
Created December 1, 2010 09:37
epoch to yyyy/mm/dd HH:ii:ss
perl -le '@t=localtime($ARGV[0]);printf ("%d/%02d/%02d %02d:%02d:%02d",$t[5]+1900,$t[4]+1,@t[3,2,1,0]);' EPOCH
@dameninngenn
dameninngenn / gist:744697
Created December 17, 2010 09:21
vcs_info
autoload -Uz vcs_info
precmd_vcs_info () {
psvar=()
LANG=en_US.UTF-8 vcs_info
if [[ -n "$vcs_info_msg_0_" ]]; then
alias hoge='echo "in git work dir"'
else
alias hoge='echo "not git work dir "'
fi
}
@dameninngenn
dameninngenn / fizzbuzz
Created January 24, 2011 12:30
I'm sorry...
#!/usr/bin/env perl
# 3523172727132552732735552732735127325175252235217527327355527327351
# 5008808017000300000000300000000500000000552032707000000003000000005
# 3825723271305527327300527327300203251700713055201273273005273273002
# 5023271325301273251002273251002703227002535027305732510022732510027
# 1000808772703255270051255270051200000073273012702552700512552700512
# 1825527327301272500727272500727102271005351013207725007272725007271
# 1072713255203251003251251003251703273200132035105510032512510032517
# 2032271325301710055273710055273202512730017032705100552737100552732
@dameninngenn
dameninngenn / aa
Created January 24, 2011 15:56
aa
　　：/＼＿＿_／ヽ .
..：／''''''　　　'''''':::::::＼：
：.| （◯）,　　 ､（◯）､..::|：
：.|　" ,,ﾉ(､_, )ヽ､,,""..:::|：
：.|　　 ´,rｪｪｪ､｀　.:::::::::|：
：.＼　　|,ｒ-ｒ-|　 .:::::／…
：／　 ヾ｀ﾆﾆ´　／￣"''''ヽ：
@dameninngenn
dameninngenn / cp932 to utf-8
Created April 1, 2011 06:50
cp932 to utf-8 for utf-8's file
:e ++enc=utf-8
@dameninngenn
dameninngenn / mechanize_for_sjis_multibyte_form
Created May 25, 2011 11:00
mechanize_for_sjis_multibyte_form
my $contents_url = 'http://hoge';
$mech->get($contents_url);
my $form = $mech->form_name('frm1');
$form->accept_charset('shiftjis');
$mech->submit_form(
fields => {
contents_id => 'hogehoge',
},
@dameninngenn
dameninngenn / git_log_sum_ex
Created August 16, 2011 10:49
git log sum example
% git log --stat --author=dameninngenn --since="2011-07-15" --before="2011-08-15" --no-merges | grep 'files changed' | awk '{ins += $4}{del += $6} END{print "total: "ins"insertions(+) "del"deletions(-)"}'
> total: 3385insertions(+) 1089deletions(-)