Looping : Replicate child(ren)

• Our Model

        package Simple::Class;

        my @name   = qw(bob bill brian babette bobo bix);
        my @age    = qw(99  12   44    52      12   43);
        my @weight = qw(99  52   80   124     120  230);

        sub new {
            my $this = shift;
            bless {}, ref($this) || $this;
        }

        sub load_data {
            my @data;

            for (0 .. 5) {
                push @data, { 
                    age    => $age[rand $#age] + int rand 20,
                    name   => shift @name,
                    weight => $weight[rand $#weight] + int rand 40
                    }
            }

            \@data;
        }

• Usage

        my $data = Simple::Class->load_data;
        ++$_->{age} for @$data

More Details

November 2003