리버's 아름다운 소풍

성내도서관 문화특강 '그림책, 음악을 만나다.'

(리버) — Sun, 29 Jun 2008 21:50:42 +0900

성내도서관에 김영욱님의 '그림책, 음악을 만나다' 문화 특강이 있어서 간만에 애들 데리고 방문을 했다. 둘째가 자꾸 나가자고 보채서 강의는 몇분 듣지는 못해서 내용이 이렇다 저렇다 말할 수는 없지만 도서관이 단순히 책만 보는 곳이 아니라 여러 가지 문화를 접할 수 있도록 꾸준히 노력하는 성내도서관의 모습은 정말 칭찬받아 마땅하다고 본다.

올 여름은 성내천 물놀이장에서 저렴하게

(리버) — Mon, 23 Jun 2008 13:16:46 +0900

작년에 올팍북2문에서 마천동까지 성내천 자전거 탐사를 하면서 봐두었던 성내천 물놀이장에 애들 데리고 가봤다. 입장료도 없고, 탈의실, 샤워장도 있고 애들 놀기에는 정말 딱인것 같다. 그리고 물이 깊지 않아서 위험해 보이지는 않았지만 안전요원들도 꽤 많아 보였다. 이번 여름은 이곳에서 저렴하게 더위를 피하는 것도 좋을 듯하다.

성내천 벽천이다. 정말 물이 시원하게 퀄퀄 뿜어 내려오고 있었다. 여기에도 애들이 물놀이를 하고 있었다.

성내천을 따라 집으로 돌아오면서 본 엄청 큰 이름 모를 물고기며 들꽃, 토끼풀, 연꽃 등은 도시의 삭막함을 좀 사그러지게 하는 것 같았다.

[MS Sql] 여러 레코드를 하나의 문자열로 합치기

(리버) — Sat, 21 Jun 2008 23:37:08 +0900

특정쿼리의 결과 레코드를 하나의 문자열, 특히 CSV(Comma Separaed Value) 형태로 바꾸는 방법은 여러가지가 있는데 이를 정리해 보고자 한다.

Rowset sting concatenation : Which method is best ?

scalar UDF 방법

USE pubs GO CREATE FUNCTION dbo.ConcatAuthors(@State CHAR(2)) RETURNS VARCHAR(8000) AS BEGIN DECLARE @Output VARCHAR(8000) SET @Output = '' SELECT @Output = CASE @Output WHEN '' THEN au_lname ELSE @Output + ', ' + au_lname END FROM Authors WHERE State = @State ORDER BY au_lname RETURN @Output END GO

이 함수의 실제 사용은

SELECT DISTINCT State, dbo.ConcatAuthors(State) FROM Authors ORDER BY State

temp 테이블 사용 방법

CREATE TABLE #AuthorConcat ( State CHAR(2) NOT NULL, au_lname VARCHAR(8000) NOT NULL, Ident INT IDENTITY(1,1) NOT NULL PRIMARY KEY ) INSERT #AuthorConcat ( State, au_lname ) SELECT State, au_lname FROM Authors ORDER BY State, au_lname DECLARE @Authors VARCHAR(8000) SET @Authors = '' DECLARE @State CHAR(2) SET @State = '' UPDATE #AuthorConcat SET @Authors = au_lname = CASE WHEN @State = State THEN @Authors + ', ' + au_lname ELSE au_lname END, @State = State SELECT State, MAX(au_lname) FROM #AuthorConcat GROUP BY State

오션월드

(리버) — Tue, 17 Jun 2008 15:10:09 +0900

토요일에 오션월드를 다녀왔다. 아직 비성수기라 많이 붐비지 않아서 좋았고, 가격도 할인해서 2만원 선으로 들어갔느데 이 정도면 적당한 가격인 것 같다.

오션월드 입구이다. 여기서 소지품 검사를 하는데, 좀 챙피한 애기지만 우리가족은 약간의 간식 거리를 들키지 않고 통과할 수 있었다. 식당은 역시 비쌌다.

물썰매장.

익스트림 리버풀이다. 꽤 재미있었다. 길이도 길고.

국내 최대 8피트 V파도라고 이효리가 광고를 했던 야외 파도풀.

야외의 익스트림존은 주로 젊은층이, 실내시설은 어린이들이 놀기에 좋았고, 나이드신 분들도 야외 스파가 잘되어 있어서 가족단위로 놀이하기에는 정말 괜찮은 물놀이 시설인것 같다.

열심히 살아야지.

(리버) — Wed, 11 Jun 2008 03:39:09 +0900

술한잔(?) 먹고 집에 들어와 컴퓨터를 켰다. MBC 미니 위젯을 쓰고 있어서 로그인 하면 자동으로 MBC FM을 들을 수 있다. 근데 낯익은 박명수 목소리. 낯 두시의 테이트를 진행하고, 내가 요즘 잘 듣고 있어서 이 시간에 왠 박명수?. 근데 문지애 아나운서 진행에 게스트로 이 늦은 시간에 나와서 방송을 하고 있는거다. 뭐 여러가지 잣대를 떠나서 난 정말 반가운 목소리를 이시간에 들을 수 있어서 좋았고, 정말 열심히 사나보다 생각이 들었다. 누구는 이 시간까지 술먹다가 이제야 들어오고.. 좀 반성을 해야지..

두시의 데이트를 회사에서 계속 듣고 있다. 좀 중도성이 있는 방송.. 주말에도 두시에 라디오를 켜보지만 그 때는 붐이 진행을 하더라고. 여튼 열심히 하는 사람을 누가 뭐라고 할 수 있을까? 오늘 정말 감동먹었다.

MySQL의 MYISAM과 InnoDB 타입의 성능비교

(리버) — Wed, 04 Jun 2008 10:11:37 +0900

제목이 너무 거창한데 어제 처음으로 MS SQL Server에서 MySQL로 데이타 복사를 하면서 느낌 점을 적어보자 한다.

MS SQL Server에 40만건의 데이타를 갖고 있는 테이블을 DTS를 이용해서 MySQL ODBC 3.51 드라이버를 이용하여 Export를 시작했다. 근데 영 속도가 안나오는 거다. 1시간정도 경과, 9만건의 데이타가 복사됐다. 와! 너무 느렸다. 모두 복사되려먼 4시간을 더 기다려야 하는데 이건 내가 뭔가 설정을 잘못했을 거야 생각하고 Export를 중단하고 여러가지를 체크해봤다.

MySQL에 생성된 테이블 형태를 보니 InnoDB 형태였다. 트랜잭션을 지원하는 게 InnoDB라고 알고 있는 나로서는 굳이 트랙잭션이 필요없어서 이를 MYISAM 타입으로 바꿔서 다시 Export를 시도해보았다. 엄청나게 빨라진 복사 속도. 5분도 안되서 40만건이 데이타가 복사됐다.

InnoDB로는 40만건의 데이타를 Insert하는데 5시간정도가 걸리고, MYISAM 형태로는 5분미만이 걸린다는 결론. 내가 MySQL을 잘 몰라서 다른 고려 사항도 있겠지만, InnoDB는 Insert시 확실히 느렸다. MySQL 버전 5부터 InnoDB 성능이 많이 향상됐다고 들었는데, 내가 체험해보기에는 MYISAM보다는 Insert에서 만큼은 차이가 많이 났다.

Daum UI DevDay 2008 참석합니다.

(리버) — Tue, 27 May 2008 15:45:59 +0900

오늘 2시에 다음에서 Daum UI DevDay 2008 참가자 발표를 했다. 조마조마한 마음에 참가자 목록을 보니 네번째에 내 이름이 올라가 있었다. ㅋㅋ 이렇게 기쁠수가. 참가해서 유익한 시간을 가져봐야 겠다.

수락산 - 악악악

(리버) — Sun, 25 May 2008 16:55:00 +0900

수락산에 다녀왔다. 첫 수락산행. 12시경 수락산역에서 부터 출발해서 5시에 다시 수락산역에 떨어졌다. 많이 힘들었다. 너무나 더웠고. 아마 당분간은 이 산을 찾지는 않을 듯하다.

깔딱고개 까지는 그냥 경사가 좀 있는 그리 힘들지 않은 산행이었다. 하지만 이후부터는 줄을 잡고 올라가야만 했다. 줄 너무 싫다.

멀리 정상암벽이 보인다.

줄을 잡고 가다가 나타난 계단. 계단이 이렇게 반갑기는 처음인 것 같다. 계단이 생긴건 얼마 되지 않은 것 같고, 지금도 계속 공사를 하고 있는 것 같다.

풍화작용에 의한 것인지 모를 좀 특이하게 생긴 돌.

수락산의 암벽은 정말 절경이다. 이 암벽은 정말 아슬아슬하게 매달려 있는 느낌을 받았다. 언제 굴러떨어질지 ...

공기가 맑지 않아서, 멀리까지는 보이지 않았다. 도봉산도 보인다고 들었는데 찾을 수가 없었다.

철모바위. 우린 여기가 정상인 줄 알았다. 하지만 5분 더가면 태극기가 꽃혀있는 정상이 따로 있다는 주의 분들의 말에 다리에 힘이 쫙 빠졌다.

드디어 도착한 해발 637미터의 수락산 정상. '락'이나 '악'자가 들어간 산은 험하다고 하는 말이 사실임을 느끼게 한 수락산. 하지만 험한 만큼 수락산의 암벽은 절경이었다.

이씨플라자 식구들이랑 함께 한 산행 사진들

(리버) — Wed, 21 May 2008 23:28:45 +0900

이번주 토요일에는 수락산을 다녀올까 한다. 산행 공지하면서 지난번에 올린 이씨플라자 식구들이랑 함께 한 스키장 사진들에 이어 이제껏 다녀온 등산 사진을 모아 봤다. 토요일날 비가 온다는 얄궂은 소식이 있던데, 부디 비가 오지 않기를...

바보들은 항상 같은 생각만 한다 - 스가노 타이조

(리버) — Sat, 17 May 2008 23:17:25 +0900

처지가 바뀌면 보는 눈도 달라진다

"앞에 버튼이 달린 브래지어에 대해 짤막하게 정의해보세요."
이 질문에 즉시 대답해보자. 특별히 재치 있는 대답을 하란 말이 아니니 편안하게 생각나는 대로 대답하면 된다.
"앞에 버튼이 달린 브래지어는 앞에서 잠그느 브래지어입니다."
이렇게 대답하는 사람이 있다. 물론 정답이다.
하지만 이렇게 대답하는 사람이 있다.
"그건 앞에서 여는 브래지어죠."
이 말도 정답이다.
여기에서 재미있는 점은 '앞에서 잠그다'라고 대답하는 사람은 대부분 여성이고, '앞쪽에서 연다'라고 말하는 사람은 거의 남성이라는 점이다.
누구나 자신의 처지에 따라 사물을 보는 눈이나 사고방식이 달라진다. 또한 대부분의 사람들은 그 처지에서만 보려고 한다.
그래서 아무리 자신의 판단이 객관적이고 공평하다고 생각해도 이미 만들어진 '틀'(고정관념)에서 벗어나진 못한다.
누구든 자신이 잘못 계산한 답을 놓고 아무리 전자계산기로 검산을 해도 어디가 틀렸는지 깨닫지 못한 경험이 있을 것이다. 문장을 잘못 썼을 때고 그렇다. 그렇기 때문에 교정은 다른 사람에게 부탁하는 게 좋다.
아무리 애를 써도 자신도 모르게 한쪽으로 치우쳐서 생각하고 만다. 자신은 몰랐던 실수를 다른 사람은 금방 발견한다. 자신은 그제야 깨닫는다.
모든 일이 그렇다. '나 혼자서 한다' '나 혼자 생각한다'는 자세는 그것이 아무리 훌륭하다고 해도 독선에 빠지기 쉽다.

몰입의 세계를 맛보자

미국의 유명한 프로 골퍼인 잭 니클라우스가 중요한 시합에서 결정적인 퍼트를 넣으려던 바로 그때였다. 때마침 바람이 블어와 니클라우스의 모자를 날려버렸다. 많은 사람들이 깜짝 놀랐지만 니클라우스는 아무 일도 없다는 듯이 퍼트를 넣었다. 이것은 그 사람의 성격이 태평스러워서가 아니라 사실 니클라우스는 모자가 날아간 줄도 모르고 경기에 임했던 것이다.
집중력을 강조하는 이야기이다. "어떤 고난을 당해도 그것을 초월하여 염두에 두지 않으면 괴로움을 느끼지 않는다"는 말처럼 우리는 그런 정신 상태를 만들 수 있다. 그러나 잡념을 다스리기는 너무 어렵다는 사실도 잘 알고 있다.
가장 편안한 마음의 상태는 한 가지 일에 몰두해서 그 일에 빠져 있을 때이다. 그럴 때는 쓸데없는 생각은 하지 않기 때문이다. 물론 걱정거리도 사라진다. 가장 쉽게 그런 상태에 빠지는 경우는 잠을 잘 때인데, 스트레스를 받고 있을 때는 악몽을 꾸는 일도 있으므로 무조건 좋은 상태라고도 할 수 없다.
그래서 누구나 쉽게 '몸과 마음이 하나'가 되는 방법을 이야기하려고 한다. 그것은 바로 몸을 움직이는 것이다. 스트레스를 풀기 위해 많은 사람들이 부지런히 운동을 하는 것은 극히 자연스러운 결과이다.
하지만 골프 같은 운동은 몸을 움직이는 시간보다 생각하는 시간이 훨씬 많으므로 한 가지 일에 몰두한 상태라고 말하기 어렵다. 오히려 고민의 씨앗을 키우는 사람도 많다.
한 가지 일에 몰두할 수 있는 운동 중에 비교적 손쉽게 할 수 있는 것은 스키이다. 물론 스노우 보드도 좋다. 대개 짜릿함과 속도감을 만끼할 수 있는 운동이야말로 아무 생각도 하지 않게 해준다. 단지 눈앞에 있는 비탈길을 미끄러져 내려가는 것에만 집중하고 다른 것은 조금도 생각하지 않는 상태, 확실하게 몸과 마음이 하나가 된 몰입의 세계. 그런 세계를 경험하는 것만으로도 가치가 있다.

말은 상대방이 받아들여야만 의미가 있다.

"역시 이것뿐이었군."
상대방의 입에서 이런 말이 나왔다면 그것은 최종적인 결론이다. 어떤 도움말을 듣고 "역시...인가?"에 도달했다면 그것은 가장 이상적인 도움말이라고 할 수 있다. 단, 그런 말을 하려면 인간 관계를 깊이 꿰뚫는 능력이 있어야 한다.
먼저 도움말이란 결코 '올바른 의견'을 늘어놓는 것이 아니다. 이를테면, 화사를 그만두고 싶어하는 부하 직원이 있다고 하자. 어려운 상담이다. 이런 일을 상담해야 하는 쪽의 반응은 대개 비슷하다. 보통 이렇게 말한다.
"글쎄요, 그만두는 건 언제든지 할 수 있으니까 천천히 생각해보죠?"
아이가 학교를 그만두고 싶다고 말할 때 부모나 교사가 빼놓지 않고 쓰는 대사이기도 하다. 이런 말에 대해서 대부분의 경우, 상담을 부탁한 쪽은 골탕을 먹은 느낌이다. 그리고 이런 말도 한다.
"그럴 때도 있죠. 사실 저도 여러 번 그런 생각을 했어요."
첫번째 단계로서는 이쪽이 적당하다고 생각할 수 있지만, 때때로 상담 의뢰자는 '나는 당신과 다르다는 걸 알아줘요'라는 생각을 할지도 모른다.
중요한 것은 상대가 어떤 기분으로 '그만두고 싶다'는 말을 하는지, 그것을 찾아내야 한다. 상담자의 생각은 나중에 말해도 되고, 말하지 않는 편이 나은 경우도 있다. 상대가 무엇을 알고 싶어하는지, 다시 말해 상대의 요구는 어떤 것인지를 이해하는 것이 무엇보다 우선 되어야 한다.
즉, 내 말이 얼마나 상대에게 영향을 미치는지를 생각해야 한다. 내 의견이나 도움말이 아무리 정확하고 좋은 의견이라고 해도 상대의 마음에 닿지 않으면 아무런 의미가 없다. 상품도 산 사람이 쓰지 않으면 잡동사니와 마찬가지인 것처럼, 도움말도 상대가 받아들이지 않으면 쓸데없는 잔소리로 남을 뿐이다.

용서 - 달라이 라마

(리버) — Fri, 16 May 2008 01:00:14 +0900

용서는 우리로 하여금 세상의 모든 존재를 향해 나아갈 수 있게 한다. 우리를 힘들게 하고 상처를 준 사람들 우리가 '적'이라고 부르는 모든 사람을 포함해, 용서는 그들과 다시 하나가 될 수 있게 해준다. 그들이 우리에게 무슨 짓을 했는가는 상관없이, 세상 모든 존재는 우리 자신이 그렇듯 행복해지기 위해 노력한다는 사실을 떠올려 보라. 그러면 그들에 대한 자비심을 키우기가 훨씬 쉬울 것이다.

나는 행복해지는 것이야말로 삶의 목적이라고 믿는다. 세상에 태어나는 순간부터 사람은 누구나 행복을 원하고, 고통을 원히 않는다. 이것은 사회적 여건이나 교육, 또는 사상과는 무관하다. 우리는 내면 깊숙한 곳에서부터 그저 만족감을 원할 뿐이다. 그러므로 무엇이 우리에게 가장 중요한 행복을 가져다줄 것인가를 알아내는 것이 중요하다. 그섟은 다름 아닌 용서와 자비다.

고통을 견뎌낼 수 있는 인내심을 키우기 위해서는, 우리를 상처 입힌 누군가가 있어야 한다. 그런 사람들이 있어서 우리는 용서를 베풀 기회를 얻는 것이다. 그들은 우리의 스승조차 할 수 없는 방식으로 우리 내면의 힘을 시험한다. 용서와 인내심은 우리가 절망하지 않도록 지켜주는 힘이다.

나는 새로운 사람을 만날 때, 굳이 서로를 소개해야 할 필요성을 느끼지 못한다. 그는 나와 같은 단 하나의 사람일 뿐이다. 움직이고, 미소 짓는 눈과 입을 가진 단 하나의 사람일 뿐이다. 움직이고, 미소 짓는 눈과 입을 가진 존재를 소개해야 할 필요성을 느낀 적은 없다. 우리는 피부색만 다를 뿐, 모두 똑같은 존재다. 살아 있는 어떤 존재라도 사랑하고 자비를 배풀 수 있다면, 무엇보다 우리를 미원하는 이들에게 그런 마음을 가질 수 있다면, 그것이야말로 참다운 사랑이고 자비이다. 누가 우리에게 용서하는 마음을 가르쳐 주는가. 다름 아닌 우리의 반대편에서 서서 우리를 적대시하는 사람들이다. 그들이야말로 진정한 스승들이다.

다른 인간 존재에 대해 분노와 미운, 적대적인 감정을 가지고 싸움에서 승리를 거둔다 해도, 삶에서 그는 진정한 승리자가 아니다. 그것은 마치 죽은 사람을 상대로 싸움과 살인을 하는 것과 같다. 왜냐하면 인간 존재는 모두 일시적이며, 결국 죽게 되어 있기 때문이다. 전쟁터에서 죽는가, 병으로 사망하는가는 별개의 문제다. 어쨌든 우리가 적으로 여기는 사람들은 언젠가는 죽기 마련이고, 그러므로 결국 사라질 사람들을 죽이고 있는 것과 마찬가지다. 진정한 승리자는 적이 아닌 자기 자신의 분노와 미움을 이겨낸 사람이다.

용서의 마음을 가지고 있으면 다른 사람이 어떤 모습을 하고, 우리에게 어떤 행동을 하든 아무 상관이 없다. 진정한 자비심은 다른 사람의 고통을 볼 줄 아는 마음이다. 그의 고통에 책임을 느끼고, 그를 위해 뭔가를 해주고 싶은 마음이다. 다른 사람의 행복에 마음을 기울일수록 우리 자신의 삶은 더욱 환해진다. 타인을 향해 따뜻하고 친밀한 감정을 키우면 자연히 자신의 마음도 편안해진다. 그것은 행복한 삶을 결정짓는 근본적인 이유가 된다.

나는 한 명의 인간이자 평범한 수도승으로서 이야기할 뿐이다. 내가 하는 말이 그럴 듯하게 들린다면, 그대로 한번 실천해 보기를 바란다.

Daum UI Devday 신청하세요.

(리버) — Wed, 14 May 2008 17:42:43 +0900

다음에서 5월 30일 Daum UI DevDay라는 행사를 개최합니다. 5월26일까지 신청을 받는다고 하네요. 지금 바로 신청하세요.

프로그램
- Daum의 UI 기술력
- 다음 메인 페이지에 담긴 비밀
- 미니다음 개편 사례: 20픽셀의 미학, 그 현재와 미래
- XUL을 이용한 개발 사례
- 한메일 Express iPhone 버전 개발 사례

- JRIA(Javascript RIA) Widget 구현의 핵심
- 액션스크립트3.0에 대한 개발자들의 호기심
- RIA와 Silverlight 2
- AJAX 채팅 애플리케이션 구현
- 써드파티 Web Application 개발
- Front-End 성능향상 Tip

화분 - 알렉스

(리버) — Wed, 14 May 2008 16:23:19 +0900

멀리서 멀리서 멀리서 그대가 오네요
이 떨리는 마음을 어떻게 말해야 하나요

그댄 처음부터 나의 마음을 빼앗고
나을 수 없는 병을 내게 주었죠
화분이 될래요 나는 늘 기도하죠

난 그대 작은 창가에 화분이 될께요
아무 말 못해도 바랄 수 없어도
가끔 그대의 미소와 손길을 받으며
잠든 그대 얼굴 한 없이 볼 수 있겠죠

멀리도 멀리도 멀리도 그대가 가네요
떨어지는 눈물을 어떻게 달래야 하나요

그댄 처음부터 나의 마음을 가졌고
나을 수 없는 병을 앓게 한 거죠
화분이 되고픈 나는 늘 기도하죠

난 그대 작은 창가에 화분이 될께요
아무 말 못해도 바랄 수 없어도
가끔 그대의 미소와 손길을 받으며
잠든 그대의 얼굴 한 없이 볼 수 있겠죠

난 그대 작은 창가에 화분이 될께요
아무 말 못해도 바랄 수 없어도
가끔 그대의 미소와 손길을 받으며
잠든 그대 얼굴 한 없이 볼 수 있겠죠

난 그대 작은 창가에 화분이 될께요
아무 말 못해도 바랄 수 없어도
가끔 그대의 미소와 손길을 받으며
잠든그대 얼굴 한 없이 볼 수 있겠죠

분위기 있게 돼지갈비를 - 올림픽공원 북2문 앞 소호

(리버) — Wed, 07 May 2008 19:38:10 +0900

올림픽 공원 북2문에서 강동대로를 건너면 강도대로를 따라 소문난 식당이 꽤 있다. 그 중에 소고기 전문점 "소호" 라는 고깃집이 있는데 가격이 워낙 세서 감히 들어갈 생각도 못했던 곳인데 돼지갈비를 저렴하게 판다고 해서 가봤다.

돼지갈비가 9,900원이다. 강동구청 근처 "화로구이"가 250g에 10,000원인데 아마 이를 의식해서 가격을 정한 듯하다.

원형 테이블, 사각 테이블 등 넓은 홀은 깔끔한 느낌을 준다. 창가에서 식사를 하면 올림픽공원을 보면서 식사할 수 있다.

고기도 고기지만 반찬이 예술이다. 반찬만으로 배가 부를 정도다. 개인적으로 참치회가 제일 맛났다.

보통 돼지갈비집이라고 하면 시끄럽고, 냄새도 많이 몸에 배고 좀 정신이 없는데, 조용히 한가롭게 먹을 수 있어서 특히 좋았다.

블로거뉴스에서 이 포스트를 추천해주세요.

http://bloggernews.media.daum.net/news/1131917

나는 좋은 아빠일까?

(리버) — Tue, 06 May 2008 13:04:05 +0900

어린이날 선물로 과학상자와 RC 자동차를 애들에게 사줬다. 어떻게 고르다보니 내가 어릴적 너무나 갖고 싶었던 거로 사게 되었다. 내가 어릴 때는 거의 실현 불가능한 바램이었지만 지금은 그리 어렵지 않게 접할 수 있게 된 물건들, 이렇게 보변 세상은 참 많이 좋아진 것 같다.

하지만 난 이런 물건들을 접할 수는 없었지만 그래도 내가 어렸을 때의 시절이 더 좋았던 것 같다. 옛 시절이 좋다고 하면서 지금의 답답한 현실을 물려줘야만 하는 난 좋은 아빠일까? 지금은 아무런 느낌이 없어져 무덤덤한 어린이날을 보내면서 이런 생각이 하루 종일 뇌리를 떠나지 않았다.

유채꽃 내음에 제주로 변한 올림픽 공원

(리버) — Fri, 02 May 2008 13:32:13 +0900

아침에 올림픽수영장에서 수영을 하고 나서, 노동절이서 회사갈 필요도 없고 해서 자전거 타고 여유롭게 공원을 한바퀴 돌았다.

멀리 잔디광장이 보이는데 샛노란빛을 발하고 있었다. 뭐지 하고 가보니 유채꽃이 노랗게 피어 있는 거다. 고향이 제주도라서 그런지 더운 반가운 유채꽃. 성산일출봉 앞 유채밭 만큼은 못하지만 그래도 고향의 향수를 불러 일으키기에는 충분했다.

유채꽃 주위로 엄첨 많은 벌들이 꽃가루를 나르고 있었다. 접사로 찍느라고 고생좀 했다. 어릴 때는 종이로 동서남북 접어서 벌 잡기도 하고, 잘못해서 쏘여서 부운 손가락에 오줌을 누기도 했었는데. 아~ 옛날이여....

올림픽 공원 원형광장인데 아침에 찍으니깐 더 선명하고 예쁘게 나온것 같아서 이 사진도 올려본다.

싱싱한 오징어 잔치 "오징어 청춘"

(리버) — Wed, 30 Apr 2008 14:49:34 +0900

강동구 성내동에 오징어 전문 "오징어 청춘"이란 식당이 개업을 햇다. 오징어회, 오징어물회, 오징어통찜 등 오징어 전문 메뉴만 7가지이고 가격은 모두 만원이다.

가게는 작지만 내부는 매우 깔끔하다.

가격은 모두 만원이다. 오징어 뿐만 아니라 광어회, 해삼, 멍게 등
다양한 해산물을 맛볼 수 있다.

싱싱한 오징어회

산낙지

서비스로 주는 오징어 튀김

매콤한 오징어 무침

블로거뉴스에서 이 포스트를 추천해주세요.

http://bloggernews.media.daum.net/news/1100635

올림픽 공원 활짝핀 철쭉꽃

(리버) — Tue, 29 Apr 2008 15:06:27 +0900

올림픽 공원이 지금 철쭉꽃이 한창이다. 시간 나시는 분은 카메라 들고 가보시는 것도 괜찮을 듯.

블로거뉴스에서 이 포스트를 추천해주세요.

http://bloggernews.media.daum.net/news/1100654

VBScript의 GetRef을 이용하여 간단한 이벤트 드리븐 프로그래밍하기

(리버) — Fri, 25 Apr 2008 12:47:18 +0900

VBScript는 객체 지향적인 측면에서는 많이 부족한 언어다. 상속이나 다형성을 전혀 제공하고 있지 않아서 클래스를 만드는게 오히려 불현할 때가 더 많은 게 사실이다. 조금이나마 이런 단점을 보안해 줄 수 있는 함수가 하나 있는데 GetRef 이다.

GetRef는 인자로 넘긴 문자열에 해당하는 함수 포인터를 반환하는 기능을 하는 함수이다. 이 함수를 이용하여 VBscript에서 간단하게 이벤트 드리븐(event driven) 프로그래밍하는 좋은 예제가 있어서 소개할려고 한다.

VBScript doesn't have an event implementation so if you fancy having features like attaching handlers which will respond to specific events on your object you can do it simply by using the GetRef function and a bit of "syntactic sugar".

I'm using ASP in these examples cos it's easy.

Example 1 - Simple Events
'Create a handler
Function MyHandler()
   Response.Write "Hello from the handler!"
End Function

'Create an event
Dim OnLoad
Set OnLoad = GetRef("MyHandler")

'Fire the event
OnLoad()
Here we've created a simple event which takes one handler function and fired the event which in turn has called the function we attached.

To turn this in to a more useful event system we can use an array for the OnLoad event variable thus...
'Create some handlers
Function MyHandler1()
   Response.Write "Hello from handler 1!"
End Function

Function MyHandler2()
   Response.Write "Hello from handler 2!"
End Function

'Create an event
Dim OnLoad
OnLoad = Array(GetRef("MyHandler1"), GetRef("MyHandler2"))

'Fire the event
For Each handler In OnLoad
   handler()
Next
Example 2 - Event Arguments

In most event implementations the event handlers take one argument, passed to them by the fired event, which contains things like the type of event and a reference to the object on which it was fired etc.
'Create a handler which takes one argument
Function MyHandler(e)
   Response.Write "Hello from the handler - i was called by " & e
End Function

'Create two events
Dim OnLoad
Set OnLoad = GetRef("MyHandler")

Dim OnUnload
Set OnUnload = GetRef("MyHandler")

'Fire the events
OnLoad("Load")
OnUnload("Unload")
Wrapping it up

We've established we can do all the basics of events, now all we need to do is wrap it up in a few classes to make it usable.

First we need an Event class that we can instantiate for each event we want. This will have to expose an event arguments property and methods for attaching handlers and firing the event. It will also have to keep track internally of the attached handlers. Lets have a go...
Class clsEvent

   'An array to keep track of our handlers
   Private aryHandlers()

   'Our event arguments object to be passed 
   'to the handlers
   Public EventArgs

   Private Sub Class_Initialize()
      ReDim aryHandlers(-1)
      Set EventArgs = New clsEventArgs
   End Sub

   Private Sub Class_Terminate()
      Set EventArgs = Nothing
      Erase aryHandlers
   End Sub

   'Method for adding a handler
   Public Function AddHandler(strFunctionName)
      ReDim Preserve aryHandlers(UBound(aryHandlers) + 1)
      Set aryHandlers(UBound(aryHandlers)) = _
         GetRef(strFunctionName)
   End Function

   'Method for firing the event
   Public Function Fire(strType, objCaller)
      EventArgs.EventType = strType
      Set EventArgs.Caller = objCaller
      For Each f In aryHandlers
         f(EventArgs)
      Next
   End Function

End Class
Next we need an EventArgs class for passing data about the event to the handlers. This just needs three properties; event type, caller and an arguments collection for event type specific things.
Class clsEventArgs

   Public EventType, Caller, Args

   Private Sub Class_Initialize()
      Set Args = CreateObject("Scripting.Dictionary")
   End Sub

   Private Sub Class_Terminate()
      Args.RemoveAll
      Set Args = Nothing
   End Sub

End Class
Next our class that has an event, in this case an OnLoad which fires after the object's Load method is called. We'll also create a few handlers and do a trial run.
Class MyClass

   Public OnLoad

   Private Sub Class_Initialize()
      'Setting up our event
      Set OnLoad = New clsEvent

      'Adding an argument
      OnLoad.EventArgs.Args.Add "arg1", "Hello"
   End Sub

   Public Function Load()
      Response.Write "loading the object here!<br />"
      
      'Firing the event
      OnLoad.Fire "load", Me
   End Function

End Class


'A couple of handling function for the events
Function EventHandler(e)
   Response.Write "<h2>EventHandler</h2>"
   Response.Write "<p>Event """ & e.EventType & """ fired by object
of type " & TypeName(e.Caller) & ".</p>"
End Function

Function EventHandler2(e)
   Response.Write "<h2>EventHandler2</h2>"
   For Each x In e.Args
      Response.Write x & ": " & e.Args(x) & "<br />"
   Next
End Function

'instantiate the object, attach the handlers and call the load
Set myObj = New MyClass
myObj.OnLoad.AddHandler("EventHandler")
myObj.OnLoad.AddHandler("EventHandler2")
myObj.Load()
Event based programming reverses the responsibility for code execution within your program. In conventional procedural programming it would be the responsibility of the myObj class to make sure the two event handlers were fired when it's Load method was called. By using an OnLoad event instead myObj doesn't have to know anything about the environment in which its executing, it just blindly fires the event and any attached handlers will be called. In this way you can add additional functions which run when myObj's Load method is called without modifying MyClass.

In more complex systems being able to add functionality with a minimum of intrusion into other parts of the system is a big bonus and event based programming is an easy way of achieving it.

출처: http://derek-says.blogspot.com/2006/10/simple-event-driven-programming-using.html

[vbscript] URLEncode, URLDecode 함수

(리버) — Thu, 24 Apr 2008 12:45:23 +0900

ASP에 URL을 인코딩하려면 Server 객체의 URLEncode 메쏘드를 사용하면 된다. 그럼 디코딩은 어떻게 하지? ASP환경이 아닌 환경- 예를 들면 도스창에서 VBScript로 스크립트를 짤 때 - 에서는 Server 객체가 제공이 안되는데 이곳에서는 인코딩이나 디코딩을 어떻게 해야 하는가?

여기에 대한 대안으로 사용할 수 있는 함수인 URLEncode, URLDecode를 소개한다.

Function URLEncode(sStr) Dim i, acode URLEncode = sStr For i = Len(URLEncode) To 1 Step -1 acode = Asc(Mid(URLEncode, i, 1)) If (aCode >=48 And aCode <=57) Or (aCode >= 65 And aCode <=90) Or (aCode >= 97 And aCode <=122) Then ' don't touch alphanumeric chars Else Select Case acode Case 32 ' replace space with "+" URLEncode = Left(URLEncode, i - 1) & "+" & Mid(URLEncode, i + 1) Case Else ' replace punctuation chars with "%hex" URLEncode = Left(URLEncode, i - 1) & "%" & Hex(acode) & Mid(URLEncode, i + 1) End Select End If Next End Function Function URLDecode(sStr) Dim sTemp, sChar, nLen Dim nPos, sResult, sHex On Error Resume Next nLen = Len(sStr) sTemp = Replace(sStr, "+", " ") For nPos = 1 To nLen sChar = Mid(sTemp, nPos, 1) If sChar = "%" Then If nPos + 2 <= nLen Then sHex = Mid(sTemp, nPos+1, 2) If IsHexaString(sHex) Then sResult = sResult & Chr(CLng("&H" & sHex)) nPos = nPos + 2 Else sResult = sResult & sChar End If Else sResult = sResult & sChar End If Else sResult = sResult & sChar End If Next If Err Then LogError "URLDecode(" & sStr & "). " & Err.description End If On Error GoTo 0 URLDecode = sResult End Function '' ' 문자열이 모두 16진수 문자열로 구성되어 있는지 점검 ' @param sStr 검사할 문자열 ' @return 모두 HEX String으로 이루어져 있으면 true, 아니면 false Function IsHexaString( sStr ) Dim nPos Dim sChar Dim bReturn bReturn = True If sStr <> "" Then For nPos = 1 To Len(sStr) sChar = Mid( sStr, nPos, 1 ) If ( sChar < "a" OR sChar > "f" ) And ( sChar < "A" OR sChar > "F") And ( sChar < "0" OR sChar > "9") Then bReturn = False End If Next Else bReturn = False End If IsHexaString = bReturn End Function