Perl 간편함의 미학?

Perl로 간단한 프로그래밍 테스트를 받았다.

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";
}

반응형