NAME

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/

SYNOPSIS

  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";
        }

DESCRIPTION

        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-)

AUTHOR

    Alan Jackson
    November 1999
    alan@ajackson.org

SEE ALSO