Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Re^2: Using filepath method to identify an .html page

by Anonymous Monk
on Jan 23, 2013 at 11:00 UTC ( #1014877=note: print w/replies, xml ) Need Help??

in reply to Re: Using filepath method to identify an .html page
in thread Using filepath method to identify an .html page

The OP seems a bit unwilling to listen, but if you truncate the hash, you meet his spec.

use Digest::MD5 qw/ md5_hex /; my $digest=md5_hex(""); printf "%d\n", hex(substr($digest, -4)) % 10_000;

So the one-liner he's looking for would be hex(substr(md5_hex($someurl), -4)) % 10_000. I'm betting that is somewhat collision resistant. The OP still should consider enlarging his int2 column to int4 or int8 or even char(4)

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1014877]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (4)
As of 2017-12-13 22:54 GMT
Find Nodes?
    Voting Booth?
    What programming language do you hate the most?

    Results (381 votes). Check out past polls.