am0c

 (
  )   this gist is posted without any special reason.
c[ ]                      ^^^^^^^ ^^^ ^^^^^^^ ^^^^^^

------------------------------------------------------------------------

struct action *action_remove_queue_head(void)
{
    if (list_empty(&action_queue)) {
        return 0;

am0c

/*
 * 구구단 출력 프로그램:
 * 1. 키보드를 통하여 입력한 단을 출력합니다.
 * 2. 입력값 허용범위(2~9)
 * 3. 입력된 값이 허용범위 값을 벗어나면... 
 *    입력 에러 메세지 출력후 다시 입력 요구를 합니다.
 * 4. 종료 문자(q) 입력시까지 반복합니다.
 * 5. 반복문은 while문과 for문 두개를 사용해서 코딩합니다.
 * 6. 프로그램이 실행되면 최초 한번만 실행 화면과 같이 출력합니다.
 * 

am0c

#!/usr/bin/env perl
#
# 질문에 대한 정확한 답변을 위한 코드가 아님
#
use 5.010;
use warnings;
use strict;
use Data::Iter qw(:all);

my $s = '---- -- ----- ------- ---';

am0c

#!/usr/bin/env perl
use 5.010;
use warnings;
use strict;
use String::Diff;
use Term::ANSIColor;
use Encode;

print "line1: ";
chomp(my $line1 = readline *STDIN);

am0c

#!/usr/bin/env perl
#
# NateOn 보낸쪽지/받은쪽지 export 한 것을
# 하나로 뭉쳐주는 스크립트.
#
# 스크립트 파일과 입력파일은 UTF-8 가정
#
# 왜 이렇게 작성했는지 따지지 말아주세요.
# 저도 급해서 10분안에 날려 작성한 겁니다.
# 

am0c

#include <stdio.h>
#include <stdlib.h>
#include <stdint.h>
#include <string.h>

#define TEST_STR         "ABCD"
#define TEST_STR_SIZE    5
#define TEST_INIT()      \
     origin = malloc( TEST_STR_SIZE ); \
     p = origin; strncpy(p, TEST_STR, TEST_STR_SIZE);

am0c

--------------

#!/usr/bin/env perl
use warnings;
use strict;
use CHILD;
exported_ok();

--------------

am0c

#!/usr/bin/env perl
#
# Jubeat Evans Play Simulation
# -----------------------------
#
#
use Time::HiRes qw(usleep);
use List::Util qw(sum);
use warnings;
use strict;

am0c

#!/usr/bin/env perl
#
# Code Duplication Analyzer
# --------------------------
#
# Qui-Quic-Quick-and-Dirty-ly coded and
# I noticed that this approach does not
# return the trustful results.
#
#

am0c

#!/usr/bin/env perl
#
#  隅田川夏恋歌
#  ************
#
#
use strict;
use warnings;

sub get_line {