Hello All,
I'm having a problem with processing an Windows Outlook Express '.dbx'
file.
The script I've written to cut down the file to plain text works a treat
on the RISC OS port of Perl5.... but when I run it on the nsPerl port
installed on my friends PC it appears to choke on bytes containing the
value 0x1A. If these bytes are removed in a text editor, all then goes
well on the PC.
Not having any experience with PC/Windows I'm at a loss as to how to
overcome this. My script runs until it encounters the first 0x1A and
appears to go no further.
I know this is somewhat off topic for a RISC OS Perl list but hope
someone will have pity on me!
Best regards, Philip.
Script:
(The first substitution is for odd 16 bytes of scribble that appear
within the email text.)
#!perl -w
open INFILE, "<emails.dbx" or die "Cannot read input file: $!";
open OUTFILE, ">filtrd.txt" or die "Cannot create output file: $!";
while (<INFILE>) {
s/.....\002\000\000........//g;
s/[^ -~]+//g;
print OUTFILE "$_\n";
}
close INFILE;
close OUTFILE;
