![[첫화면으로]](/raymundo_logo.jpg){kind=logo}
"UseModWiki소스수정/처리시간측정" 페이지의 변경 내역"UseModWiki소스수정/처리시간측정" 페이지의 변경 내역| -3,7 +3,7 |
| * wiki.pl 의 수행시간을 측정하여 웹페이지 하단에 밀리세컨드 단위로 출력함 |
| * 필수 요구 사항: |
| ** Time::HiRes 모듈<footnote(http://search.cpan.org/~jhi/Time-HiRes-1.56/HiRes.pm 참조)이 시스템에 설치되어 있어야 한다. - ([http://search.cpan.org/CPAN/authors/id/J/JH/JHI/Time-HiRes-1.56.tar.gz 다운로드]. |
| ** Time::HiRes 모듈<footnote(http://search.cpan.org/~jhi/Time-HiRes-1.56/HiRes.pm 참조)>이 시스템에 설치되어 있어야 한다. - [http://search.cpan.org/CPAN/authors/id/J/JH/JHI/Time-HiRes-1.56.tar.gz 다운로드]. |
| * 추가 요구 사항: 없음 |
| * 사용법 |
| -15,13 +15,13 |
| ** Time::HiRes 모듈이 설치되어 있지 않은 상태에서 $CheckTime = 1 로 하였을 경우, 웹페이지가 뜨기는 하나 상단에 에러 메세지가 출력되어 버린다. (개선 요망) |
| : config.pl 화일에 다음 변수를 0 또는 1 로 설정해 준다. |
| {{{perl |
| {{{#!vim perl |
| ### 페이지 처리 시간을 출력한다 |
| $CheckTime = 0; # 1 = mesure the processing time (requires Time::HiRes module), 0 = do not |
| }}} |
| : wiki.pl 에서는 다음의 것들을 추가, 수정한다. |
| {{{perl |
| {{{#!vim perl |
| ... |
| # $CheckTIme 과 $StartTime 두 변수를 추가한다. |
| ### 패치를 위해 추가된 환경설정 변수 |
| -40,7 +40,7 |
| ... |
| }}} |
| : |
| {{{perl |
| {{{#!vim perl |
| sub DoWikiRequest { |
| ... |
| if ($UseConfig && (-f $ConfigFile)) { |
| -71,7 +71,7 |
| } |
| }}} |
| : |
| {{{perl |
| {{{#!vim perl |
| sub GetMinimumFooter { |
| ... |
| # 아래 라인을 다음과 같이 바꾼다 |
| -96,7 +96,7 |
| : gettimeofday 와 tv_interval 둘 다 HiRes 모듈에 있는 함수겠죠. 흐음.. 직접 모듈을 설치한 경우마저도 그렇게 된다면 문제가 많은 패치로군요... 제 경우는 시스템에 root 권한이 있는 터라 다른 설정을 건드리지 않고 readme 에 있던 대로 그대로 따라해서 한 번에 성공했는데요.. 일단 man Time::HiRes 해서 나오는 예문을 보고 간단한 샘플 코드를 짜서 터미널에서 돌려 보는 게 원인을 찾기 쉬울 것 같네요. 모듈은 제대로 설치되었다 싶으면 다음과 같이 해 보세요. |
| : |
| {{{perl |
| {{{#!vim perl |
| use Time::HiRes qw( usleep ualarm gettimeofday tv_interval ); # eval 을 쓰지 말고 그대로 use |
| $StartTime = [gettimeofday]; # gettimeofday 뒤에 있는 소괄호쌍 제거 |
| }}} |