Select Code to Download

    printf "TFD> %32.32s %16.16s %s %s\n", $user, $pass,
        ($b_admin? '*': ' ') x 8,
        ($b_reports? '*': ' ') x 8;

#!/usr/bin/perl -w

...
    my $flag = $pusers->{$user};
    printf "%10.10s  %s\n", $user, ($flag? '*': ' ') x 8;
}

      dick
     harry
...
    louise  *
    thelma
       tom  *

# Main program

...
    $mark = $flag? '*': ' ';
    printf "%10.10s  %s\n", $user, $mark x 8;
}

      dick
      dick
...
    thelma
       tom  *
       tom  ********

# Subroutines
sub myprintf {
...

    myprintf "%10.10s  %s\n", $user, ($flag? '*': ' ') x 8;
}

TFD> $VAR1 = [
          '%10.10s  %s
...
          '*',
          '*'
        ];

    printf "TFD> %32.32s %16.16s %s %s\n", $user, $pass,
        scalar ($b_admin? '*': ' ') x 8,
        scalar ($b_reports? '*': ' ') x 8;

    printf "TFD> %32.32s %16.16s %s %s\n", $user, $pass,
        ''.($b_admin? '*': ' ') x 8,
        ''.($b_reports? '*': ' ') x 8;