--- Curtis Poe <[EMAIL PROTECTED]> wrote:
> use strict;
>
> my $sname = "CblInfo";
> my $members;
> for my $i ( 1 .. 10 ) {
> $members->[$i] = $i;
> }
> my $a = person->new ( name => $sname,
> array => $members);
>
> my $name = $a->get_name;
> my $mem = $a->get_array;
> print "$name\n";
> for my $i ( 0 .. 10 ) {
> print "$mem->[$i]\n";
> }
>
> The above code is untested, but it should work.
Of course, it works a lot better when I don't use different index ranges :)
(1 .. 10) vs. (0 .. 10)
Cheers,
Curtis "Ovid" Poe
=====
Senior Programmer
Onsite! Technology (http://www.onsitetech.com/)
"Ovid" on http://www.perlmonks.org/
__________________________________________________
Do You Yahoo!?
Get email alerts & NEW webcam video instant messaging with Yahoo! Messenger
http://im.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
