unstabler

#!/usr/bin/env perl
package Cranberry;
use 5.010;
use strict;
use warnings;

use HTTP::Status qw/status_message/;
use HTTP::Request;
use HTTP::Response;
use IO::Socket;

unstabler

#!/usr/bin/env perl
use utf8;
use strict;
use warnings;
use Encode qw/decode/;

binmode STDOUT, ":utf8";
local $| = 1;

my $enc = ($ARGV[0]?$ARGV[0]:"cp949");

unstabler

#!/usr/bin/env perl
use 5.014;
use strict;

my $switch = $ARGV[0];

my $battery_state = `acpi`;
if ($battery_state =~ m{Battery \d: (?<status>\w+), (?<percentage>\d+)}) {
    my ($status, $percentage);
    $percentage = $+{percentage};

unstabler

[카카오톡 ShadowWnd / EdgeWnd 숨겨버리기]
Description=카카오톡 ShadowWnd / EdgeWnd 숨겨버리기
skippager=true
skippagerrule=2
skipswitcher=true
skipswitcherrule=2
skiptaskbar=true
skiptaskbarrule=2
title=KakaoTalk(Shadow|Edge)Wnd
titlematch=3

unstabler

[LINE 테두리 없애버리기]
Description=LINE 테두리 없애버리기
clientmachine=cheesepc
clientmachinematch=0
ignoregeometry=true
ignoregeometryrule=2
minimize=true
minimizerule=2
size=0,0
sizerule=2

unstabler

Twitter公式クライアントのコンシューマキー

Twitter for iPhone

Consumer key: IQKbtAYlXLripLGPWd0HUA
Consumer secret: GgDYlkSvaPxGxC4X8liwpUoqKwwr3lCADbz8A7ADU

Twitter for Android

Consumer key: 3nVuSoBZnx6U4vzUxf5w
Consumer secret: Bcs59EFbbsdF6Sl9Ng71smgStWEGwXXKSjYvPVt7qys

Twitter for Google TV

Consumer key: iAtYJ4HpUVfIUoNnif1DA

unstabler

#!/usr/bin/env perl
# nicodownload.pl
# 니코니코 동화의 동영상을 다운받아 줍니다.
# 사용 전에 환경 변수 $NICOVIDEO_USERNAME에는 사용자 ID, $NICOVIDEO_PASSWORD에 비밀번호가 지정되어 있어야 합니다.
# 기본적으로는 이코노미(저화질) 모드에서 동영상은 다운로드 받지 않지만, --accept-economy 옵션을 넣으면 강제로 다운받도록 합니다.
# --force-economy 옵션으로 강제로 저화질로 다운로드받을 수 있습니다.
# --write-to-stdout로 표준 출력으로 동영상 파일을 쓰도록 할 수 있습니다. ㅜ

use 5.010;
use utf8;

unstabler

#!/bin/sh
for file in *.avi
do
    file_without_ext=$(echo "$file" | sed -e 's/\.avi//')
    subtitle="$file_without_ext.smi"
    outfile="$file_without_ext.ts"
    if ! [ -f "$subtitle" ]
    then
        echo "자막 파일 $subtitle 이 존재하지 않습니다! 다음으로 넘어갑니다.." | tee -a encode.log
        continue

unstabler

#!/bin/sh

OUTFILE=$1
if [ -z $OUTFILE ]
then
    OUTFILE='out.mp4'
fi

XWININFO=$(xwininfo -frame)
WINDOW_RES=$(echo $XWININFO | perl -ne 'print $1 if /geometry\s+(\d+x\d+)/')

unstabler

#!/usr/bin/env perl
#
# ffcaputre.pl       
#  - by unstabler / cheesekun (doping.cheese@gmail.com)
#    http://unstabler.pl / twitter: @unstable_cheese
#
# ffmpeg를 이용하여 X 윈도우의 화면을 쉽게 동영상으로 캡쳐할 수 있도록 도와주는 스크립트입니다.
#
# TODO : 특정 영역 녹화 추가 ($ ffcapture.pl -x 0 -y 0 -w 1280 -h 720 out.avi)