Perl 간편함의 미학?
Perl로 간단한 프로그래밍 테스트를 받았다.
Apache 로그를 분석해서 pv가 많은 순서대로 url을 출력하는 것이었다.
모두가 꽤나 어렵다는 눈치여서 굉장히 긴장했는데..
생각보다 쉽게 끝났다. 역시 php를 경험해 본 것이 많은 도움이 되었다.
Apache 로그를 분석해서 pv가 많은 순서대로 url을 출력하는 것이었다.
모두가 꽤나 어렵다는 눈치여서 굉장히 긴장했는데..
생각보다 쉽게 끝났다. 역시 php를 경험해 본 것이 많은 도움이 되었다.
#!/usr/bin/perl open(FILE, "log") ; my %url_hash ; while(<FILE>) { @urls = split(" ", $_) ; @urls2 = split(/\?/, @urls[6]) ; #print @urls[6]."\n" ; $url_hash{@urls2[0]}[0]++ ; $url_hash{@urls2[0]}[1]+=@urls[8] ; } close(FILE); foreach $_ (sort { $url_hash{$b}[0] <=> $url_hash{$a}[0] } keys %url_has h) { print "$url_hash{$_}[0] : $url_hash{$_}[1] : $_\n"; }
반응형
공지사항
최근에 올라온 글
- Total
- 732,848
- Today
- 5
- Yesterday
- 43
TAG
- Flutter
- chrome
- electron 시작하기
- 리뷰
- Ubuntu8.04
- Mac
- 요리
- Eclipse
- virtualbox
- electron
- ubuntu
- 티스토리
- Linux
- Tistory
- github actions
- 망치
- 글꼴
- Firefox
- 넷플릭스
- 영화
- 레시피
- IE
- Firefox3
- 찬양
- Daum
- 검색
- 보안
- react
- 다음