much easier!!use vars qw/$mw $col @row/; @row = ( { parent_frame => $mw, label_width => 12, entry_width => 10, label_1 => 'Alpha 1', label_2 => 'Bravo 2', }, { parent_frame => $mw, label_width => 12, entry_width => 10, label_1 => 'Charlie 3', label_2 => 'Delta 4', label_3 => 'Echo 5', label_4 => 'Foxtrot 6', }, { parent_frame => $mw, label_width => 12, entry_width => 10, label_1 => 'Hotel 7', label_2 => 'India 8', label_3 => 'Juliet 9', label_4 => 'Kilo A', }, ); # and then later: mk_entrybox_row($_) for @row;
Oh, by the way, i personally consider it bad style (or false laziness) to wrap your entire writeup in code tags. Try to only use code tags for code (sometimes output) and use <p> tags to separate your paragraphs. See Perl Monks Approved HTML tags for more info.
jeffa
L-LL-L--L-LL-L--L-LL-L-- -R--R-RR-R--R-RR-R--R-RR B--B--B--B--B--B--B--B-- H---H---H---H---H---H--- (the triplet paradiddle with high-hat)
In reply to (jeffa) 2Re: create arbitrarily named scalars
by jeffa
in thread create arbitrarily named scalars
by aplonis
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |