write and format

[Tyler Cruickshank]

Hi.

Im trying to use format within a loop to create an output file.  My code is pasted 
below.  For a variety of reasons I need (or think I need) 3 different format 
definitions.  Writing with a format seems to produce a \n after execution.  I want to 
be able to control when a newline is started.  Any ideas?

sub printRRF {
  
  $oldhandle = select(RRF);
  $~ = "RRFTable3";
  select($oldhandle);
  write RRF;
  
  for(local $i=0; $i<=10; $i++){
     
     $oldhandle = select(RRF);
     $~ = "RRFTable2";
     select($oldhandle);
     write RRF; 
         
     for(local $j=0; $j<=8; $j++){

     $oldhandle = select(RRF);
     $~ = "RRFTable1";
     select($oldhandle);
     write RRF; 
     
     $x++;
     
        } # End for loop.
     
     $x=0;     
     }
} # End function printRRF.

Thanks very much for your time.

-Tyler Cruickshank



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