Re^4: Perl MIME

Hi Tux, I was playing around with the code and now i have one set of data, currently stored in mimex, how can i get that data to make it run through the while loop below? basically, i want to be able to open and read the txt file created after it was parsed... use MIME::Parser; my $parser = new MIME::Parser; my $output = "/tmp/mimex"; $parser->output_dir($output); my $entity = $parser->read(\*STDIN); --> the file that appears in mimex.... Hi Tux, thanks for having a look. The problem that am facing is that i have this file that is sent from my email to the server. it has a number of different formats in it... like html/text , plain text etc . am interested in the text/plain format. Am using the Mime Parser to extract it from the mail and then want to convert it to csv ... to go through the loop... adn update my database...

currently when am running it i can see that is going to the point if($type eq 'text/plain') and stops, is not not giving me any errors or going through the rest of the code.... can you suggest me something different? thanks so much,,

use MIME::Parser;

my $parser = new MIME::Parser;

my $output = "/tmp/mimex";

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


open CSVFILE

$csv = Text::CSV->new();
$processed = 0;

#print "test4\n";

while (<CSVFILE>)
{


        $line = $_;
        if($line =~ /^$/)
        {
        }
        elsif ($indata ==0)
        {
        @data = split(/[| ]/,$line);


                if($data[0] eq 'Subject:')
                {
[download]

Comment on Re^4: Perl MIME Download Code

Replies are listed 'Best First'.
Re^5: Perl MIME by Tux (Canon) on Mar 22, 2012 at 07:44 UTC
Just replying to the CSV part. Why do you declare a csv parser object and never use it? And how is the data separated? The regex shows a pipe or a space. I know of pipe-separated rows that can be named csv, but space OR pipe? Let me assume you meant pipes, where spaces are allowed around the pipes ... `use MIME::Parser; my $parser = new MIME::Parser; my $output = "/tmp/mimex"; $parser->output_dir ($output); my $entity = $parser->read (\*STDIN); open my $fh, "<", $csv_filename; # That line was missing a lot my $csv = Text::CSV->new ({ binary => 1, auto_diag => 1, sep_char => " +\|", allow_whitespace => 1 }); my $processed = 0; #print "test4\n"; while (my $row = $csv->getline ($fh) { @$row or next; # skip empty lines if ($indata == 0) { @data = @$row; if ($row->[0] eq "Subject:") {` [download] Would that be a start? Enjoy, Have FUN! H.Merijn	[reply] [d/l]
Re^6: Perl MIME by Pan20 (Novice) on Mar 22, 2012 at 12:11 UTC
Hi Tux,thanks so much for your help, much appreciated. The data is separated by comma, the data is extracted after it goes through the while loop so am getting each column and row etc... The file is parsed so am getting a txt file in the mimex directory, obviously I cant refer to the file directly cause everytime i am running the code a different file is generated... how am gonna get the tx file..(which is text/plain format/csv.. `open my $fh, "<", $csv_filename;` [download] is the $csv_filename; will open that txt file stored in mimex directory? How can i open that txt file with all of my data so it gets through the while loop? Thanks a lot for your help.	[reply] [d/l]
Re^7: Perl MIME by Tux (Canon) on Mar 22, 2012 at 12:25 UTC
If the data is separated by comma's, your own example is horribly wrong, as it splits the data by space or pipe. Text::CSV (or Text::CSV_XS) don't need an actual file. They operate on "stream"s just as well. If your data is something that is looking like a filehandle, just pass it to `getline ()` and it should work fine ... `# make sure $fh is the file-handle to the CSV stream # with the CSV data in memory (say it is in $data), you can # use perlio: # 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] Enjoy, Have FUN! H.Merijn	[reply] [d/l] [select]
Re^8: Perl MIME by Pan20 (Novice) on Mar 22, 2012 at 13:49 UTC
Re^9: Perl MIME by Tux (Canon) on Mar 22, 2012 at 15:53 UTC