Skip to content

Instantly share code, notes, and snippets.

View keedi's full-sized avatar

Keedi Kim keedi

96 followers · 119 following
  • Silex
  • Seoul.pm
View GitHub Profile
@keedi
keedi / check-modules.pl.pl
Created February 12, 2013 11:01
Created by www.tryperl.com.
#Created by tryperl.com
use 5.010;
use strict;
use warnings;
use ExtUtils::Installed;
my $i = ExtUtils::Installed->new;
printf "%-40s %s\n", $_, $i->version($_) for $i->modules;
@keedi
keedi / vote2.pl
Created December 19, 2012 12:01
#!/usr/bin/env perl
use 5.010;
use utf8;
use strict;
use warnings;
use Text::Trim;
use Try::Tiny;
use Web::Query;
@keedi
keedi / vote.pl
Created December 19, 2012 09:55
#!/usr/bin/env perl
use 5.010;
use utf8;
use strict;
use warnings;
use Web::Query;
my $url = 'http://info.nec.go.kr/electioninfo/electionInfo_report.action?electionId=0020121219&requestURI=%2Felectioninfo%2F0020121219%2Fvc%2Fvcvp01.jsp&topMenuId=VC&secondMenuId=VCVP&menuId=VCVP01&statementId=VCVP01_%231&sggTime=20%EC%8B%9C&cityCode=0&timeCode=0&x=34&y=18';
@keedi
keedi / 11_cpu_powersave
Created December 6, 2012 15:24
sony vaio - /etc/pm/sleep.d/11_cpu_powersave
#!/bin/sh
case "${1}" in
resume|thaw)
cpufreq-set -c 0 -g powersave
cpufreq-set -c 1 -g powersave
cpufreq-set -c 2 -g powersave
cpufreq-set -c 3 -g powersave
@keedi
keedi / 10_disable_radeon
Created December 6, 2012 15:23
sony vaio - /etc/pm/sleep.d/10_disable_radeon
#!/bin/sh
case "${1}" in
resume|thaw)
echo OFF > /sys/kernel/debug/vgaswitcheroo/switch
modprobe -r radeon
;;
esac
@keedi
keedi / rc.local
Created December 6, 2012 15:22
sony vaio - /etc/rc.local
#!/bin/sh -e
#
# rc.local
#
# This script is executed at the end of each multiuser runlevel.
# Make sure that the script will "exit 0" on success or any other
# value on error.
#
# In order to enable or disable this script just change the execution
# bits.
@keedi
keedi / gist:4030374
Created November 7, 2012 09:27 — forked from JEEN/gist:4015791
티타임 #5 타임테이블
#perl-kr 티타임 #5 타임테이블
19:25 - 19:30 : 개회사(@y0ngbin)
19:30 - 20:00 : Perl6 이야기 (@am0c)
20:00 - 20:30 : ISUCON2 리뷰 (@JEEN_LEE)
20:30 - 20:50 : 휴식
20:50 - 21:20 : 펄 커뮤니티에 제언 (@JellyPooo) - Advent Calendar 이렇게 했으면 좋겠다.
21:20 - 21:55 : 조별대담 겸 @yuni_kim 에게 묻는 미국 IT, Perl
21:55 - 22:00 : 폐회사 (@y0ngbin)
@keedi
keedi / app.psgi
Created October 29, 2012 18:19 — forked from hdp/app.psgi
# vim: ft=perl:
use strict;
use warnings;
use Plack::Builder;
use Plack::App::WrapCGI;
use Plack::App::URLMap;
builder {
enable 'Static',
@keedi
keedi / anyevent.html
Created October 22, 2012 08:59 — forked from asergeyev/anyevent.html
Anyevent example for websockets to support old websocket proto from some agents (Safari, Chrome on Google TV)
<!DOCTYPE html>
<!-- mostly borrowed from Mojo -->
<html>
<head>
<title>WebSocket</title>
</head>
<body>
Testing WebSockets, please make sure you have JavaScript enabled.
@keedi
keedi / gist:3922144
Created October 20, 2012 05:30
KWP 2012

KPW2012 Schedule

본 세션

Perl 101 - @aer0

14:30 - 14:50 (20분)