x83.net » Perl http://www.x83.net Sat, 24 Jul 2010 09:50:05 +0000 http://wordpress.org/?v=2.9.2 en hourly 1 Perl script to read .dbx files http://www.x83.net/perl-script-to-read-dbx-files/ http://www.x83.net/perl-script-to-read-dbx-files/#comments Tue, 16 Jun 2009 07:31:13 +0000 Giany http://www.x83.net/?p=240 new( “Customer_List.dbx” )}; die $@ if $@; for my $msg ($dbx->emails) { my @bodxy = $msg->body; print @bodxy; } ]]> A customer asked me to filter a .dbx file (Outlook express) and extract some data. This script reads the .dbx and prints it in a readable format.

#!/usr/bin/perl
use Mail::Transport::Dbx;

my $dbx = eval { Mail::Transport::Dbx->new( “Customer_List.dbx” )};
die $@ if $@;

for my $msg ($dbx->emails) {
my @bodxy = $msg->body;
print @bodxy;
}

]]> http://www.x83.net/perl-script-to-read-dbx-files/feed/ 1