view release on metacpan or  search on metacpan

eg/make_save.pl  view on Meta::CPAN

use lib '..';
use BTRIEVE::SAVE;

# Btrieve handles its indices well, but sometimes the indices should
# be defined outside the typical c programmers budget. Let's make an
# index that allows sort by location and title.

open F, $ARGV[0];
$/="";
while (<F>) {
    my $rhfixed;
    my ($fixed,$var)= split(/\n/);
    my @fvals = split(/\t/,$fixed);
    print $fvals[-1]." ";
    for (qw/loc dbcn date ZZ/) {
	$rhfixed->{$_}= shift @fvals;
    }

    $rhfixed->{loc_title_sort}= "a"x7;