hi again im practicing handling structures. im very much a newbie at this so theres prolly something wrong with my code.
> If this is what you want, maybe you have an error in your
> read_recordfile?
sub read_recordfile
{
my $records;
{
local ($/) = undef;
open SOURCE, $recordfile or die "Can't open file: $!";
$records = eval <SOURCE>;
die $@ if $@;
close SOURCE;
}
return $records;
}
:-)
martin
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
