#!/usr/bin/perl
# FILE:  modifyprice
# Example of how to change a field within a record of a database.  Requires two 
#   input parameters:  
#   - name of database
#   - number of product (key value) whose price you wish to change

# Use the DBM module.
use DB_File;  
use warnings;

($database, $index) = @ARGV;
my %inventory;

#Open the DBM database file.  
tie %inventory, DB_File, $database || die "Could not
open DBM file $database : $!\n";

#Does the record exist?
if (!defined $inventory{$index})
{
  print "$index does not exist.";
}
else
{

#Change the record.
$record=$inventory{$index};
($type,$name,$price,$desc) = split (/\|/,$record);
print "Current value for price of $name is: \$$price";
print "\n Enter new value for price: \$";
$price = <STDIN>;
chomp $price;
$inventory{$index} = "${type}|${name}|${price}|${desc}";
#Close the dbm databse
untie %inventory;
}