On 04/28/00, "Richard Soriano <[EMAIL PROTECTED]>" wrote:
> Basically, the mail server went to la la land with the file on the Mail
> Server.
> Perhaps, I'll try to monkey with that a little more with the help from the
> SA.
> All the emails are in one big file and they're divided by /~From </
>
> I shall look at Mime Parser.
If all you want are the attachments then that's probably the
best answer. If you really still want to split the emails,
then you'll have to rethink your splitting routine.
my $fh;
my $cnt=0;
while (<>) {
if ( /^from:\s*(.*)/i ) {
$from = $1;
$fh-> if $fh;
$cnt++;
$filename = $from.$cnt;
$fh = new IO::File ( "> $filename")
or die "Error opening $filename: $!";
}
print $fh;
}
$fh->close if $fh;
You might want to debug this to make sure you're
catching those 'From' lines and getting the correct
info from them.
---
You are currently subscribed to perl-win32-users as: [archive@jab.org]
To unsubscribe, forward this message to
[EMAIL PROTECTED]
For non-automated Mailing List support, send email to
[EMAIL PROTECTED]
