in reply to format declaration in a class
Declare your format variables with either vars or our and then within the loop use local e.g
Or you could fully qualify your variables in your format and localize the appropriate variables i.euse vars qw($sku, $description, $price, $qty); foreach my $item (@items) { local($sku, $description, $price, $qty) = @$item; write(PURCHASEORDER); }
Or you can declare the lexicals before the format, if that's feasible. See. perlform for more info.use strict; format STDOUT = @<<<<<<< $::foo . local $::foo = 'a string'; write STDOUT; __output__ a string
HTH
_________
broquaint
update: added second to last sentence and finished the incomplete middle sentence
In Section
Seekers of Perl Wisdom