Re^8: Perl MIME

Hi Tux, once last question, the /data to open the text file, in my case is /mimex or is the \*STDIN ? just putting it all together , see below.... looks ok to you? Thanks so much!!!

#! /usr/bin/perl


open FILE,">>/tmp/SRP_RMS.xlog";
print FILE "\nInitialising\n";

my $dbh = DBI->connect($dsn,$user,$pass)
   or die "Can't Connect to the DB: $DBI::errstr\n";

$indata=0;

use MIME::Parser;

$parser = new MIME::Parser;

$output = "/tmp/mimex";


$parser->output_dir($output);

my $entity = $parser->read(\*STDIN);

open my $fh, "<", \$data;

my $csv = Text::CSV_XS->new ({ binary => 1, auto_diag => 1 });

while (my $row = $csv->getline ($fh) {
    @$row or next; # skip empty lines
    if ($indata == 0) {
        @data = @$row;
        if ($row->[0] eq "Subject:") {
[download]

Comment on Re^8: Perl MIME Download Code

Replies are listed 'Best First'.
Re^9: Perl MIME by Tux (Canon) on Mar 22, 2012 at 15:53 UTC
You have never set anything to `$data`, so this will fail. If I read MIME::Parser, it stores the "part"s in the folder you tell it to store them, and the API does not mention how to check what parts are stored and how. Maybe you should use MIME::Tools instead, as its documentation suggests. For what you try to solve, this looks pretty promising. In the scheme you now present, you will have to `opendir DIR, $output;` and use readdir () to find out what files were written and then open the required file. As long as you do not have a pointer to a valid CSV stream, I think my help is rather dim. Enjoy, Have FUN! H.Merijn	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^9: Perl MIME
by Tux (Canon) on Mar 22, 2012 at 15:53 UTC

You have never set anything to $data, so this will fail. If I read MIME::Parser, it stores the "part"s in the folder you tell it to store them, and the API does not mention how to check what parts are stored and how. Maybe you should use MIME::Tools instead, as its documentation suggests. For what you try to solve, this looks pretty promising.

In the scheme you now present, you will have to opendir DIR, $output; and use readdir () to find out what files were written and then open the required file.

As long as you do not have a pointer to a valid CSV stream, I think my help is rather dim.

Enjoy, Have FUN! H.Merijn

[reply]
[d/l]
[select]