Skip to content

Instantly share code, notes, and snippets.

View sng2c's full-sized avatar

sng2c sng2c

49 followers · 30 following
View GitHub Profile
@sng2c
sng2c / play_range.html
Last active November 8, 2017 13:20
<!DOCTYPE html>
<html>
<head>
<title>S2V</title>
<style type="text/css">
#player {
width: 500px;
height: 500px;
background-color: #000000;
}
@sng2c
sng2c / fork_test.php
Created July 19, 2017 06:36
<?php
$pids = [];
for($i=0; $i<10; $i++){
$pid = pcntl_fork();
if( $pid == -1 ){
die('could not fork');
}
if( $pid ){ # 부모 : 자식 PID 누적
@sng2c
sng2c / detect_template.pl
Created June 23, 2017 10:01
# try this!!
use Template::Reverse;
use Data::Dumper;
use utf8;
binmode(STDOUT,':utf8');
my $rev = Template::Reverse->new;
# generating patterns automatically!!
my $str1 = [split(/(\s)/,"안녕하세 저는 김현승 입니다.")];
my $str2 = [split(/(\s)/,"반갑습니다 저는 박연건 입니다.")];
@sng2c
sng2c / sym.pl
Last active June 22, 2017 10:02
use v5.10;
sub ok{
print $_[0]?"OK":"FAIL";
print "\n";
}
sub make_sym{
state %symbols;
my ($sym) = @_;
$symbols{$sym} = \$sym unless $symbols{$sym};
return $symbols{$sym};
@sng2c
sng2c / FSM.java
Last active March 15, 2016 01:59
XFSM example for Android with Android Annotations
@EBean
public class FSM extends XFSM {
private static final String TAG = "FSM";
@RootContext
Context context;
Thread consumerThread;
public RuleSet getRuleSet() {
@sng2c
sng2c / ERB.java
Created February 3, 2016 09:28 — forked from ato/ERB.java
JRuby
package pavo;
import java.io.*;
import java.util.*;
import javax.script.*;
public class ERB {
static ScriptEngine jruby = initializeJRuby();
@sng2c
sng2c / link.md
Created January 14, 2016 12:07
osx에서 특정디렉토리 밑으로 자동 vhost하기
@sng2c
sng2c / mojo.pl
Last active August 29, 2015 14:24
SCRIPT_NAME 가 더 일반적인듯..
#!/usr/bin/env perl
use Mojolicious::Lite;
use Scalar::Util 'weaken';
hook( before_dispatch => sub {
use Data::Dump;
my $self = shift;
my $uri = $self->req->headers->header('SCRIPT_NAME');
@sng2c
sng2c / create-new-lxc.sh
Last active August 29, 2015 14:12 — forked from senko/create-new-lxc.sh
#!/bin/bash
#
# Initialize new virtual server using LXC and set up networking and HTTP proxy
#
# Written by: Deni Bertovic <deni.bertovic@dobarkod.hr>
#
# Released into Public Domain. You may use, modify and distribute it as you
# see fit.
#
# This script will:
@sng2c
sng2c / find.pl
Last active January 4, 2016 16:08
#!/usr/bin/env perl
use 5.010;
use strict;
use List::MoreUtils qw/zip/;
use Math::Base::Convert qw(cnv);
use Data::Dumper;
my $res = 45;
my @nums = qw(9 2 11 13 6 3);
my $max = 4 ** (@nums-1);