$record= $index{$keyName}{$keyValue}[0];
$fieldValue= $record->{fieldName};
$fieldValue= $data[$recordNumber]{$fieldName};
####
( $data, $index )= OpenFF( "flatfile.txt", qw(ID AGE) );
print "People ages 55 are:\n";
for( @{ $index{AGE}{55} } ) {
print "\t",$_->{NAME},"\n";
}
##
##
require File::Fields;
my $staff= File::Fields->new();
$staff->Delimiter('\s+');
$staff->IndexOn( "ID" );
$staff->Open( "main.txt" );
my $students= $staff->new( "student.txt" );
my $TAs= $staff->new( "ta.txt" );
my $classes= File::Fields->new( "classes.txt",
{ Delimiter=>'\s*,\s*', IndexOn=>[qw(COURSE TEACH ROOM) } );
my $enroll= File::Fields->new( "enroll.txt",
{ IndexOn=>[qw(STUDENT COURCE)] } );
$staff->AddIndex( qw(PHONE OFFICE) );
$TAs->AddIndex( "ADVISOR" );
$staff->AddField("TOTALSTUDENTS",0);
for my $teach ( @{ $staff->{} } ) {
for my $class ( @{ $classes->{TEACH}{$teach} } ) {
$teach->{TOTALSTUDENTS} +=
@{ $enroll->{COURSE}{$class} };
}
}
$staff->Write( "staff2.txt" );