VMS::FlatFileRead and write hashes with VMS::IndexedFile | |
Download |
VMS::FlatFile Ranking & Summary
Advertisement
- License:
- Perl Artistic License
- Price:
- FREE
- Publisher Name:
- Thomas Pfau
- Publisher web site:
- http://nbpfaus.net/~pfau/ftplib/
VMS::FlatFile Tags
VMS::FlatFile Description
Read and write hashes with VMS::IndexedFile VMS::FlatFile is a Perl module to read and write hashes with VMS::IndexedFile.SYNOPSISStandalone # Load the module use VMS::FlatFile; # Create an instance # args - file name, access (ro=0, rw=1), format, key number my $file = new VMS::FlatFile 'disk$user01:file.dat', 0, , 0; # Read a hash my $hashref = $file->get($key); # Write a hash my $sts = $file->put($hashref); # Delete a record $sts = $file->delete($key);As a Base Class # name your derived class package MyFile; # Load the module and derive use VMS::FlatFile; use var qw(@ISA); @ISA = qw(VMS::FlatFile); 1; # override new sub new { my $class = shift; my $self = {}; bless $self,$class; # default to read only my $access = shift || 0; # use key 0 my $krf = shift || 0; $self->_initialize('disk:filename.type', $access, , $krf); return $self; } package main; # create an instance my $file = new MyFile; my $hashref = $file->get('keyvalue'); Requirements: · Perl
VMS::FlatFile Related Software