[perl]我想要知道 user 是從那裡連到我的網頁的，如何做呢？(續)

使用 perl 來統計上次產生的 referer.txt 檔

#! /usr/bin/perl

sub trim {
        my @out = @_;
        for (@out) {
                s/^\s+//;
                s/\s+$//;
        }
        return wantarray ? @out : $out[0];
}

open(FP,'< /tmp/referer.txt');  while (<FP>) {         @aReferer = split(/=>/);
        $aR =trim( $aReferer[2]);

        $aR =~ s/http\:\/\///i;
        @aU = split(/\//,$aR);
        $aUrl = @aU[0];
        $aSource{$aUrl} += 1;
}

foreach $aa (sort keys %aSource) {
        printf "%-30s = %4d\n" , $aa , $aSource{$aa};
}

close(FP);