Forum d'entraide PHPFrance

Bonjour à tous,

Etant plutot habitué au PHP, je perd un peu mes repères lorsqu'il s'agit
d'executer un script PERL.

J'ai essayé de configurer apache pour executer les fichiers .pl mais
en vain.

Voici la source de mon code uploadzip.pl

Code : Tout sélectionner

#!/usr/bin/perl -w
use CGI;    # module pour faire du CGI
use Carp;
use strict;
 
# declaration du nouvel objet
my $query = new CGI;
 
# debut de la page html
print $query->header();
print $query->start_html();
 
# repertoire où effectuer l'upload
my $dir_upload = "";  
 
# recuperation du nom du fichier
my $filename = $query->param("image");
 
# upload du handle du fichier
my $upload_filehandle = $query->upload("image") or die ("probleme de lecture");
 
# ecriture dans le repertoire $dir_upload du fichier $filename à partir du #handle
open (UPLOAD, ">$dir_upload/$filename");
binmode UPLOAD;
while (my $ligne=<$upload_filehandle>) {
	chomp($ligne);
      print UPLOAD "$ligne\n";
}
# fin de l'ecriture
close UPLOAD;
 
# fin de la page html
print $query->end_html;

Apache me retourne l'erreur suivante :

Internal Server Error

Si quelqu'un s'y connait un peu en PERL, son aide serait la bienvenue.

Merci à vous.

Forum d'entraide PHPFrance

Comment executer un script PERL

Comment executer un script PERL