VisualWorksTutorial1:Page11
 |
 웹로그 통계 레슨 10 |
 |
| | 목차 | 레슨9 | 레슨11 | | |
|
Smalltalk 사용 시간이 증가함에 따라 Workspace의 사용빈도가 줄어들며, System Browser 사용이 늘어납니다. 하지만 Smalltalk로 개발한다는 의미로 보면 대다수의 경우, 작업을 Workspace에서 진행합니다. 그리고 System Browser에 복사해서 새로운 메서드 작성에 사용합니다. 이 방법은 아주 옳은 방법입니다. 따라서, 이 레슨에서도 그렇게 할 것입니다. Workspace는 메서드에 코드를 카피하기 전에 작은 코드의 덩어리를 테스트하기 위한(동작확인) 장소입니다. 이 레슨은 그 연습을 하기 좋은 예가 될 것입니다. |
|
이 레슨에서는 주어진 디렉토리 수만큼 복수의 로그파일을 실행할 수 있도록, Wordspace에서 코드를 복사하여(로그파일에서 페이지 카운트를 수집한 것 처럼) WebLogClass의 새로운 메서드에 붙입니다. 지금까지 많은 기초를 쌓아왔습니다.(패키지, 클래스, 프로토콜, 클래스)그러니, 이번 레슨에서는 처음보다 간결하게 설명하겠습니다.
|
|
1. System Browser를 기동시켜주십시오.(VisualWorks 메인 런쳐 화면에서 툴바의 네 번째 버튼을 클릭하거나, 브라우저>>시스템 메뉴를 선택해주십시오.)
2. 패키지 창(맨 왼쪽)의 스크롤을 XML로 시작하는 패키지 위까지 움직여주십시오. WebLogStats 패키지를 선택(반전)해주십시오.
3. 프로토콜 창의 상단에 있는 Instance 탭이 선택되어 있는지 확인해주십시오. private 프로토콜을 클릭(선택)해주십시오. 그리고 아래 그림과 같이 되었는지 확인해주십시오.
4. private 프로토콜이 선택되어있는 상태에서 아래의 내용을 메서드 뷰에 기술해주십시오. showPageCounts: aFile
| stream line bag xFound sort out|
bag := Bag new.
stream := (logDirectory, '\', aFile) asFilename readStream.
[ stream atEnd ] whileFalse: [
line := stream upTo: Character cr.
line := line copyFrom: 50 to: line size.
line := line copyFrom: (line indexOf: $/) to: line size.
line := line copyUpTo: $,.
xFound := line findString: '.asp' startingAt: 1.
xFound > 0
ifTrue:[ bag add: line. ]. ].
stream close.
sort := SortedCollection sortBlock: [:a :b| a >= b].
bag valuesAndCountsDo: [ :each :count |
sort add: (Association key: count value: each)].
out := (logDirectory, '\' ,aFile , '.stats') asFilename writeStream.
sort do: [ :each | out cr; nextPutAll: each printString.].
out close.
5. 메서드 코드 뷰에서 <오퍼레이트 클릭>후 Accept를 선택해주십시오. showPageCounts: 메서드가 메서드 창에 표시됩니다.
6. private프로토콜이 선택된 상태에서 아래의 내용을 메서드 뷰에 기술해주십시오. getLogFilesForPageCounts
| workingDir contents xFound |
Transcript clear.
workingDir := logDirectory asFilename.
contents := workingDir directoryContents.
contents do: [ :each |
xFound := each findString: filter startingAt: 1.
xFound > 0
ifTrue: [ self showPageCounts: each.].].
Dialog warn: 'Done'.
7. 메서드 코드 뷰에서 <오퍼레이트 클릭>후 Accept를 선택해주십시오. getLogFilesForPageCount 메서드가 메서드 창에 표시됩니다.
8. private 프로토콜이 선택된 상태에서 아래 내용을 메서드 뷰에 기술해주십시오. startPageCount
filter := (Dialog request: 'Please enter a filter ' initialAnswer: 'ws00').
(filter size) > 0
ifTrue: [self getLogFilesForPageCounts]
9. 메서드 코드 뷰에서 <오퍼레이트 클릭>후 Accept를 선택해주십시오. startPageCount 메서드가 메서드 창에 표시됩니다.
10. Workspace를 열고 아래 코드를 입역해주십시오. WebLogClass new startPageCount
텍스트를 반전시키고 <오퍼레이트 클릭>후 실행을 선택해주십시오.
11. 파일 브라우저를 열고 로그파일이 있는 디렉토리를 지정합니다. 그러므로 인해 파일의 내용을 확인할 수 있습니다.
|
|
현실적으로는, 아직 소프트 웨어로서 구성되어 있지 않습니다. 사용자는 일반적으로 보다 많은 개선을 요구합니다. 그리고 기능사양서까지도 개발도중 혹은 종료후에 변경할 수 있도록 요구합니다. 이것은 이례적인 것이 아닙니다.
|
|
|
12. 프로토콜 창 상단에 있는 Instance 탭이 선택되어있는지 확인해주십시오. private 프로토콜을 클릭(선택)하고 showPageCounts: 메서드를 클릭(선택)해주십시오. 그리고 아래와 같이 변경해주십시오.
showPageCounts: aFile
| stream line bag xFound sort out|
bag := Bag new.
stream := (logDirectory, '\', aFile) asFilename readStream.
[ stream atEnd ] whileFalse: [
line := stream upTo: Character cr.
line := line copyFrom: 50 to: line size.
line := line copyFrom: (line indexOf: $/) to: line size.
line := line copyUpTo: $,.
xFound := (line findString: '.asp' startingAt: 1) +
(line findString: '.htm' startingAt: 1).
xFound > 0
ifTrue:[ bag add: line. ]. ].
stream close.
sort := SortedCollection sortBlock: [:a :b| a >= b].
bag valuesAndCountsDo: [ :each :count |
sort add: (Association key: count value: each)].
out := (logDirectory, '\' ,aFile , '.stats') asFilename writeStream.
1 to: 10 do: [ :each | out cr; nextPutAll: (sort at: each) printString.].
out close.
13. 메서드 코드 뷰에서 <오퍼레이트 클릭>후 Accept를 선택해주십시오. 입력된 코드가 "재컴파일(recompile)"됩니다. 타이핑 미스가 없고, 다이얼로그 박스가 표시되지 않는다면(즉 아무일도 일어나지 않는다면), Smalltalk는 코드를 변경해서 올바르게 컴파일했다는 것을 의미합니다.
14. 작업영역을 열고 아래의 코드를 입력해주십시오. WebLogClass new startPageCount
텍스트를 반전시키고 <오퍼레이트 클릭>후 실행을 선택해주십시오.
15. 로그파일로서 같은 장소에 통계 파일을 써냅니다. 통계 파일의 일부로서 로그파일명을 사용하고 있기 때문에, 필터(ws00 파일을 찾는)는 .STAT을 포함하고 있습니다. 이것들을 읽어들였기 때문에 에러가 발생했습니다. 이 문제를 해결하기 위해, 다음 레슨에서는 파일 출력명을 다르게 하겠습니다. 하지만 지금은 .STAT 파일을 삭제하는 것으로 이 문제를 해결합니다.
16. Workspace를 열고 아래 코드를 입력해주십시오. WebLogClass new startPageCount
텍스트를 반전시키고 <오퍼레이트 클릭>후 실행을 선택해주십시오.
17. 파일 브라우저를 열고 로그파일이 존재하는 디렉토리를 지정해주십시오. 그러면 파일의 내용을 확인할 수 있습니다. |
|
코드를 약간 변경하였습니다. 그것들을 보고 동작을 이해하고, 확인해봅시다.
xFound := (line findString: '.asp' startingAt: 1) +
(line findString: '.htm' startingAt: 1).
이 행은 매우 단순합니다.(line findString: '.asp' startingAt: 1)은 ASP 페이지를 발견하고, (line findString: '.htm' startingAt: 1)은 HTM 페이지를 발견합니다. 이 식의 돌아오는 값은 수치입니다.("ASP" 혹은 "HTM" 문자열의 개시위치) 그리고 두 개의 값을 더합니다. 다음 행은 제로보다 큰 것을 확인합니다.
1 to: 10 do: [ :each | out cr; nextPutAll: (sort at: each) printString.].
이것은 고정수의 반복(1 to: 10 do:) 예입니다. 1에서 10까지의 숫자는 임시변수 each에 설정(하나씩)되어, 블록의 코드 부분에서 사용됩니다. 컬렉션이 있기 때문에, 숫자나 인덱스를 가진 컬렉션의 요소로서 파악할 수 있습니다. 컬렉션의 각 요소의 참조로서 at: 메서드를 사용합니다. (sort at: each)식은 의외로 어려운 일을 합니다. |
|
|
정리
Workspace에서 클래스 라이브러리 안으로 어떻게 이행(자신의 클레스나 메서드를 작성)하는지를 학습한 의미 있는 레슨이었습니다. 분할한 부분을 때어내거나, 다시 결합하는 방법을 찾기 위해서, 무엇을 하고 있는지 이해하는 능력에만 의존합니다. 이것은 다른 기능과 같이 훈련에 의해 쉬워집니다.
|
| 목차 | 레슨9 | 레슨11 | | |
