[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

[MacPerl-WebCGI] using printf



I'm trying to use printf to return a decimal value and I keep getting an error that says can't modify scalar in subroutine.  If you have any info that'll be useful, by all means. . .

Here's my script:
	## start cycling through the chosen series
	foreach (@suppl) {
		($name,$cents) = split(/~/,$supplh{$_});
		$price = &decimal($cents);
		
		## work with Building You Answer
		if (/ba/) {
			my $a=(<tr><td><b>
			my $b=$name
my $c=</b></td>)(<td align=center><input type=hidden name=suppl$i.product value=\"Building Your Answer Activity Pages (Grades 2-4)\">Grades 2-4:</td>)
my $d=(<td align=center><input type=text size=2 name=suppl$i.qty><input type=hidden name=suppl$i.price value=$cents></td>\n)
                                         	printf  "%3s %6d %20s %20s" my $a, my $b, my $c, my $d;

			$i++;
$a=(td align=center><input type=hidden name=suppl$i.product value=\"Building  Your Answer Activity Pages (Grades 5-12)\">Grades 5-12:</td>)(<td align=center><input type=text size=2 name=suppl$i.qty><input type=hidden name=suppl$i.price value=$cents></td>)(<TD align=right COLSPAN=8>
$b=\$$price
$c=<img src=\"/images/space.gif\" width=20></TD></TR>\n)
                                         	printf  "%3s %6d %20s"  $a,  $b,  $c;
			$i++;
			next;
		}



==== Want to unsubscribe from this list?
==== Send mail with body "unsubscribe" to macperl-webcgi-request@macperl.org