Skip to content

Instantly share code, notes, and snippets.

View JEEN's full-sized avatar

Jeen Lee JEEN

42 followers · 27 following
View GitHub Profile
@JEEN
JEEN / qb.pl
Created May 7, 2011 15:11
eval (($q
||=q{1; $b=qq{$
q\x7d))}. join(chr(
2 +30)x11,( ";","BEGIN" .'{$^H|=' .
( "0x800000"),q"}eval$b"));$b=~s/\e\[.* ?
m //xg;for(28,5,45,5,53,58,86,30,1, (
( 43)),58,86,30,1,53,58,31,2,43,58,31,2 ,
55,5,45,5){$~=(0,"48;5;9","48;5;1","48;5"
.";15")[$_/28];substr($b,517+$i+($_%28),0
,() ."\e[$~m");$i+=length($~)+3+($_%28) };(
@JEEN
JEEN / try-tiny.pl
Created May 30, 2011 05:45
use Try::Tiny;
print yell();
sub shout {
die "AAA";
}
sub yell {
my ($cat) = @_;
@JEEN
JEEN / try-tiny.pl
Created May 30, 2011 05:46
use Try::Tiny;
print yell();
sub shout {
die "AAA";
}
sub yell {
my ($cat) = @_;
@JEEN
JEEN / insert.pl
Created June 15, 2011 15:04
TokyoCabinet and corr
#!/usr/bin/env perl
use TokyoCabinet;
use strict;
use warnings;
use Text::CSV_XS;
$| = 1;
if(@ARGV < 1) {
print "Usage: $0 corrfile\n";
exit 1;
@JEEN
JEEN / insert.pl
Created June 15, 2011 15:58
#!/usr/bin/env perl
use TokyoCabinet;
use strict;
use warnings;
use Text::CSV_XS;
use Data::Dumper;
$| = 1;
if(@ARGV < 1) {
print "Usage: $0 corrfile\n";
@JEEN
JEEN / quiz-1.pl
Created November 21, 2011 06:46
quiz for @rumidier
my $var = { marine => [ 'corp', [ 'coast', { 'sea' => [ 0, 1, 'Yes Sir!' ] } ] ] };
@JEEN
JEEN / fucking_traitors.json
Created November 22, 2011 14:53
Traitors!!!
{"traitors":[{"l":"경북 포항시 남구·울릉군","n":"이상득","url":"http://people.search.naver.com/search.naver?sm=tab_txc&where=people_profile&ie=utf8&query=%EC%9D%B4%EC%83%81%EB%93%9D"},{"l":"비례대표","n":"김소남","url":"http://people.search.naver.com/search.naver?sm=tab_txc&where=people_profile&ie=utf8&query=%EA%B9%80%EC%86%8C%EB%82%A8"},{"l":"경북 영주시","n":"장윤석","url":"http://people.search.naver.com/search.naver?sm=tab_txc&where=people_profile&ie=utf8&query=%EC%9E%A5%EC%9C%A4%EC%84%9D"},{"l":"경기 부천시 소사구","n":"차명진","url":"http://people.search.naver.com/search.naver?sm=tab_txc&where=people_profile&ie=utf8&query=%EC%B0%A8%EB%AA%85%EC%A7%84"},{"l":"경남 김해시 을","n":"김태호","url":"http://people.search.naver.com/search.naver?sm=tab_txc&where=people_profile&ie=utf8&query=%EA%B9%80%ED%83%9C%ED%98%B8"},{"l":"경기 화성시 을","n":"박보환","url":"http://people.search.naver.com/search.naver?sm=tab_txc&where=people_profile&ie=utf8&query=%EB%B0%95%EB%B3%B4%ED%99%98"},{"l":"경남 거제시","n":"윤영","url":"http://people.search.naver.com/search.naver?sm=tab_txc&where=p
@JEEN
JEEN / gist:1413092
Created December 1, 2011 02:58
Advent 301
....
ServerName advent.perl.kr
RewriteEngine On
RewriteRule ^/2010-(.*) http://%{HTTP_HOST}/2010/2010-$1 [R=301,L]
RewriteRule ^/$ http://%{HTTP_HOST}/2011/ [R=301, L]
...
@JEEN
JEEN / adv-cal.md
Created December 10, 2011 11:31
adv-cal

Title: DBIx::Class 의 지속적인 Schema 관리를 위해서 Package: Seoul.pm Category: perl Category: Seoul.pm Author: JEEN_LEE

저자

[@JEEN_LEE][twitter-jeen_lee] - 0x1c살, 하니아빠, 키보드워리어, 영농후계자, 곶감판매업, 뿌나홀릭, silex 막내

@JEEN
JEEN / app.psgi
Created January 13, 2012 03:41
aa
use Plack::Builder;
use Bobby;
my $app = Bobby->new->to_psgi;
builder {
enable 'ReverseProxy';
$app;
};