<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:wfw="http://wellformedweb.org/CommentAPI/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
	xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
	>

<channel>
	<title>x83.net &#187; dbx</title>
	<atom:link href="http://www.x83.net/tag/dbx/feed/" rel="self" type="application/rss+xml" />
	<link>http://www.x83.net</link>
	<description></description>
	<lastBuildDate>Tue, 31 Jan 2012 13:53:33 +0000</lastBuildDate>
	<language>en</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
	<generator>http://wordpress.org/?v=3.3.1</generator>
		<item>
		<title>Perl script to read .dbx files</title>
		<link>http://www.x83.net/perl-script-to-read-dbx-files/</link>
		<comments>http://www.x83.net/perl-script-to-read-dbx-files/#comments</comments>
		<pubDate>Tue, 16 Jun 2009 07:31:13 +0000</pubDate>
		<dc:creator>Giany</dc:creator>
				<category><![CDATA[Perl]]></category>
		<category><![CDATA[dbx]]></category>
		<category><![CDATA[mail]]></category>
		<category><![CDATA[perl]]></category>
		<category><![CDATA[Transport]]></category>

		<guid isPermaLink="false">http://www.x83.net/?p=240</guid>
		<description><![CDATA[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( &#8220;Customer_List.dbx&#8221; )}; die $@ if $@; for my $msg ($dbx->emails) { my @bodxy = $msg->body; print @bodxy; }]]></description>
			<content:encoded><![CDATA[<p>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. </p>
<blockquote><p>#!/usr/bin/perl<br />
use Mail::Transport::Dbx;</p>
<p>my $dbx = eval { Mail::Transport::Dbx->new( &#8220;Customer_List.dbx&#8221; )};<br />
die $@ if $@;</p>
<p>for my $msg ($dbx->emails) {<br />
    my @bodxy = $msg->body;<br />
    print @bodxy;<br />
}</p></blockquote>
]]></content:encoded>
			<wfw:commentRss>http://www.x83.net/perl-script-to-read-dbx-files/feed/</wfw:commentRss>
		<slash:comments>1</slash:comments>
		</item>
	</channel>
</rss>

