Re^2: HTTP::Response parse and save attached zip file.

Code moved to question per thomas895, thank you.
The data shown (GotToBTru), is the response.

What module would best parse the content to extract the attached binary Zip file?

Good questions thomas895;
When you run that code, what happens?
I can see the data (shown in question). But I can't get parts to give me the second multipart message (mime) which contains the Zip file.
Do you get an error message?
No error message that I am aware of (apache log, or in browser)
What does it say? N/A
How have you tried to fix it?
I can get my script to display the response data (shown in question), saved as binary, when I open the response mime file in my thunderbird email, the zip file is there, but it is corrupt (wrong size too).
If you don't get an error, how does the result differ from what you expect?
I cant get to the Zip file. I want to extract it and save it to a file.
Does your zip library of choice support extraction from memory?
I dont have one yet... I am considering Archive::Zip.

Thanks for your replies. :)

Comment on Re^2: HTTP::Response parse and save attached zip file.

Replies are listed 'Best First'.
Re^3: HTTP::Response parse and save attached zip file. by sharprez (Novice) on Oct 12, 2015 at 14:45 UTC
I was able to get the zip file out of my response data. Although I'm very happy about that, I'm not sure I have a full understanding of why it wouldn't show when I parsed the data. Thank you Dumper! :) $zipfile in the code below did have my zip file intact...I unzipped and had good data. Time for a coffee break and contemplation!! :) :) `my $parser = MIME::Parser->new(); $parser->output_to_core(1); my $ref = $parser->parse_data(\$xmltrans); my $zipfile = $ref->{ME_Parts}[0]{ME_Bodyhandle}{MBS_Data};` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: HTTP::Response parse and save attached zip file.
by sharprez (Novice) on Oct 12, 2015 at 14:45 UTC

I was able to get the zip file out of my response data. Although I'm very happy about that, I'm not sure I have a full understanding of why it wouldn't show when I parsed the data. Thank you Dumper! :) $zipfile in the code below did have my zip file intact...I unzipped and had good data. Time for a coffee break and contemplation!! :) :)

my $parser = MIME::Parser->new();
$parser->output_to_core(1);
my $ref = $parser->parse_data(\$xmltrans);
my $zipfile = $ref->{ME_Parts}[0]{ME_Bodyhandle}{MBS_Data};
[download]

[reply]
[d/l]