Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Suite et Fin LONGBLOB MySql Perl

1 réponse
Avatar
Frantz Dorsemaine
Bonsoir.

Enfin j'arrive à insérer un fichier dans une base mysql avec Perl::DBI et
le DBD::Mysql


C'est bien mais j'ai un probleme à l'extration pour reconstituer le
fichier.

Voici ma methode :
# NomPiece est fichier.zip
# Document est le contenue de fichier.zip encodé.

sub ExtrDoc {
$RqtSelPiece=$Base -> prepare("SELECT NomPiece,Document
FROM tb_piece_jointe
WHERE Id_Piece = '36'
");
$RqtSelPiece->execute or print "$DBI::errstr\n";;

($NomFichierDec,$ContenuDec)=$RqtSelPiece->fetchrow();
open(fic,">$NomFichierDec");
binmode(fic);
print fic "$ContenuDec";
close(fic);
}

Remarque :

Le fichier fait la bonne taille une fois extrait de la base et
reconstituer sur mon PC mais le fichier.zip est altéré et donc
inexploitable.

Avez vous une idée sur la question?

Merci Frantz

1 réponse

Avatar
Frantz Dorsemaine
Frantz Dorsemaine écrivait
news::

Bonsoir.

Enfin j'arrive à insérer un fichier dans une base mysql avec Perl::DBI
et le DBD::Mysql


C'est bien mais j'ai un probleme à l'extration pour reconstituer le
fichier.

Voici ma methode :
# NomPiece est fichier.zip
# Document est le contenue de fichier.zip encodé.

sub ExtrDoc {
$RqtSelPiece=$Base -> prepare("SELECT NomPiece,Document
FROM tb_piece_jointe
WHERE Id_Piece = '36'
");
$RqtSelPiece->execute or print "$DBI::errstrn";;

($NomFichierDec,$ContenuDec)=$RqtSelPiece->fetchrow();
open(fic,">$NomFichierDec");
binmode(fic);
print fic "$ContenuDec";
close(fic);
}

Remarque :

Le fichier fait la bonne taille une fois extrait de la base et
reconstituer sur mon PC mais le fichier.zip est altéré et donc
inexploitable.

Avez vous une idée sur la question?

Merci Frantz




Erreur de ma part, le probleme etait en amont, cela venait d'un probleme
d'encodage du fichier.zip.

voici l'erreur :

binmode(F, ":encoding(iso-8859-1)"); eu lieu de binmode(F);

Merci à tous pour votre aide qui ma sortie une épine du pied.

Frantz