VisualWorksTutorial1:Page05
 |
 웹로그 통계 레슨 4 |
 |
| | 목차 | 레슨3 | 레슨5 | | |
|
앞에 있었던 워크샵에서는 특정 디렉토리에 있는 웹서버의 로그파일 장소를 찾아 VisualWorks의 파일 에디터에서 그 파일을 표시했습니다. 파일을 "한 번에" 표시했습니다만 "Hit"을 카운트 하기 위해서는 파일을 1행씩 읽어올 필요가 있습니다. |
|
이 레슨에서는 "종료할 때까지 특정 처리를 반복하는" 루프의 실행방법을 학습하겠습니다. 구체적으로 그 순서는 "파일을 1행 1행 불러와서, 파일 끝부분까지 도달했을 때 종료를 전달"과 같은 반복입니다. 그중에 각 행에서 IP 어드레스를 골라냅니다. |
|
1. Workspace에 있는 텍스트를 아래와 같이 수정해주십시오. 그리고 텍스트 전체를 반전시키고 <오퍼레이트 클릭>후 실행을 선택해주십시오.
| myFile myStream |
myFile := 'ws000101.log' asFilename.
myStream := myFile readStream.
myStream inspect.
myStream close.
|
 |
VisualWorks의 표준 디렉토리에 로그파일을 두지 않으면 파일지정을 할 때 "절대경로" 가 필요하게 됩니다. 앞으로 파일참조가 요구될 때, 샘플코드에서는 파일 이름만(절대경로가 아닌)을 사용하겠습니다. 파일을 제대로 참조할 수 있는가는 올바른 경로 지정에 달려있습니다. VisualWorks의 표준 디렉토리에 파일을 두는 이점은, 파일 경로를 지정할 필요가 없기 때문에, Workspace에 이 레슨 코드를 카피해서 그대로 이용할 수 있습니다. |
|
|
2. Inspector 화면 왼쪽 뷰에 표시된 lineEndCharacter를 클릭(반전)해주십시오.
오른쪽 뷰에는 Core.Character cr이라는 lineEndCharacter의 값이 표시됩니다. Linux/UNIX에서는 Core.Character lf라고 표시될 것입니다. 레슨 마지막에 이 정보를 사용할 것이니 기억해두시기 바랍니다.
|
|
그러면, 이 코드를 한줄씩 분석해보겠습니다.
| myFile myStream |
최초 행에서는 두 가지 임시 변수가 선언되어 있습니다. 스페이스(반각공백)로 변수를 끝맺으며, Pipe문자(세로줄)로 변수를 둘러쌉니다.
myStream := myFile readStream.
이 행은 Smalltalk의 특징을 잘 나타내고 있습니다. 대입식(colon equal 심볼을 포함)에 있어 Smalltalk는, 우선 우측을 평가하고 좌측에 그 값을 대입합니다. 그러므로 readStream 메시지는 myFile객체에 전송되었습니다. 이 의미는 "Stream"(파일을 컴퓨터에서 다룰 수 있도록 함)으로서 로그파일을 취급하며, myStream 임시 변수에 Stream을 대입합니다.
myStream inspect.
Stream을 inspect하듯 Smalltalk에 지시합니다.(즉, <오퍼레이트>메뉴의 메뉴 항목에 있는 Inspector와 같지만, 이것은 프로그램에서 호출하는 방법입니다.(Cool!!!)
myStream close.
Inspector 화면을 표시하는 동안, Smalltalk 먼저 진행하여 파일을 물리적으로 닫습니다.(파일도 함께 닫는건 좋은 생각인것 같습니다.)
|
|
|
4. 아래와 같이 텍스트를 수정하십시오. 그리고 텍스트 전체를 반전시키고 <오퍼레이트 클릭>후 실행을 선택해주십시오.
UNIX/Linux 유저는 cr을 lf(소문자 엘과 에프)로 변경해주십시오. | myFile myStream myLine |
myFile := 'ws000101.log' asFilename.
myStream := myFile readStream.
myLine := myStream upTo: Character cr.
myLine inspect.
myStream close.
왼쪽 뷰의 self 아래로는 숫자가 연속적으로 이어집니다. 그 번호는 1에서 122까지 있습니다. 이것은 파일 맨 처음행의 내용인 122문자를 나타냅니다.(문자 하나하나가 각각의 번호에 대응) |
|
|
위 코드에서 네 번째 행을 설명합니다. 여기서는 많은 일들이 일어납니다.
myLine := myStream upTo: Character cr.
세 번째 행에서는 myFile 객체에 readStream 메시지를 송신함으로써 Smalltalk는 Filename 객체를 Stream 객체로 변환했습니다. 파일 전체 내용은 문자의 스트림폼 안에 있습니다. 그러면, 템퍼러리 변수 mySteam에 격납된 스트림에 대해서 생각해봅시다.
|
|
입문서 : 구문(신텍스) |
|
|
6. 아래와 같이 텍스트를 수정해주십시오. 그리고 모든 텍스트를 반전시키고 <오퍼레이트 클릭>후 실행을 선택해주십시오.
| myFile myStream myLine addrIP |
myFile := 'ws000101.log' asFilename.
myStream := myFile readStream.
myLine := myStream upTo: Character cr.
addrIP := myLine copyUpTo: $,.
addrIP inspect.
myStream close.
|
|
|
위 코드에서 5행 부분을 설명하겠습니다.
addrIP := myLine copyUpTo: $,.
|
|
|
입문서 : 다형성(polymorphism)
|
|
|
8. 아래와 같이 코드를 수정해주십시오. 그리고 텍스트 전체를 반전시기고 <오퍼레이트 클릭> 후 실행을 선택해주십시오.
| myFile myStream myLine addrIP |
myFile := 'ws000101.log' asFilename.
myStream := myFile readStream.
[ myStream atEnd ] whileFalse: [
myLine := myStream upTo: Character cr.
addrIP := myLine copyUpTo: $,.
Transcript show: addrIP.].
myStream close.
|
|
|
몇 줄만 가지고 실행 될거라 상상이나 하셨나요?
[ myStream atEnd ] whileFalse: [
단 1행의 코드로 많은 것을 처리했기에 좀 더 설명이 필요할 것입니다. 자세히 알고 싶은 분은 루프(제어구조) 입문서를 읽어주십시오. |
|
|
입문서 : 루프(제어구조) |
|
|
정리
이 연습을 통해서 토픽의 설명이나 Smalltalk에 관련된 개념을 대부분 연습했습니다. 이 연습을 통해 익힌 대처법에 대한 평가를 할 좋은 기회입니다. 이 연습을 끝내기 전에 해야할 일이 한 가지 있습니다. 이 웹 사이트의 특정 1일 Hit수를 세는 것입니다. 다음 워크샵에서 그것을 하겠습니다. 그 방법의 요점을 정리해 봅시다.
아래와 같은 내용을 학습하였습니다
|
| 목차 | 레슨3 | 레슨5 | | |
