Bonjour,
J'ai un problème dans un de mes script perl. En fait le but est d'uploader un fichier et ensuite de faire un "mv" (fonction rename)

Voilà le script :
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
################################################################################
## Process Uploaded File
################################################################################
    if (-d $session_dir)
      {
	my $query = new CGI;
	my $file_name = $query->param ("filename");
	$file_name = ~s /.*[\/\\](.*)/$1/;
	my $upload_file_path = $upload_dir.$file_name;
	my $upload_filehandle = $query->upload ("filename");
	my $tmp_filename = $query->tmpFileName ($upload_filehandle);
	close ($upload_filehandle);
	print "Moving File to Upload Directory -> ";
	if (rename ($tmp_filename, $upload_file_path))
	  {
	    print "<b style='color:green;'>Success</b><br>";
	  }
	else
	  {
	    print "<font color='red'>Failure</font><br>";
	  }
	print "Removing upload_size file -> ";
	if (unlink ($upload_size_file))
	  {
	    print "<b style='color:green;'>Success</b><br>";
	  }
	else
	  {
	    print "<font color='red'>Failure</font><br>";
	  }
      }
  }
En fait l'upload_path est bon et l'autre je sais pas vraiment :s. En tout cas, il rate pcq il trouve pas le premier argument de la fonction rename() (je crois!

Merci d'avance pour votre aide