VisualWorksTutorial1:Page06
 |
 웹로그 통계 레슨 5 |
 |
| | 목차 | 레슨4 | 레슨6 | | |
|
정확하게 "웹Hit"을 얻기위해서는 먼저 웹서버 로그의 구조에 대해 살짝 이해해둘 필요가 있습니다. 그리고 무엇보다 중요한 것은 "웹Hit"의 의미를 엄밀히 정의하는 것입니다. 다음은 무언가에 IP 어드레스를 격납시켜두면 카운트 할 수 있게 됩니다. |
|
이 레슨에서는 Set라 불리우는 Collection 클래스(집합)를 소개합니다. Set을 사용하는 이유와, 이 문제에 대해서 어떠한 해결책을 이끌어낼 수 있는가를 설명하겠습니다. |
|
다음과 같은 예를 생각해봅시다. 웹사이트에 어떤 사람이 오전 9:00에, 그리고 다시 오후 3:00, 마지막으로 오후 9:00에 Hit(방문)했다고 합시다. 이 경우, 이 사람은 3Hit라고 말 할지도 모릅니다. 혹은 그 사람이 같은 사람이니 1Hit라고 할지도 모릅니다. 이처럼 재방문한 사람을 어떻게 취급하느냐에 따라서 달라집니다. 이 워크샵에서는 재방문한 사람을 “Hit”로 취급하지 않기로 합니다. 그러니 계산은 사이트에 Hit한 서로 다른(유니크) 사람들의 수를 반영하기로 합니다.
|
|
입문서 : Set(셋) |
|
1. 아래 텍스트와 같이 수정 하십시오. 그리고 전부 반전시키고 <오퍼레이트 클릭>후 실행을 선택해주십시오.
| myFile myStream myLine addrIP mySet |
mySet := Set new.
myFile := 'ws000101.log' asFilename.
myStream := myFile readStream.
[ myStream atEnd ] whileFalse: [
myLine := myStream upTo: Character cr.
addrIP := myLine copyUpTo: $,.
mySet add: addrIP.].
myStream close.
mySet inspect.
새로운 Inspector 화면이 표시됩니다. 화면 타이틀은 a Set입니다.
|
 |
기본적으로 이것으로 완성입니다. 이것은 로그파일에서 유니크한 웹Hit를 구하기 위한 9행의 코드였습니다. 친구나 친척중에 프로그래머가 있다면, 그 사람이 좋아하는 언어로 이와 같은 프로그램을 짜게 만들어봅시다. 과연 몇 행에서 위와 같은 결과를 도출해낼 수 있는지 보도록 합시다. 필시 더 많은 행을 필요로 할 것입니다.
|
|
|
3. 아래 텍스트와 같이 수정해주십시오. 그리고 전부 반전시켜 <오퍼레이트 클릭>후 실행을 선택해주십시오.
| myFile myStream myLine addrIP mySet |
mySet := Set new.
myFile := 'ws000101.log' asFilename.
myStream := myFile readStream.
[ myStream atEnd ] whileFalse: [
myLine := myStream upTo: Character cr.
addrIP := myLine copyUpTo: $,.
mySet add: addrIP.].
myStream close.
Dialog warn: (mySet size printString).
마지막 행을 제외하고 전부 같습니다. 여기서 결과를 표시하기 위해 Dialog 객체(클래스)를 사용합니다. Set 객체에는 size 메시지를 보냅니다. 그러면 Set 객체에 있는 항목수가 돌아옵니다. warn: 메시지는 숫자를 받아들이지 못합니다. 문자열만 받아들입니다. 때문에 문자열로 변환하기 위해 mySet size에서 돌아오는 수치에 printString 메시지를 보냅니다. 이것으로 warn: 메시지가 작동되며, 다이얼로그 박스가 표시됩니다.
| myFile myStream myLine addrIP mySet |
mySet := Set new.
myFile := (Dialog request: '파일입력' initialAnswer: 'ws000101.log') asFilename.
myStream := myFile readStream.
[ myStream atEnd ] whileFalse: [
myLine := myStream upTo: Character cr.
addrIP := myLine copyUpTo: $,.
mySet add: addrIP.].
myStream close.
Dialog warn: (mySet size printString).
Dialog 객체(리퀘스트)의 새로운 메시지를 배우겠습니다. 이 식에서는 두 개의 콜론이 있습니다. 이 메시지는 두 개의 파라메터를 요구하고 있습니다. Dialog 객체에는 실제 메시지로서 request: initialAnswer:(단순히 "콜론" 메시지를 함께 연결하고 있음)가 보내졌습니다.
|
|
|
정리
이 레슨에서는 IP 어드레스를 격납하기 위한 Set 사용방법을 학습했습니다. 이번 학습으로 1개의 파일에서 Hit를 카운트하는 방법을 이해했으니, 다음 워크샵에서는 디렉토리에 있는 모든 파일에 대해서 해보겠습니다. 이것으로 주, 월, 년 단위 Hit수의 통계를 제공할 수 있을겁니다.
|
| 목차 | 레슨4 | 레슨6 | | |
