#!/usr/bin/perl
#Open the file.
open (INPUT, "log2.dat") || die "Could not open data file: $!\n";

#Start reading form the file.
while ($inline = <INPUT>)
{
	chomp ($inline);
	next if $inline == "";
	($dt,$tm,$su,$op1,$op2,$ac) = split (/\|/, $inline, 6);

# Uncomment the sprintf line and the write command won't cause a segmentation
# fault....  Even with this kludge, the text is not formatted correctly...
	#$ac = sprintf ("%1000s", $ac);
	write;

}

#close the file
close (INPUT);
exit (0);



format STDOUT_TOP=
                       DAILY OPERATIONS LOG

                             DATE @||||||||                            PAGE @>>>
$dt,$FORMAT_PAGE_NUMBER
================================================================================

.

format STDOUT =
@<<<<<<<< @<<<<<      ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<    @<<< @<<< @<<<
$dt,$tm,$ac,$su,$op1,$op2
~                     ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ac
~                     ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ac
~                     ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ac
~                     ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ac
~                     ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ac
~                     ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ac
~                     ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ac
~                     ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ac
~                     ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ac
~                     ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ac
~                     ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ac
~                     ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ac
~                     ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ac
~                     ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ac
~                     ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ac
~                     ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ac
~                     ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ac
~                     ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ac
________________________________________________________________________________

.

