Tie::Eudora 0.01

Tie::Eudora is a Perl module that can encode/decode emails, read/write emails in Eudora mailbox files.

SYNOPSIS

####
# Subroutine interface
#
$encoded_email = decode_record($mailbox_email);
@email = decode_field($encoded_email);

$encoded_email = encode_field (@email);
$mailbox_email = encode_record($encoded_email);

#####
# Object Interface
#
$eudora = Tie::Form->new(@options);

$encoded_email = $eudora->decode_record($record);
@email = $eudora->decode_field($encoded_email);

$encoded_email = $eudora->encode_field (@email);
$mailbox_email = $eudora->encode_record($encoded_email);

$mailbox_email = $eudora->get_record();
$success = $eudora->put_record($mailbox_email);

####
# use file subroutines to write/read Eudora mailbox files
#
tie *MAILBOX, Tie::Eudora;
open MAILBOX,>,$mbx;
print MAILBOX @mailbox;
close MAILBOX;

open MAILBOX,<,$mbx;
@mailbox = ;
close MAILBOX;

The Tie::Eudora program module provides a File Handle Tie package for reading and writing of Eudora mailbox files. The Tie::Eudora package handles each email in Eudora mailbox files as a record. Each record is read and written not as a scalar text string but as an array of field-name, field-body pairs corresponding to the header and body fields in the email.