Re: Using format()

[William.Ampeh]

#!/opt/local/bin/perl

$CUR_TIME=`date "+%B-%Y"`;
$TITLE="Annual Report on Car Sales";

select ("STDOUT");

$~ = STDOUT;
for ($i = 1; $i <10; $i++) {

   $color = "Red";
   if ( $i % 2 ) { $color = "Blue"};

   $col1 = "${color}_car_col_1";
   $col2 = "${color}_car_col_2";
   $col3 = "${color}_car_col_3";
   $col4 = "${color}_car_col_4";

   write STDOUT;

   if ( $i % 5 == 0 ) {
      $~ = STDOUT_BLANK;  write STDOUT_BLANK;
      $~ = STDOUT;
   }
}

$~ = STDOUT_BOTTOM; write;

#-----------------------  OUTPUT FORMAT BEGINS HERE -------------------

format STDOUT =
           @<<<<<<<<<<<<<<        @>>>>>>>>>>>>>     @<<<<<<<<<<<<<<<
@|||||||||||||||||||||
$col1, $col2, $col3, $col4

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]