Deleting Entries from a DBM File : AnyDBM « Database « Perl

1.	Array
2.	CGI
3.	Class
4.	Data Type
5.	Database
6.	File
7.	GUI
8.	Hash
9.	Language Basics
10.	Network
11.	Regular Expression
12.	Report
13.	Statement
14.	String
15.	Subroutine
16.	System Functions
17.	Win32
18.	XML

Perl » Database » AnyDBM

Deleting Entries from a DBM File

   



#!/bin/perl

use AnyDBM_File;

dbmopen(%states, "statedb", 0666) || die;

TRY: {

     print "state abbreviation to remove. ";

     chomp($abbrev=<STDIN>);

     $abbrev = uc $abbrev;  

     delete $states{"$abbrev"};

     print "$abbrev removed.\n";

     print "Another entry? ";

     $answer = <STDIN>;

     redo TRY  if $answer =~ /Y|y/;  

}

dbmclose(%states);

Related examples in the same category

1.	Retrieving Data from a DBM File
2.	Writing Portable DBM Programs with the AnyDBM Module
3.	Create, add, delete, and close a DBM file and how to create a Perl-style report.

java2s.com | Contact Us | Privacy Policy

All other trademarks are property of their respective owners.