2008/01/18 13:05
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";
}
TAG Perl
