am0c

　　　　　　　二色

　　　　　　　　　　　 - am0c

두 학생이 교실에서 수다를 떤다.
다른 교실이어도 괜찮았으리라.

학생들이 일제히 뛰어든다.
치마가 심히 살랑인다.

am0c

It tries to install HTML::Parser instead of HTML::Entities.
But I dont know why, think this might be a bug.


$ cpanm HTML::Entities
Fetching http://search.cpan.org/CPAN/authors/id/G/GA/GAAS/HTML-Parser-3.66.tar.gz ... OK
Configuring HTML-Parser-3.66 ... OK
Building and testing HTML-Parser-3.66 for HTML::Entities ... OK
Successfully reinstalled HTML-Parser-3.66

am0c

#!/usr/bin/perl
use warnings;
use strict;
use Encode qw(encode decode);

my ($code) = @ARGV;

print encode('UTF-8', chr hex $code);

am0c

#!/usr/bin/perl -t
use warnings;
use strict;

my ($regex_string) = @ARGV;
my $regex = qr/$regex_string/i;

while (<DATA>) {
    my ($name, $code) = split "\t";
    next if $name =~ /^\[[A-Z]\]$/;

am0c

#!/usr/bin/env perl
# tests sections of pod script with perl -c syntax check.
use warnings;
use strict;
my ( @files ) = @ARGV;

require IO::Null or do { print "IO::Null cpan module is missing..\n"; exit };
require Pod::Parser or do { print "Pod::Parser cpan module is missing..\n"; exit };

@files == 0 and do { print '$ perl ./script.pl *.pod', "\n" };

am0c

<John____> 아 혹시...... 뭔좀 하나 질문 하고 가도 되나요??
<John____> 윈도우에 어플리케이션 종료를 위해 특정 시그널을 보내고 싶은데 perl 에서 가능 할까요??
<John____> 아는 지인은 api 로 만들라고 하셔서 ㅡㅡ;;;

----

<am0c> How do I send a Windows-Message in perl?
<Botje> what do you mean a windows message?
<Botje> something like NET SEND of earlier?

am0c

;; minimalist emacs configuration
;; for korean emacs starter

;; language setting
(setq default-input-method "korean-hangul")
(global-set-key (kbd "<Hangul>") 'toggle-input-method)

;; font setting
(set-default-font "Consolas-10")
(set-fontset-font t '(#x1100 . #xffdc)  '("Malgun Gothic" . "unicode-bmp"))

am0c

; http://twitter.com/#!/crowdy/status/33538661882535938
; @crowdy
;  누가 emacs에서 현재 라인이 '>edit c:\a{yyyyMM}.txt #코멘트'일 때,
;  단축키를 눌러 a201102.txt 파일을 여는(이미 열렸으면 창전환) 매크로 
;  하나만 만들어 주세요. 굽슨 굽슨 은혜는 이맥스 쓰는 동안 잊지 않겠습니다

(defun my-find-file ()
  (interactive)
  (let ((str (thing-at-point 'line)))
    (if (string-match "^>edit \\(.+?\\)\\([[:blank:]]+#.+?\\)?$" str)

am0c

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

sub get_line {

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.
#
#