Upload de fichier

**linou** · 16/08/2005, 11h22

Bonjour a tous!

Je suis en train d'essayer d'enregistrer un fichier sur un serveur distant.
Pour le moment, j'arrive a afficher ce que contient un fichier lorsque c'est un .txt.

Voila le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
#!/usr/local/bin/perl -w 
 
use strict; 
use CGI; 
use DBI; 
use FORM; 
no warnings 'uninitialized'; 
 
 
my $q = new CGI; 
my $login = $q->param("login"); 
my $pass = $q->param("pass"); 
my $schema = GREGOR_Serre->getSchema(); 
my $submit = $q->param("btn_submit");
 
print $q->header(); 
print FORM->getHeader("Worksheet"); 
 
if ( $login , $pass) 
{
  print "\n<body><center>\n"; 
 
  print "Content-type: text/html\n\n";
 
  print FORM->getHeader("Stock"), "\n<body>";
  print "<center>\n";
 
  print $q->p($q->h1("Stock")),$q->br();
 
  #Liste des variables recuperees
  my @lst_params = $q->param; 
  foreach my $param (@lst_params) 
  { 
    my $val = $q->param($param); 
    print "$param : $val<br>"; 
  } 
 
  print "<form name='stock' action='test.cgi' method='post' enctype='multipart/form-data'>";
 
  # vérif du login/pass
  if ( $login ne ''  && $pass ne '')
  {
    print $q->hidden(-name=>"login", -value=>$login); 
    print $q->hidden(-name=>"pass", -value=>$pass);
 
   $submit = $q->param('submit');
 
    if ($submit ne  "Validate")
    {
    print "&nbsp;Scan: &nbsp;&nbsp;
    print $q->filefield(-name=>'photo',-size=>40,-maxlength=>80);
    print "<br>";
    print $q->submit(-name=>"submit", -value=>'Validate');
 
    print "</form>";
    }
    else
    {
      no strict;
 
      my $fh = $q->upload('photo');
      while (<$fh>)
      {
	chomp;
	print;
      }
 
      print "</html>";
    }
  }

j'ai suivi ce qu'il y avait la : http://perl.enstimac.fr/ModulesFr/CGI.html#création%20d'un%20champ%20de%20téléchargement%20de%20fichier%20(file%20upload)

Mais apres, je ne sais pas comment faire...
Je veux pouvoir copier des images, donc du gif ou du jpg par exemple.

Est ce que quelqu un peut m'aider?

Merci a vous!
Linou

**Jeh** · 16/08/2005, 14h58

Salut !
Voici un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
sub Upload  {
	my($query, $upload_dir) = @_;
    my($file_query, $file_name, $size, $buff, $time, $bytes_count);
	$size = $bytes_count =0;
	$_ = $file_query = $query->param('file');
	s/\w://;
	s/([^\/\\]+)$//;
	$_ = $1;
	s/\.\.+//g;
	s/\s+//g;
	$file_name = $_;
 
	if (! $file_name) {
		$_ = $NAME_TITLE{'EU_BadFN'};
		s/Value_FileName/$file_name/ig;
		&Error($_, 1);
	}
 
	if (-e "$upload_dir/$file_name") {
		$_ = $NAME_TITLE{'EU_FExist'};
		s/Value_FileName/$file_name/ig;
		&Error($_, 1);
	}
 
    open(FILE,">$upload_dir/$file_name") || &Error("Error opening file $file_name for writing, error $!", 1);
    binmode FILE;
    $time=time();
    while ($bytes_count = read($file_query,$buff,2096)) {
    	$size += $bytes_count;
        print FILE $buff;
    }
    close(FILE);
 
    if ((stat "$upload_dir/$file_name")[7] <= 0) {
	   	unlink("$upload_dir/$file_name");
    	$_ = $NAME_TITLE{'EU_Size'};
		s/Value_FileName/$file_name/ig;
        &Error($_, 1);
    } else {
    	$time = time -$time;
    	$_ = $NAME_TITLE{'Upload_Succes_txt'};
		s/Value_FileName/$file_name/ig;
		s/Value_Size/$size/ig;
		s/Value_Time/$time/ig;
        &ResutPage($NAME_TITLE{'Upload_Succes'}, $_);
     }
}

je l'ai trouvé sur un autre site.

**linou** · 16/08/2005, 15h11

oui, j'ai deja vu ce script, mais je n'arrive pas a le mettre en application... Voila pourquoi je demande de l'aide

**Jeh** · 17/08/2005, 10h51

bah en fait, c'est pas compliqué. Tu récupère un descripteur de ton fichier uploadé que tu utilises pour créer un nouveau fichier sur ton serveur.
Le même code commenté :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
sub Upload  {
	my($query, $upload_dir) = @_;
    my($file_query, $file_name, $size, $buff, $time, $bytes_count);
	$size = $bytes_count =0;
 
	# RECUPERATION DU DESCRIPTEUR DU FICHIER UPLOADE
	$_ = $file_query = $query->param('file');
	# RÉCUPÉRATION DU NOM DU FICHIER
	s/\w://;
	s/([^\/\\]+)$//;
	$_ = $1;
	s/\.\.+//g;
	s/\s+//g;
	$file_name = $_;
 
	if (! $file_name) {
		$_ = $NAME_TITLE{'EU_BadFN'};
		s/Value_FileName/$file_name/ig;
		&Error($_, 1);
	}
    # TEST DE L'EXISTANCE DU FICHIER SUR LE SERVEUR
	if (-e "$upload_dir/$file_name") {
		$_ = $NAME_TITLE{'EU_FExist'};
		s/Value_FileName/$file_name/ig;
		&Error($_, 1);
	}
 
    # OUVERTURE DU NOUVEAU FICHIER SUR LE SERVEUR
    open(FILE,">$upload_dir/$file_name") || &Error("Error opening file $file_name for writing, error $!", 1);
    binmode FILE;
    $time=time();
    # LECTURE DU DESCRIPTEUR ET ÉCRITURE DANS LE NOUVEAU FICHIER SUR LE SERVEUR
    while ($bytes_count = read($file_query,$buff,2096)) {
    	$size += $bytes_count;
        print FILE $buff;
    }
    close(FILE);
    # ON VÉRIFIE SI LA COPIE EST CORRECTE
    if ((stat "$upload_dir/$file_name")[7] <= 0) {
	   	unlink("$upload_dir/$file_name");
    	$_ = $NAME_TITLE{'EU_Size'};
		s/Value_FileName/$file_name/ig;
        &Error($_, 1);
    } else {
    	$time = time -$time;
    	$_ = $NAME_TITLE{'Upload_Succes_txt'};
		s/Value_FileName/$file_name/ig;
		s/Value_Size/$size/ig;
		s/Value_Time/$time/ig;
        &ResutPage($NAME_TITLE{'Upload_Succes'}, $_);
     }
}

**linou** · 18/08/2005, 16h10

Merci pour les explications, j'y vois deja plus clair.

Par contre, je n'arrive pas bien a saisir quels sont les parametres que je dois mettre lorsque j'appelle ma fonction...

Dans mon formulaire, le champ dans lequel j'entre le chemin du fichier est photo_pheno2.

comment faut-il que j'appelle la fonction? Est ce que ca cest correct ou bien faut il ajouter autre chose?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
$dir = "http://serveur.intranet-entreprise.com/project/";
upload($photo, $dir);

Merci pour le coup de main
Linou

**Jeh** · 22/08/2005, 16h43

Dans l'exemple, le "$query" correspond à ton objet CGI, la table hash qui contient tous les champs de ton formulaire entre autres.
D'après ton code, cette variable correspond à ta variable "$q".

Bon courage.

**linou** · 06/09/2005, 15h44

Bonjour,

Je viens de reprendre le script, et j'arrive enfin à uploader mes fichiers sur le serveur.

Par contre, maintenant, j'aimerais bien comprendre ce que fait exactement ce script...

1er probleme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
$_ = $file_query = $q->param('photo_pheno'); 
# RÉCUPÉRATION DU NOM DU FICHIER 
   s/\w://; 
   s/([^\/\\]+)$//; 
   $_ = $1; 
   s/\.\.+//g; 
   s/\s+//g; 
   $file_name = $_;

Comment toutes le traitement qui est fait sur le nom du fichier peut etre conservé alors qu'on fait juste les substitutions sans les attribuer à une variables pour les conserver, du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$_=s/\w://;

Le 2eme probleme, c'est pour cette partie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
# ON VÉRIFIE SI LA COPIE EST CORRECTE 
    if ((stat "$upload_dir/$file_name")[7] <= 0) { 
         unlink("$upload_dir/$file_name"); 
       $_ = $NAME_TITLE{'EU_Size'}; 
      s/Value_FileName/$file_name/ig; 
        &Error($_, 1); 
    } else { 
       $time = time -$time; 
       $_ = $NAME_TITLE{'Upload_Succes_txt'}; 
      s/Value_FileName/$file_name/ig; 
      s/Value_Size/$size/ig; 
      s/Value_Time/$time/ig; 
        &ResutPage($NAME_TITLE{'Upload_Succes'}, $_); 
     }

Pour ma part, j'ai mis la derniere ligne en commentaire (&ResutPage($NAME_TITLE{'Upload_Succes'}, $_); )

Est ce qu'on peut m'aider à y voir plus clair?

Merci a vous tous.

linou

**Mr6** · 07/09/2005, 07h58

slt !

1. Les substitutions se font sur la variable courante, donc implicitement sur $_.

2. Le if sert à vérifier si l'upload s'est bien passé en vérifiant le paramètre du fichier contenant la taille de celui-ci. Le else sert à générer une page web pour indiquer le succès de l'upload, en utilisant un template. Cette dernière partie ne te sert pas à grand chose sous cette forme, tu peux en réécrire le contenu comme tu le sens.
----
J'allais oublier, pour le if, tu as aussi toute une partie que tu peux refaire à ta guise, car écrite à la base pour appeler un template générique renvoyant une erreur. Le unlink permet de supprimer le fichier erroné.

@+
Mr6

**linou** · 07/09/2005, 10h22

Mr6, merci pour ces explications.

Bon, maintenant, j'ai essayé de mettre ma fonction dans un package et je rencontre un nouveau probleme...

Le fichier que je suis censée traiter avec la fonction Upload ne l'ai pas, et ca vient visiblement du passage de parametre...

Dans mon script, je fait un appel à la fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
$photo = $q->param('photo');
    print "photo : $photo<br>";#Affichage du chemin complet du fichier d'origine (ex : photo : C:\Documents and Settings\moi\Bureau\carte.ppt).
    FONCTION->Upload ($photo);

Et voici ma fonction qui se trouve dans le package FONCTION :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
sub Upload  
{ 
  my($fich) = @_; 
  my($file_query, $file_name, $size, $buff, $time, $bytes_count, $upload_dir); 
  $size = $bytes_count =0; 
 
  # RECUPERATION DU DESCRIPTEUR DU FICHIER UPLOADE 
  print "fichier : $fich<br>"; #Affichage de "FONCTION" au lieu du nom de 'carte.ppt'
  $_ = $file_query = $fich; 
 
  # RÉCUPÉRATION DU NOM DU FICHIER 
  s/\w://; 
  s/([^\/\\]+)$//; 
  $_ = $1; 
  s/\.\.+//g; 
  s/\s+//g; 
  $file_name = $_; 
  print "file_name : $file_name<br>"; #Affichage de "FONCTION" au lieu de 'carte.ppt'
 
  if(($file_name=~ /\.doc/) || ($file_name=~ /\.DOC/)) {
    $upload_dir = "/projects/doc/";
  } elsif (($file_name=~ /\.bmp/) || ($file_name=~ /\.BMP/)) {
    $upload_dir = "/projects/bmp/";
  } $upload_dir = "/projects/gb/";
  } elsif (($file_name=~ /\.gif/) || ($file_name=~ /\.GIF/)) {
    $upload_dir = "/projects/gif/";
  } elsif (($file_name=~ /\.htm/) || ($file_name=~ /\.HTM/) || ($file_name=~ /\.html/) || ($file_name=~ /\.HTML/)) {
    $upload_dir = "/projects/htm/";
  } elsif (($file_name=~ /\.jpg/) || ($file_name=~ /\.JPG/) || ($file_name=~ /\.jpeg/) || ($file_name=~ /\.JPEG/)) {
    $upload_dir = "/projects/jpg/";
  } elsif (($file_name=~ /\.pdf/) || ($file_name=~ /\.PDF/)) {
    $upload_dir = "/projects/pdf/";
  } elsif (($file_name=~ /\.ppt/) || ($file_name=~ /\.PPT/) || ($file_name=~ /\.pps/) || ($file_name=~ /\.PPS/)) {
    $upload_dir = "/projects/ppt/";
  } elsif (($file_name=~ /\.txt/) || ($file_name=~ /\.TXT/)) {
    $upload_dir = "/projects/txt/";
  } elsif (($file_name=~ /\.rtf/) || ($file_name=~ /\.RTF/)) {
    $upload_dir = "/projects/rtf/";
  } elsif (($file_name=~ /\.tif/) || ($file_name=~ /\.TIF/)) {
    $upload_dir = "/projects/tif/";
  }  else {
    $upload_dir = "/projects/divers/";
  }
 
  if (! $file_name)
  { 
    $_ = "Error: Nom de fichier 'Value_FileName' incorrect";
    s/Value_FileName/$file_name/ig; 
    &Error($_, 1); 
  } 
 
  # TEST DE L'EXISTANCE DU FICHIER SUR LE SERVEUR 
  if (-e "$upload_dir/$file_name") 
  { 
    $_ = "Error: Fichier 'Value_FileName' existant, impossible de le modifier!"; 
    s/Value_FileName/$file_name/ig; 
    &Error($_, 1); 
  }
 
  # OUVERTURE DU NOUVEAU FICHIER SUR LE SERVEUR 
  open(FILE,">$upload_dir/$file_name") || &Error("Error opening file $file_name for writing, error $!", 1); 
  binmode FILE; 
  $time=time(); 
  # LECTURE DU DESCRIPTEUR ET ÉCRITURE DANS LE NOUVEAU FICHIER SUR LE SERVEUR 
  while ($bytes_count = read($file_query,$buff,2096)) 
  { 
    $size += $bytes_count; 
    print FILE $buff; 
  } 
  close(FILE); 
  # ON VÉRIFIE SI LA COPIE EST CORRECTE 
  if ((stat "$upload_dir/$file_name")[7] <= 0) 
  { 
    print "<br>$upload_dir"."$file_name<br>";
    unlink("$upload_dir/$file_name"); 
    $_ = "Error: Erreur de chargement de 'Value_FileName'"; # Affichage de "Error: Erreur de chargement de 'FONCTION'"
    s/Value_FileName/$file_name/ig; 
    &Error($_, 1); 
  }
  else
  { 
    $time = time -$time; 
    $_ = "Chargement r&eacute;ussi !";
    s/Value_FileName/$file_name/ig; 
    s/Value_Size/$size/ig; 
    s/Value_Time/$time/ig; 
    #&ResutPage($NAME_TITLE{'Upload_Succes'}, $_); 
  } 
}

D'ou peut venir cette erreur?
Je comprend que le fichier ne soit pas uploader puisque des le début du passage dans Upload, la fonction ne semble plus connaitre le chemin de mon fichier...

Linou

**Mr6** · 07/09/2005, 11h15

Quel est le message d'erreur ?

**linou** · 07/09/2005, 11h24

Je l'avais mis dans le code, ce n'était peu etre pas tres clair.
Pas d'erreur dans le fichier log, juste une erreur sur ma page :

Error: Erreur de chargement de 'FONCTION'

Elle est renvoyée par la fonction suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
sub Error 
{
  my($errortext, $exit) = @_;
  print $errortext;
  if($exit) 
  {
    exit;
  }
}

**linou** · 07/09/2005, 16h01

Bon, j'y suis enfin arrivée!!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
sub Upload  
{ 
  my $file = $_[1];
 
  my($file_query, $file_name, $size, $buff, $time, $bytes_count, $upload_dir); 
  $size = $bytes_count =0; 
 
  # RECUPERATION DU DESCRIPTEUR DU FICHIER UPLOADE 
  $_ = $file_query = $file;
 
 
  # RÉCUPÉRATION DU NOM DU FICHIER 
  s/\w://; 
  s/([^\/\\]+)$//; 
  $_ = $1; 
  s/\.\.+//g; 
  s/\s+//g; 
  $file_name = $_;

J'ai juste changé la 1ere ligne de la fonction. Je vois pas trop ce que ca change, je me suis inspirée d'une autre fonction.

Enfin, ca marche!...

**Jedai** · 07/09/2005, 21h24

C'est parce que ta fonction reçoit en fait deux paramètres : un visible "photo" et un caché "FONCTION". Quand tu fait ($file) = @_, $file recoit le premier paramètre de ta fonction, c'est à dire "FONCTION", $_[0], alors qu'il te faut en fait le second paramètre "photo" qui est dans $_[1].

En fait ta première fonction Upload était mieux, mais il aurait fallu l'appeler avec FONCTION::Upload( photo ), ç'aurait été plus correct !

--
Jedaï

Upload de fichier

Web Perl

Vue hybride

Discussions similaires

Partager

Partager