MIME base64

[Frantz Dorsemaine]

Bonjour, voici un autre petit problème.

voici un script qui encode en base64 une image png et qui le decode vers un autre fichier.
Le problème est que j'ai toujours une difference de quelques octets entre l'original et le résulta final.

Plus l'image est lourde, plus l'écart entre les deux fichiers est grand.
#! /usr/bin/perl -w

use MIME::Base64 qw(encode_base64 decode_base64);

my $enr;

open(f_img, ">img_dec.png");

open(FILE, "img2.png") or die "$!";
while (read(FILE, $buf, 30*57)) {
$enr=$enr.=encode_base64($buf);
}

print f_img decode_base64($enr);

close(f_img);

Merci pour vos réponses.

Le but une fois que cela fonctionne, est de stocker des images de petite taille dans une base MySql.

[Klaus]

On 4 sep, 14:53, Frantz Dorsemaine <dorsemaine.fra...@gmail.com>
wrote:

> Bonjour, voici un autre petit problème.
>
> voici un script qui encode en base64 une image png et qui le decode vers un autre fichier.
> Le problème est que j'ai toujours une difference de quelques octets entre l'original et le résulta final.
>
> Plus l'image est lourde, plus l'écart entre les deux fichiers est grand.

essaie d'employer binmode sur les deux fichiers f_img et FILE:

> #! /usr/bin/perl -w
>
> use MIME::Base64 qw(encode_base64 decode_base64);
>
> my $enr;
>
> open(f_img, ">img_dec.png");

binmode f_img;

>    open(FILE, "img2.png") or die "$!";

binmode FILE;