Discussion :

[crapou]

Bonjour, j'ai un script perl et je souhaiterai que celui aille dans un fichier qui se trouve sur un autre disc afin d'y effectuer des commandes.

voici mon code:

Code :

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

1
2
3
4
5
6
sub EXEC{
$repertoire = "d:";
$chemin = "d:/svn-importer-1.1-M8/Svn_Importer_Reference_CVS/$IRN";
chdir $repertoire;
chdir $chemin;
}

Le script passe sans problème mais il ne me met pas dans le fichier souhaité.

Pourriez-vous m'aidez svp?

Merci

[crapou]

Je vous met le code en entier

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
sub NAME{
print "Rentrez le numero d'IRN\n";
$IRN=<stdin>;
chomp $IRN;
print "Rentrez le nom de l'IRN\n";
$name=<stdin>;
chomp $name;
}
sub EXEC{
$repertoire = "d:";
$chemin = "d:/svn-importer-1.1-M8/Svn_Importer_Reference_CVS/$IRN";
chdir $repertoire;
chdir $chemin;
}
NAME();
print "\nValidez-vous que le nom est: $name,et le numero est: $IRN (0/1)";
$valide=<stdin>;
chomp $valide;
while($valide!= 0) {
	NAME();
	print "\nValidez-vous que le nom est: $name,et le numero est: $IRN (0/1)";
	$valide=<stdin>;
	chomp $valide;
}
 
EXEC();

Merci

[djibril]

faut mettre ton code sous balise code pour qu'il soit lisible sur le forum, pas besoin de le mettre en gras. (Tu clique sur #).
C'est quoi concretement le but de ton script, j'ai pas l'impression que tu es besoin de faire de chdir
De plus tu as des procedure sans return
Pas tres propre ton code

[glouffy6]

le pb ne viendrai pas du fait que tu fais un "chdir d:\" puis a nouveaux chdir "d:\rep\rep..."

un seul chdir d:\rep\rep..." devrait suffir non ?

[crapou]

Effectivement, je me doute qu'il ne doit pas être très propre (je suis un débutant c'est pour ca ).

Le but de mon code est d'effectuer une procédure afin de faire des migration de référentiel vers un outil de GCL (subversion).

Je souhaiterai que mon script soit portable car je travail avec plusieurs collègues sur ce sujet. Mon script ce trouve sur mon lecteur C alors que mon outil sur le D, et afin d'effectuer les commandes qui suivront, je suis obligé d'atteindre le dossier.

merci

[crapou]

Je en pense pas glouffy, je viens d'essayer et je reviens au même point, le script passe mais il ne change pas de dossier

[djibril]

ton script fait ceci :
chdir => changement du repertoire courant.
donc dans ton script, dans ta procedure EXEC
tu as mis ceci :

Code :

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

1
2
chdir $repertoire;
chdir $chemin;

Il se mettra dans $repertoire, puis dans $chemin.

Ce qui ecrit comme ça ne veut rien dire et est inutile.
tu ne fais pas de print, donc c normal que rien ne s'affiche.

Une façon de savoir où tu te trouve.

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
#!/usr/bin/perl 
 
use warnings;
use strict;
use Cwd;  #module permettant de lire le repertoire courant
 
my $rep_courant = getcwd; #recupere le repertoire courant
print "$rep_courant\n";
NAME();
print "\nValidez-vous que le nom est: $name,et le numero est: $IRN (0/1)";
my $valide=<stdin>;
chomp $valide;
while($valide!= 0) {
	NAME();
	print "\nValidez-vous que le nom est: $name,et le numero est: $IRN (0/1)";
	$valide=<stdin>;
	chomp $valide;
}
 
EXEC();
 
 
#procedures
 
sub NAME{
  print "Rentrez le numero d'IRN\n";
  my $IRN=<stdin>;
  chomp $IRN;
  print "Rentrez le nom de l'IRN\n";
  my $name=<stdin>;
  chomp $name;
return;
}
sub EXEC{
  my $repertoire = "d:";
  my $chemin = "d:/svn-importer-1.1-M8/Svn_Importer_Reference_CVS/$IRN";
  print "$rep_courant\n";
  chdir $repertoire;
  chdir $chemin;
  $rep_courant = getcwd;
  print "$rep_courant\n";
return;
}