인문학적 프로그래머 NamSa

오늘부터 몇편에 이어서 펄에 대해서 연재를 해보도록 하겟습니다. 저도 초보이기에 저 스스로 공부도 할겸 많은 분들께 펄도 알릴겸 연재를 시작합니다. 프로그래밍을 모르는 일반인도 이 글을 읽고 재미로 자신이 필요한 것들을 만들어 사용할 수 있기를 바라며 완전초보라는 관점에서 글을 연재해 나가도록 하겟습니다. 오늘은 그 첫번째 시간으로 "대체 Perl이 뭐야?" "Perl 넌 누구냐?"라는 주제로 글을 써보겠습니다. 그 전에 먼저 프로그래밍 언어에 대해 정의를 내리고 가야 겟네요. 위키디피아에서는 다음과 같이 정의를 내립니다. 프로그래밍 언어는 컴퓨터 시스템을 구동시키는 소프트웨어를 작성하기 위한 언어이다. 고급 언어일 수록 사람이 사용하는 언어와 가깝다. 일반적으로 말할 때에는 프로그래밍 언어를 지원하는 ..

PERL로 작업을 하다보면 가끔 한줄만 입력 받는 것이 아닌 여러줄을 입력 받아야 할 때가 있습니다. 이럴 때면 헉 그런 방법도 있었나? 하게 되시죠 그런데 그런 방법이 있어요. 그냥 $input = 이라고 해서 입력을 받으면 딴 한줄 받죠 그런데 여러줄을 입력 받으려면 좀 힘들어요. @input = 이라고 $을 @로 바꾸어주면 되거든요. ^^ 입력을 마칠때는 CTRL+D키를 눌러주면 되요. 프로그램이 완전 종료되는 건 아니니까 안심하고 치세요. 예제 프로그램을 볼까요? #!/usr/bin/perl use strict; use warnings; print "CTRL+D to finish\n"; my @input = ; print "Result : \n"; print "@input"; 결과 간단하죠 ^^ ..

제가 최근에 동양학쪽에 관심을 가지면서 많은 한자들을 접하게 되는데 사실 한자와는 담을 쌓고 살아왔던 인생이었기에 일일이 네이버 사전을 뒤지며 조금씩 익혀가고 있는데 영 속도가 나지 않아 좋은방법이 없을까 하다가 직접 프로그램을 만들어 보았습니다. 얼마 안걸릴줄 알았는데. 한자처리에 관한한 자료가 없어서 찾느라 시간이 좀 걸렸네요 ^^ 우분투에서 작성했구요. 윈도우 유져들은 perl설치하신뒤 사용하시면 되겟습니다. 소스는 아래에 ^^ #!/usr/bin/perl -w use strict; use LWP::Simple; use Encode qw(decode encode); my $string = ""; print "한자풀이 하고 싶은 글을 입력해주세요 : \n"; $string = ; $string = d..

이전의 perl이나 python ruby등과 비교했을때 느린감이 있네요 ^^ 아직 정식버전이 안나와서 그런듯 싶습니다만 빨리 세상에 빠르고 강력한 모습으로 돌아 왔으면 좋겟네요 살작 훌터보니 재미있는 기능들이 눈에 뛰는걸요 ^^

오랜만에 글을 써보네요 ^^ 어제부터 웬지 perl6을 깔고 싶다는 맘이 들었는데 자꾸 에러가 나서 그만둿다가 아침에 약간 달리해서 깔아보니 되는군요 ^^ $ git clone git://github.com/rakudo/rakudo.git $ cd rakudo $ perl Configure.pl --gen-parrot $ make $ make install 아래에 가면 입문자를 위한 친절한 설명이 있습니다 http://www.pti.co.il/talks/perl6/

오늘도 즐겁게 고고 .. 아래와 같은 방식으로 한 디렉토리의 파일안의 문자열을 치환 할수 있습니다 for x in `ls` do sed s#원본문짜#바꿀문자#g $x > tmp.txt mv tmp.txt $x done 한줄로 한다면 다음과 같습니다. for x in `ls` ; do sed s#db.php#head.php#g $x > tmp.txt;mv tmp.txt $x; done 쉘의 for문은 자주 사용해주지를 않으니 까먹네요

일반파일부터 xml까지 다양하게 파일에서 읽어와 사용할수 있는 설정파일들에 대한 설명들이 있다 url : PHP configuration patterns 파일을 이용한 설정파일 읽어들이기 config.txt # My application's configuration file Title=My App TemplateDirectory=tempdir

에러 메시지를 저녀 출력 안하시려면 아래와 같이 소스에 넣어주시면 되구요 error_reporting(0); 좀더 자세한 소스 자세한건 아래링크를 참고해주세요 ^^ http://www.php.net/manual/en/function.error-reporting.php

timeout 안걸어두면 한참뒤에야... 에러를 밷으면서 죽어버린다 어짜피 죽을꺼면 일찍 죽여버리자 ^^ 남자답게 카운팅하자 $sock = socket_create(AF_INET, SOCK_STREAM, SOL_TCP); socket_set_option($sock, SOL_SOCKET, SO_SNDTIMEO, array("sec" => 0, "usec" => 100)); $sc = socket_connect($sock,"localhost", "9898");

aero님의 도움으로 성공 객체를 생성하고 해쉬를 넘기는데 잘않되서 열심히 커뮤니티에 물어봐서 성공했습니다 아래는 예제 입니다 { package Person; sub new{ my $class = shift; my $self = { _firstName => shift, _lastName => shift, _hash => shift, }; bless $self,$class; return $self; } sub print{ my ($self) = shift; while(my ($key,$value) = each( %{$self->{_hash}} ) ){ print "$key is $value \n"; } } } use Data::Dumper; my $p = Person->new('first','last',{..