danbri

#!/usr/bin/perl -w
#
# Read's a Thunderbird Addressbook, typically abook.mab
# WARNING: Please work only with redundant copy of your data!
#
# didn't install from cpan, just grabbed http://cpansearch.perl.org/src/KRIPT/Mozilla-Mork-0.01/lib/Mozilla/Mork.pm
require "Mork.pm";
use Mork;                                       #  use Mozilla::Mork;

$file = $ARGV[0];
unless ($file) { die "Useage: $0 <filename>\n"; }
my $MorkDetails = Mozilla::Mork->new($file);
my $results = $MorkDetails->ReturnReferenceStructure();
               map { print "Field Names: $_\n"; } @field_names;
my @field_names = sort(keys(%array));           # my @field_names = $MorkDetails->ListHeaders();
print "Records: ";
for my $record_array ( @{$results} )
{
  my %x = %{ $record_array};
  foreach my $k ( keys %x)
  {
    print $k . ":" . $x{$k} . "\n" if $x{$k};
  }
print "\n";
}