Frank Newland wrote:
>
> I want to format the output of my database query.
>
> Current code
> while (@row =$sth->fetchrow() ) {
> print join(',',@row);
> }
>
> Results
> 1.38, .0396,.0076
>
> Desired Results
> 1.38, 0.0396, 0.0076
$ perl -le'print join ", ", map { sprintf "%.4f", $_ } ( 1.38, .0396, .0076 )'
1.3800, 0.0396, 0.0076
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
