First page Back Continue Last page Overview Graphics
Example 2: code (cont.)
sub price
{ my( $twig, $price)= @_;
my $value= $price->text;
if( $value=~ /^\$(.*)$/)
{ my $dollar_value= $1;
my $euro_value= sprintf( "%5.2f", $dollar_value / $RATE);
$price->set_text( $euro_value);
$price->set_att( currency => "EUR");
}
else
{ die "wrong dollar value '$value'\n"; }
$price->print;
}