Skip to content

Instantly share code, notes, and snippets.

View aanoaa's full-sized avatar
💭
💩 💩 💩

Hyungsuk Hong aanoaa

💭
💩 💩 💩
View GitHub Profile

gh.el test

한글은?

;; This buffer is for notes you don't want to save, and for Lisp evaluation.
;; If you want to create a file, visit that file with C-x C-f,
;; then enter the text in that file's own buffer.

Catalyst::Helper::View::TTSilex

Template View Helper

why?

view 를 구성할때 매번 copy & paste 하기 귀찮아서 Helper 를 만들고 커맨드라인으로 쉽게 재사용하기 위해서 사용합니다.

나름 규약이 있습니다.

@aanoaa
aanoaa / bootstrap-pl.md
Created May 21, 2012 10:26
석가모니달력 기사

NAME

bootstrap.pl - Easily jump into a project and start contributing

SYNOPSIS

$ script/bootstrap.pl

DESCRIPTION

@aanoaa
aanoaa / bootstrap.pl
Created May 21, 2012 08:45
project initialize tool
#!/usr/bin/env perl
use strict;
use warnings;
use DBI;
use Pod::Usage;
use File::Slurp;
use Getopt::Long;
use Config::ZOMG;
use lib qw/lib/;
@aanoaa
aanoaa / index.html
Created May 14, 2012 08:38
bootstrap layout for a3r0
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="utf-8">
<title>Bootstrap, from Twitter</title>
<meta name="viewport" content="width=device-width, initial-scale=1.0">
<meta name="description" content="">
<meta name="author" content="">
<!-- Le styles -->
#!/usr/bin/env perl
use strict;
use warnings;
use Pod::Usage;
use File::Slurp;
use Getopt::Long;
my %options;
GetOptions(\%options, "--help", "--db-init");
run(\%options, @ARGV);
package Streaming;
# This example application demos simple streaming support in Catalyst
# by streaming an mp3 file to a media player. You will need to point the MP3
# variable to an mp3 file. Then access http://localhost:3000/mp3 in your
# favorite mp3 player.
#
# Works with:
# HTTP server
# CGI
<!doctype html><html>
<head>
<title>
Mojolicious - Perl real-time web framework
</title>
<link href="/css/prettify-mojo.css" media="screen" rel="stylesheet" type="text/css" />
<script src="/js/prettify.js" type="text/javascript"></script>
<style type="text/css">/*<![CDATA[*/
a { color: inherit }
@aanoaa
aanoaa / a.pl
Created February 27, 2012 13:51
use strict;
use warnings;
use JSON;
my $perl_scalar = {
foo => 1,
bar => [1, 2, 3],
baz => {
oops => {
abc => 'tiger'
}