Using filepath method to identify an .html page

[Peter Otten]

Ferrous Cranus wrote:

> Τη Τρίτη, 22 Ιανουαρίου 2013 6:11:20 μ.μ. UTC+2, ο χρήστης Chris Angelico
> έγραψε:

>> all of it. You are asking something that is fundamentally
>> impossible[1]. There simply are not enough numbers to go around.

> Fundamentally impossible?
> 
> Well....
> 
> OK: How about this in Perl:
> 
> $ cat testMD5.pl
> use strict;
> 
> foreach my $url(qw@ /index.html /about/time.html @){
>         hashit($url);
> }
> 
> sub hashit {
>    my $url=shift;
>    my @ltrs=split(//,$url);
>    my $hash = 0;
> 
>    foreach my $ltr(@ltrs){
>         $hash = ( $hash + ord($ltr)) %10000;
>    }
>    printf "%s: %0.4d\n",$url,$hash
>    
> }
> 
> 
> which yields:
> $ perl testMD5.pl
> /index.html: 1066
> /about/time.html: 1547

$ cat clashes.pl 
use strict;

foreach my $url(qw@ 
    /public/fails.html
    /large/cannot.html
    /number/being.html
    /hope/already.html
    /being/really.html
    /index/breath.html
    /can/although.html
@){
        hashit($url);
}

sub hashit {
   my $url=shift;
   my @ltrs=split(//,$url);
   my $hash = 0;

   foreach my $ltr(@ltrs){
        $hash = ( $hash + ord($ltr)) %10000;
   }
   printf "%s: %0.4d\n",$url,$hash
   
}
$ perl clashes.pl 
/public/fails.html: 1743
/large/cannot.html: 1743
/number/being.html: 1743
/hope/already.html: 1743
/being/really.html: 1743
/index/breath.html: 1743
/can/although.html: 1743

Hm, I must be holding it wrong...