AddressBook.pm - Read and select from an ASCII address book as defined by http://home.pages.de/~clemens and his Tcl/Tk addressbook software. Moved to http://addressbook.home.pages.de or http://www.red.roses.de/~clemens/addressbook/

  use AddressBook;

  my $book = "$ENV{HOME}/addresses_private";

  	#	set the addressbook and open it

	my $addr = AddressBook->new($book);

	#	Get all addresses in which the 'remark' field equals 'EFM'

	my $data = $addr->getaddresses('remark','EFM');

	#	Print out a list of addresses

	foreach (sort {$a->[1] cmp $b->[1]} @{$data}) {
		print "$_->[0] $_->[1]\n",
			  "$_->[3] \n",
			  "$_->[5], $_->[6]  $_->[7]\n",
			  "$_->[10]\n",
			  "$_->[13]\n\n";
	}

	Open an address database and select entries. Need to add stuff like
	"list the available fieldnames", "generate statistics on fields &
	values", and similar databasey type stuff.

	Primarily built to build data for my PostScript::MailLabels modules
	so I can print my Christmas Card mailing labels. 8-)

    Alan Jackson
    November 1999
    alan@ajackson.org