use Class::Struct;
struct STRUCT1 => {
a => '$', #a is a scalar
b => '$',
c => '$',
};
$s = STRUCT1->new();
$s->a(1);
$s->b(2);
$s->c(3);
#
printf "\na = %d, b = %d c = %d\n\n", $s->a, $s->b, $s->c;
__________________
William Ampeh (x3939)
Federal Reserve Board
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
