Perl/기타

1. 스페이스가 포함된 디렉토리 이름에 대해서 glob을 사용할 때

• 윈도우XP에서 테스트했음. 리눅스에서는 다를 수도.
• glob
• File::Glob
• [Glob and space in directory name - PERL Beginners]

# glob의 기본 동작은 공백을 기준으로 인자를 나누어서 "다수의 패턴"으로 간주해 버림
print join("\n", glob("C:/Documents and Settings/*"));

# 이걸 막으려면
# 안쪽에 다시 작은 따옴표를 써서 통채로 넘겨주던가
print join("\n", glob("'C:/Documents and Settings/*'"));

# File::Glob 모듈을 사용해서 기본 glob의 동작 방식을 오버라이드
use File::Glob qw/:glob/;
print join("\n", glob("C:/Documents and Settings/*"));

2. Unicode index에 해당하는 캐릭터 얻어내기

• AC00 이라는 인덱스 값이 주어졌을 때, 이 인덱스에 해당하는 유니코드 캐릭터 "가"를 얻어내는 방법?
  • Perl 코드 내에서는 "\x{AC00}"과 같이 쓸 수 있다.
  • 실행시간에 인덱스가 주어졌을 때, 값을 얻어내는 방법
    • 그냥 "\x{$index}" 형태는 안 됨
    • eval( "\"\\x{$index}\"" ) - 어째 너무 지저분하다 -_-;
    • Unicode::Char의 u() 서브루틴 - $u->u("AC00")
  • http://groups.google.com/group/comp.lang.perl.misc/browse_thread/thread/c5f29b8ecd8dd871 - 더 좋은 방법이 없는지 comp.lang.perl.misc에 문의
    • 으악, chr 함수가 유니코드 인덱스를 인자로 받는구나.. chr($index) 하면 끝;

3. 잡다한 것들

• Raymundo : [Painless RSS processing with Mojo | brian d foy -- blogs.perl.org] - 2012-4-9 11:45 pm
• Raymundo : [Defending Against Its Dynamic Scope - Modern Perl Books for modern Perl programming] - map 블록 안에서 다른 서브루틴을 부르다보면 $_가 바뀌어버릴 수 있으니 주의. - 2012-4-10 9:33 pm

4. Comments