Select Code to Download

Select or download this

REM { Sorting by three values for Lotus Domino (in a single view colum
+n). }
MaxLength := 255;

...
        @Length( key ) > 255;
        @Left( key; MaxLength );
        key + @Repeat( @Char( 0 ); MaxLength - @Length( key ) ) )

Select or download this

# Sorting a three level hash in perl
my $a_len = max( map length(),
                 keys %h );
...
                   keys %{ $h{ $a }{ $b } } )
              } keys %{ $h{ $a } } )
          } keys %h );