curtisbsub dborder { dbmopen(%order, "order", 0644) || die "Unable to open db : $!"; $order{'o'} = $order; $order{"name"} = $name; $order{"address"} = $add; $order{"city"} = $city; $order{"state"} = $state; $order{"zip"} = $zip; $order{"country"} = $country; $order{"email"} = $email; $order{"cost"} = $cost; $order{'a'} = [@food]; $order{'b'} = [@fries]; $order{'c'} = [@onionrings]; $order{'d'} = [@drink]; $order{'o'}++; dbmclose(%order) || die "Cannot close dbm file.\n"; }
In reply to Adding records to a hash db by curtisb
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |