sng2c

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

@EBean
public class FSM extends XFSM {

    private static final String TAG = "FSM";
    @RootContext
    Context context;

    Thread consumerThread;

    public RuleSet getRuleSet() {

sng2c

package pavo;

import java.io.*;
import java.util.*;
import javax.script.*;

public class ERB {
    
    static ScriptEngine jruby = initializeJRuby();
    

sng2c

https://passingcuriosity.com/2013/dnsmasq-dev-osx/

http://www.sitepoint.com/set-automatic-virtual-hosts-nginx-apache/

sng2c

#!/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

#!/bin/bash
# 
# Initialize new virtual server using LXC and set up networking and HTTP proxy
#
# Written by: Deni Bertovic <[email protected]>
#
# Released into Public Domain. You may use, modify and distribute it as you
# see fit.
#
# This script will:

sng2c

#!/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);

sng2c

Test::Continuous Quick Guide

참조

• CPAN : https://metacpan.org/pod/Test::Continuous
• 저장소 : https://github.com/gugod/Test-Continuous
• 소개 : http://www.slideshare.net/gugod/test-continuous

설치

sng2c

---
database:
  dsn: DBI:mysql:database=DBNAME;host=DBHOST
  userid: DBUSER
  passwd: DBPASS
  options:
    mysql_enable_utf8: 1
    mysql_auto_reconnect: 1

sng2c

#!/usr/bin/env perl
use 5.010;

my $path = '.';

my @types=qw( mov mp4 avi mkv m4v xvid divx wmv mpg mpeg );

my @files = `find $path`;
chomp(@files);