in reply to bless array of hashes correct get method wrong
Perhaps something like this:
outputs 3#!/usr/bin/perl use strict; use warnings; { package Item; sub new { my ($class) = @_; my $self = [ {fld1 => 1, fld2 => 2}, {fld1 => 3, fld2 => 4}, ]; bless $self, $class; } sub get_fld { my ($self, $rec, $fld) = @_; return $self->[$rec]{$fld}; } } my $item = Item->new; my $fld = $item->get_fld(1, 'fld1'); print "$fld\n";
|
|---|