Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!uunet!mcsun!i2unix!inria!ircam!fingerhu
From: fingerhu@ircam.fr (Michel Fingerhut)
Newsgroups: comp.lang.perl
Subject: Output format problem -- pls help!
Message-ID: <1991Jan9.165609.13391@ircam.fr>
Date: 9 Jan 91 16:56:09 GMT
Sender: fingerhu@ircam.fr (Michel Fingerhut)
Organization: IRCAM, Paris (France)
Lines: 31

I am trying to control the number of decimals in printed output without
using printf explicetely.  The simplest example:

	$[ = 1;                 # set array base to 1
	$, = ' ';               # set output field separator
	$\ = "\n";              # set output record separator
	$#= "%.2f";		# set output precision
	$k=1/3;
	print <<EOF
	$k
	EOF

prints 0.33.  However, if replacing the print with

	print <<EOF
	$k
	$k
	EOF

(e.g.), it prints

	0.33333333333333331
	0.33333333333333331

which is either incorrect or my wrong understanding.  However,

	print $k, $k;

works fine (0.33 0.33).

Can someone help please?