Using Print Formats 1

[tbohon]

OK - I give up. I've spent the past hour trying to figure out why I don't get values printed for $nr, $price and $totamt.

Here's the code:

#!/usr/bin/perl

$totnritems = 0;
$mdsetotal = 0;

$~ = STDOUT_TOP;

$~ = HEADER_LINE;
write;

$~ = DETAIL_LINE;


format STDOUT_TOP =
COMPANY NAME, INC.
I N V O I C E


.

format HEADER_LINE =
-------------------------------------------------------
Item #     Description           Qty    Price     Total
-------------------------------------------------------
.

format DETAIL_LINE =
@<<<<<<<<  @<<<<<<<<<<<<<<<<<<<< @##   ###.##   ####.##
$itemnr, $descr, $nr, $price, $totamt
.

format TOTAL =
-------------------------------------------------------
                         Totals @###           @####.##
$totnritems, $mdsetotal
.

format ADDLCHGS = 
                                               @####.##
.


$line = "AUSMIX25|Australia Mix (25)|1|1.00";





	($itemnr, $descr, $nr, $price) = split(/\|/, $line);
	$totamt = $nr * $price;
	$nr = sprintf("%03d",$nr);
	$price = sprintf("%03.%02", $price);
	$totamt = sprintf("%04.%02", $totamt);
	

	
	write;

We all know that it's something really, really obvious but I'll be darned if I see it.

Comments/slings and/or arrows/suggestions accepted gracefully.

Tnx.

Tom

"My mind is like a steel whatchamacallit ...

 

[KevinADC]

don't you need an '@' symbol before each field?

@<<<<<<<<  @<<<<<<<<<<<<<<<<<<<< @##   [COLOR=#ff0000]@[/color]###.##   [COLOR=#ff0000]@[/color]####.##

 

[tbohon]

<SIGH>

Yes, I do ...

TOLD you it was something (stupidly) simple.

Excuse me, I'm going to go take my medication now ...

Thanks, Kevin ...

(a really embarassed) Tom

"My mind is like a steel whatchamacallit ...

 

[KevinADC]

LOL...no problem. Three eyes are better than two, assuming you have two....