salut

lorsque je execute mon script perl

perl script.pl j`ai cette erreur Can't exec "perl /home/desktop/conversiondossier/vconvert.pl": Aucun fichier ou dossier de ce type at conversionGI.pl line 13.


voila mon le contenu de mon script.pl



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
#!/usr/bin/perl
use warnings;
use strict;
 
my $repertoire = '/home/desktop/conversiondossier/videoSource';
foreach my $fichier ( lister_fichiers( $repertoire,1 ) ) {
  print " la conversion de fichier: $fichier est demarre\n";
   print "------------------------------------------------------\n";
 
 
 
  system('perl /home/desktop/conversiondossier/vconvert.pl' ,'--target','flv' ,$fichier );
 
  print "------------la conversion fini-------------------------\n";
 
}
 
#======================================================
# Nombre d'arguments : 1 ou 2
# Argument(s)        : un répertoire et valeur 0 ou 1
# Retourne           : Tableau de fichier (@fichiers)
#======================================================
sub lister_fichiers {
  my ( $repertoire, $recursivite ) = @_;
 
  require Cwd;
  require File::Spec;
 
  my $cwd = Cwd::getcwd();
 
  # Recherche dans les sous-répertoires ou non
  if ( ( not defined $recursivite ) || ( $recursivite != 1 ) ) { $recursivite = 0; }
 
  # Verification répertoire
  if ( not defined $repertoire ) { die "Aucun repertoire de specifie\n"; }
 
  # Ouverture d'un répertoire
  opendir my $fh_rep, $repertoire or die "impossible d'ouvrir le répertoire $repertoire\n";
 
  # Liste fichiers et répertoire sauf (. et ..)
  my @fic_rep = grep { !/^\.\.?$/ } readdir $fh_rep;
 
  # Fermeture du répertoire
  closedir $fh_rep or die "Impossible de fermer le répertoire $repertoire\n";
 
  chdir $repertoire;
  $repertoire = Cwd::getcwd();
 
  # On récupère tous les fichiers
  my @fichiers;
  foreach my $nom (@fic_rep) {
    my $notre_fichier = File::Spec->catfile( $repertoire, $nom );
 
    if ( -f $notre_fichier ) {
      push @fichiers, $notre_fichier;
    }
    elsif ( -d $notre_fichier and $recursivite == 1 ) {
      push @fichiers, lister_fichiers($notre_fichier, $recursivite);    # recursivité
    }
  }
 
  chdir $cwd;
 
  return @fichiers;
}
y`a t`il quelqu`un qui a déjà ce problème sous ubuntu car j`ai test` ce programme perl sous windows et ca marche tres bien