#!/usr/bin/perl -w

#######################################################
# lab03_printf1
#
# demo printf
#
# modified by Sharon Tuttle from "Learning Perl",
#    by Schartz and Phoenix
#
# last modified: 9-7-04
#######################################################

$val1 = 483.7777777777777777777;
$val2 = 482.1;
$val3 = 2.1;
$val4 = 123456789;

printf "\$val1 in different formats: \n%d\n%3.0f\n%12.3f\n%.3f\n",
       $val1, $val1, $val1, $val1;

printf "\$val2 in different formats:\n%d\n%3.0f\n%12.3f\n%.3f\n",
       $val2, $val2, $val2, $val2;

printf "\$val3 in different formats:\n%d\n%3.0f\n%12.3f\n%.3f\n",
       $val3, $val3, $val3, $val3;

printf "\$val4 in different formats:\n%d\n%3.0f\n%12.3f\n%.3f\n",
       $val4, $val4, $val4, $val4;

@names = qw/ george harold ann elmo asdfghjjklrjgdidjkvnheuibhgd/;

foreach (@names)
{
    my($name) = $_;

    printf "%8s!!!\n", $name;
}

foreach (@names)
{
    my($name) = $_;

    printf "%-8s!!!\n", $name;
}

# end of lab03_printf1