Discussion :

[loicbar]

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

[Jedai]

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!

Tu pourrais peut-être nous donner la raison de cette opinion ?

A ta place, je n'essaierais pas de faire un rename() qui a quelques inconvénients comme le fait qu'il échoue s'il doit passer d'un système de fichier à un autre, je copierais plutôt directement les données de ton premier fichier dans le nouveau.
Par ailleurs tu aurais peut-être intérêt à utiliser un script tout fait comme PsUpload, ça t'éviterais de prendre des risques avec un code maison.

--
Jedaï

[loicbar]

Oui mais non . Je préfère corrigé pendant des heures pour comprendre mes erreurs plutôt que de prendre un tout fait .

Et comment tu copie les données comme ça?

[Jedai]

Si tu es sûr de la taille de ton fichier, tu peux te contenter de slurper puis réécrire dans le fichier destination :

Code :

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

1
2
3
4
5
open my($new_file), '>', $upload_file_path
  or die "Impossible d'ouvrir $upload_file_path : $!\n";
print $new_file scalar( do { local $/; <$upload_filehandle> } );
close $new_file;
close $upload_filehandle;

Sinon, tu fais une boucle avec read(), c'est nettement plus efficace que de recopier ligne par ligne ou d'encombrer ta mémoire avec un énorme fichier...

Dernière possibilité, tu utilises le module File::Copy et sa fonction move(), en fait c'est celle que je te recommande.

--
Jedaï