Comment télécharger un fichier en utilisant CGI APPLICATION

Question

Salut J'essaie de télécharger le fichier image en utilisant perl cgi-application. Je ne sais pas ce que je fais mal - mais un fichier image vide (avec le bon nom) est enregistré.

---

mon image $ = $ auto> query-> param ('image');
my $ buffer; mon $ bytesread;

ouvert (OUTFILE, ">> $ rép_utilisateur/profile_picture/$ image"); While ($ bytesread = read ($ image, $ buffer, 1024)) {
print OUTFILE $ buffer;
}

Answer 1

Lisez la section "CREATION D'UN FICHIER DE TÉLÉCHARGEMENT DE FICHIER" dans la documentation CGI.pm. Là, vous verrez que la méthode upload va retourner un handle de fichier.

my $fh = $self->query->upload('picture'); 

    my $buffer; my $bytesread; 
    while ($bytesread = read($fh, $buffer, 1024)) { 
     ... 
    } 

Answer 2

Ne pas oublier votre élément de formulaire HTML doit également spécifier enctype = « multipart/mixte », sinon le filestream de téléchargement ne sont pas envoyés.