use strict;
use warnings;


package Names;

###########################################################################
# Rolf Rost, 14.2.2011
# Anonyme Array-Elemente bekommen Namen
###########################################################################
use strict;

# Setzt ein Array in ein Objekt um
sub new{
        my $class = shift;
        my $maps  = shift; # {3 => 'Day', 4 => 'Month', 5 => 'Year'}
        my $aref  = shift; # p.e. from localtime, stat, etc.
        return if ref $maps ne 'HASH';
        return if ref $aref ne 'ARRAY';
        my $self  = {};
    for(my $i = 0; $i < scalar(@$aref); $i++){
       $self->{$maps->{$i}} = $aref->[$i] if exists $maps->{$i};
    }
    
    return bless $self, $class;
}
1; ########################################################################

package CSV;

sub new{
        my $class = shift;
        my $handle = shift;
        my $self = bless{
                FH => $handle,
                COLS => {
                                0 => 'User',
                                1 => '/home',
                                2 => '/home/test',
                                3 => '/home/bin'
                        },
                DATA => {},
        }, $class;
        $self->_deserialize;
        return $self;
}

####################### PUBLIC ############################################
# Flags
sub user_dir_flag{
        my $self = shift;
        my $user = shift;
        my $dir = shift;
        return $self->{DATA}->{$user}->{$dir};
}
############################################# PRIVATE #####################
# Lesen der Daten auf eine Datenstruktur
sub _deserialize{
        my $self = shift;
        my $fh = $self->{FH};
        while(my $line = <$fh>){
                chomp $line;
                my @record = split ";", $line;
                my $name = Names->new($self->{COLS}, \@record);
                $self->{DATA}->{$record[0]} = $name; # Key ist der Benutzername
        }
}

1;#########################################################################
package main;


my $ref = CSV->new(*DATA);

print $ref->user_dir_flag('otto','/home'), "\n";      # 1
print $ref->user_dir_flag('otto','/home/test'), "\n"; # 0
print $ref->user_dir_flag('otto','/home/bin'), "\n";  # 0






__END__
user;/home;/home/test;/home/bin
fritz;0;1;0
otto;1;0;0
hans;1;1;1