#!/usr/bin/perl

# I can never remember the order of the meanings of
# the printf() formats, so I cranked out this little
# program to show me.

my @formats = qw(
        %s
        %10s
        %-10s
        %10.10s
        %-10.10s

        %d
        %10d
        %-10d
        %10.10d
        %-10.10d

        %f
        %10f
        %-10f
        %10.10f
        %-10.10f
        );
my %values = ( s => "JLHooker", f => "12345.67", d => "1234567" );


for my $format ( @formats ) {
        my $type = substr( $format, -1 );
        $format = "|$format|";

        printf( "%-10.10s     %s\n", $format, sprintf( $format, $values{$type} ) );
} # for