0: #!/usr/bin/perl
1: 
2: # I can never remember the order of the meanings of
3: # the printf() formats, so I cranked out this little
4: # program to show me.
5: 
6: my @formats = qw(
7:         %s
8:         %10s
9:         %-10s
10:         %10.10s
11:         %-10.10s
12: 
13:         %d
14:         %10d
15:         %-10d
16:         %10.10d
17:         %-10.10d
18: 
19:         %f
20:         %10f
21:         %-10f
22:         %10.10f
23:         %-10.10f
24:         );
25: my %values = ( s => "JLHooker", f => "12345.67", d => "1234567" );
26: 
27: 
28: for my $format ( @formats ) {
29:         my $type = substr( $format, -1 );
30:         $format = "|$format|";
31: 
32:         printf( "%-10.10s     %s\n", $format, sprintf( $format, $values{$type} ) );
33: } # for