google analytics の domain hash

Google Analytics では Javascript の内部で解析するサーバのFQDNを domain hash という手法で数値だけのハッシュ値にしてるんですが、それを perl で書いてみました。

sub domain_hash {
    my $fqdn = shift;
    my $a = 1;
    my $c = 0;
    my $o;

    if ($fqdn) {
        $a = 0;
        for (my $h = length($fqdn) - 1; $h >= 0; $h--) {
            $o = ord substr($fqdn, $h, 1);
            $a = ($a << 6 & 268435455) + $o + ($o << 14);
            $c = $a & 266338304;
            $a = $c != 0 ? $a ^ $c >> 21 : $a;
        }
    }

    return $a;
}

例えば cuio.blog2.fc2.com の場合は 213174022 になります。