sub id2path_new {
    my ($id) = @_;
    return '' unless $id;

    my $path = '';

    if ($id >= 1_000_000) {
        $path =  sprintf("%09d", $id);
        $path =~ s#\A(.*)(...)(...)\z#$1/$2/$3#;
    } else {
        $path =  sprintf("%06d", $id);
        $path =~ s#\A(..)(..)(..)\z#$1/$2/$3#;
    }
    return $path;
}