Skip to content

Instantly share code, notes, and snippets.

View aero's full-sized avatar

aero aero

71 followers · 109 following
  • Seoul, Republic of Korea
View GitHub Profile
@aero
aero / gist:5cbb4823180bf1bb9438
Last active August 29, 2015 14:21 — forked from krimdomu/gist:6080102
Rex(Net::OpenSSH) and Expect, http://modules.rexify.org/module/Rex::Commands::Expect 도 참고
# Rexfile
use Expect;
set connection => "OpenSSH";
my $expect_timeout = 5;
my $git_password = 'f00b4r';
my $sudo_password = 'test';
@aero
aero / json_ordered.pl
Last active August 29, 2015 14:20 — forked from olegwtf/json_ordered.pl
json을 읽어 원래 json 필드 순서 유지
use strict;
use Tie::IxHash;
use JSON::PP;
# magic start
my $obj_parser_sub = \&JSON::PP::object;
*JSON::PP::object = sub {
tie my %obj, 'Tie::IxHash';
$obj_parser_sub->(\%obj);