zip base64 encoded 1

[gregaug]

hello,

I'm trying to zip a bunch of files, then base64 encode the zip file, write the base64 code to another perl script, and base64 decode the base64 code.

my $status = $zip->writeToFileNamed($zipname);
die "Error creating parts zip file.\n" if $status!= 'AZ_OK';
print TRVUP "__DATA__\n"
open ZIPFILE, $zipname; ##$zipname is a valid zip file
while(<ZIPFILE>){
$filecode .= $_;
}
my $base64zip = encode_base64($filecode);
print TRVUP $base64zip;

then, in TRVUP, I have:

open ZIP, "+>C:/testzip.zip";
while(\*DATA){
print ZIP decode_base64($_);
}
close ZIP;

This ends up creating the file testzip.zip, but it is not a valid zip file. Is it even possible to do what I want?

thanks for any help

 

[icrf]

If you're reading or writing from/to a binary file from perl in windows, be sure to set binmode(FILEHANDLE) prior.

[COLOR=#0000FF]my[/color] $status = $zip->writeToFileNamed($zipname);
[COLOR=#FF0000]die[/color] [COLOR=#808080]"Error creating parts zip file.\n"[/color] [COLOR=#0000FF]if[/color] $status!= [COLOR=#808080]'AZ_OK'[/color];
[COLOR=#FF0000]print[/color] TRVUP [COLOR=#808080]"__DATA__\n"[/color];

[COLOR=#FF0000]open[/color] ZIPFILE, $zipname;
[b][COLOR=#FF0000]binmode[/color](ZIPFILE);[/b]
[COLOR=#0000FF]while[/color](<ZIPFILE>) {
	$filecode .= $_;
}
[COLOR=#FF0000]close[/color] ZIPFILE;

[COLOR=#0000FF]my[/color] $base64zip = encode_base64($filecode);
[COLOR=#FF0000]print[/color] TRVUP $base64zip;

[COLOR=#006600]####################################################[/color]

[COLOR=#FF0000]open[/color] ZIP, [COLOR=#808080]"+>C:/testzip.zip"[/color];
[b][COLOR=#FF0000]binmode[/color](ZIP);[/b]
[COLOR=#0000FF]while[/color](\*DATA) {
	[COLOR=#FF0000]print[/color] ZIP decode_base64($_);
}
[COLOR=#FF0000]close[/color] ZIP;

- Andrew
Text::Highlight - A language-neutral syntax highlighting module in Perl
also on SourceForge including demo

 

[gregaug]

thanks! That's what I was missing. I also changed around the decoding of it, so I decoded teh whole thing at once instead of line by line.