동글동글 라이프

perl을 처음 배우는 분들에게 간단한 개념을 설명하기 위해 예전에 잠시 정리했던 문서를 블로그에 옮긴다. 이 문서는 perl의 배열의 특징 설명을 위해 C언어의 배열과 비교, 분석을 하였다. 혹시나 perl의 장점 위주로 설명한다고 해서 perl이 언어로써 우위를 점한다는 극단적인 흑백논리에는 빠지지 않기 바란다. 배열의 선언 및 크기 지정 C언어에서는 배열을 선언할때는 변수의 뒤에다 [ ] (괄호)을 붙여 변수의 크기를 지정한다. int Array[10] ; // 정수형 배열 10개 생성 처음 선언을 배열의 크기를 지정해 줘야 하며 한번 정한 크기는 변경을 할 수 없다. 그러므로 배열을 처음 선언을 할 때 적당한 크기를 지정해 주어야 하며 배열보다 많은 크기의 데이터를 입력했을 경우에 운영체제가 예외..

http://www.perl.com/pub/a/2008/05/07/beginners-introduction-to-perl-510-part-2.html?page=2 perl에 대한 공부를 처음 시작할 때 www.perl.com 에 놀러갔다가 이 문서를 정리하는것이 좋겠다 라는 생각이 들어 번역을 시도했다. 번역하다보니 내 맘대로의 해석이 되는듯 하여 오역이 많을것이라 예상 중 ㅡ_ㅡ; = More fun with strings 문자열을 쉽고 재미있게 다루기 위해 perl은 3개의 함수 substr(), split(), and join() 를 제공한다. 만약 문자열의 한부분을 쉽게 바꾸려 한다면... substr 함수를 사용해라. substr함수는 2개 또는 3개의 매개변수를 사용되는데 첫번째 매개변수는 문..

1. More on Signal Handlers - 스킵 +_+ 쿠쿠쿠 2. An Upgrade Hello World 얼마전에 만든 Hello world 를 개선시키고 콜백함수에 대한 예제도 함께 만들어보자. 예제와 함께 위젯 패킹도 소개할 것이다. use Glib qw/TRUE FALSE/; use Gtk2 '-init'; # 새로운 콜백함수 이 함수는 데이터를 전달한다 # 모니터로 문자열을 출력해준다. sub callback { my ($button, $data) = @_; print "Hello again - $data was pressed\n"; } # 다른 콜백함수 sub delete_event { Gtk2->main_quit; return FALSE; } # 새로운 윈도우를 만든다. $wind..

지식IN에서 질문을 검색함과 동시에 답변까지 출력해주는 프로그램은 없을까? ...라는 생각이 들어 구현해 보았다. 인자값으로 한글을 받아온 뒤 URL로 검색할 수 있도록 인코딩을 하여 검색 후 10개의 리스트중 랜덤으로 하나의 질문을 골라 그 질문과 답을 출력을 해준다. 질문의 제목만 출력하도록 하였으며 답변은 모든 답변을 출력하도록 하였기 때문에 답변이 많으면 전체적으로 출력되는 내용도 길어진다. ( 이 부분이 조금 안좋은듯.. ) 보니깐 여기에 대한 좋은 모듈들이 또 많은 듯하지만... 머리의 한계로 인해... 어서어서 모듈의 어설픈 점에 대한 답글을 달아 주세요!!. 그런의미에서... Keedi님 항상 감사합니다^^; - naver.pm 1 2 3 4 5 6 7 8 9 10 11 12 13 14 1..

보호되어 있는 글입니다.

간만에 시간이 남아서 Mp3player을 만드는 작업을 하였다 Keedi님의 조언대로 File::Find를 넣어서 작성 CPAN의 SYSNOPSYS의 코드를 이해 못해 고생을 했다. use File::Find; find(\&wanted, @directories_to_search); sub wanted { ... } 부족한 느낌이 들어 적절한 예제가 있는 코드로 탐색을 시작했다. http://www.perlmonks.org/index.pl?node_id=217378 http://world.std.com/~swmcd/steven/perl/pm/find.html 영어의 압박이 있었지만 위의 두 예제를 보면 File::Find에 대한 적절한 예제를 확인 할 수 있다. 수정된 모듈 버전이 0.2로 올랐다는... ..

아직 블로그를 개설한지 열흘정도밖에 되지 않았지만 운영하면서 느꼈던 몇가지 생각들을 정리해 보려 한다. 전문성있는 블로그를 만들고 싶다 라는 생각으로 블로그를 시작하였으나 최근 올린 글들은 나만의 일기장이 되어간다는 생각이 들었다. 내가 처음 만들고자 했던 블로그는 어떤 블로그였는가를 다시한번 생각해 보았다. " 내가 생각하는 블로그란 다른 분들에게 도움이 되는 글이 적혀야 한다고 생각한다. 누구나 격었을만한 어려움들을 직접 연구하여 조금 더 쉽게 설명하여 기술하고 모르는 내용을 적지 않으며 정확하고 권위있는 지식만 전달하는 블로그를 만들고 싶다. " 좋은 내용의 글을 쓰는것은 쉽지 않다는 것을 알고있고, 시간과 공을 들여 글을 써야 좋은 글이 나온다는 것도 알고 있다. 특히 최근에 썼던 몇몇 글들은 영..

초안을 한번 잡아 보려고 한다. GTK2를 사용해서 이것저것 만들다보니 전체 틀이 나왔다. 각각의 객체를 접근하는 부분이 까다로워 고민이 들지만... 한시간만에 이렇게 만들었다는 것이 나조차도 믿기지는 않지만;; GTK2의 위대함을 엿볼 수 있는 단편적인 부분이기도 하다. 사실.. 슥삭슥삭 그려넣는... MFC와 비베가 훨신 더 편하기도... ㅡ.ㅠ 구간반복을 빼먹었...

Usage : pack Template, list unpack Template , EXPR pack 함수는 값들로 구성된 리스트를 받아서 이진구조로 변환시킨 뒤에 변환시킨 문자열을 반환하는 함수이다. 템플릿의 종류를 알아보기에 앞서 하나의 예제를 먼저 실행 하여보자. 1 2 3 4 use strict; my @list = (65..69); my $out = pack "C*",@_; print $out list에는 65부터 69까지의 숫자가 들어있다. 눈치를 채신분들은 알겠지만 저 숫자들은 아스키코드값의 10진수이고 A~E까지의 값을 차례대로 배열에 저장하였다. 이제 pack 함수를 살펴 보자. C는 unsigned 문자를 나타내고 있으며 아스키 코드값을 문자로 변환하여 반환해준다 그래서 출력되는 값은 "..

첫번째로 mp3list.pm 모듈을 만들어 보자. 이것은 해당 폴더 안에 있는 mp3파일을 모두 찾아주며 경로까지 붙여 저장 시켜주는 모듈이다. - mp3list.pm 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 package mp3list; use Exporter; use strict; use vars qw( @ISA @EXPORT_OK $VERSION ); use Cwd; @ISA = qw( Exporter ); @EXPORT_OK = qw(folder_name); $VERSION = '0.1'; sub folder_name { my $folder = shift; my @list; my $cwd = fastcwd()."/$folder"; ..