It's a bit weird that 0 is treated the same as '':
sub id2path3 {
my $id = shift || return '';
my $path;
my( $pat, $bit ) = $id < 1e6 ? ( '%06u', '..' ) : ( '%09u', '...'
+);
$path = sprintf $pat, $id;
$path =~ s[($bit)($bit)$][/$1/$2];
return $path;
}
With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.