PB avec chdir

Version imprimable

16/07/2007, 15h21
crapou

PB avec chdir
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:

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

Je vous met le code en entier :D

Code:

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

16/07/2007, 15h37
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
16/07/2007, 15h42
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 ?

:|
16/07/2007, 15h47
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:D
16/07/2007, 15h49
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 :D

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

Code:

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:

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;
}

16/07/2007, 16h13
Jedai

Je crois que crapou a des attentes irréalistes : il pense que le changement de répertoire courant devrait se propager au shell dans lequel il exécute son script Perl. Ce n'est pas le cas, et ce n'est possible dans aucun langage (du moins simplement).
Ce qui est possible par contre, c'est de relancer un shell dans le script Perl, avec :

Code:

system("cmd");

Dans ce cas ce nouveau shell sera effectivement lancé dans le répertoire courant du script Perl.

--
Jedaï
17/07/2007, 08h51
crapou

Merci beaucoup pour vos réponse, je vais voir si je peux faire autrement (insérer mon programme dans le répertoire de l'outil afin de ne pas avoir à changer de répertoire :D ).

Cela m'as en tout cas bien aidé :king:

crapou
17/07/2007, 11h06
Woufeil

Citation:

Envoyé par crapou

Merci beaucoup pour vos réponse, je vais voir si je peux faire autrement (insérer mon programme dans le répertoire de l'outil afin de ne pas avoir à changer de répertoire :D ).

Cela m'as en tout cas bien aidé :king:

crapou

Euh, je comprend pas bien pourquoi faire autrement... Jedai t'a donné la solution non ?
17/07/2007, 13h57
crapou

Oui, mais après en avoir discuté avec mes collègue on est arriver a un changement dans le script :D . On insère le script directement dans le dossier, ce qui nous est beaucoup plus simple :P

merci encore
17/07/2007, 14h10
djibril

je trouve que vous prenez vraiment la tête inutilement.
Perl est tres adapté pour faire ce genre de changement (de repertoire, ou autre).
Il n'y a même pas besoin de changer de repertoire du moment ou le chemin est indiqué.
bref, si tu t'en sors, tant mieux
17/07/2007, 14h19
crapou

Mdr, c'est possible, au moins maintenant je sais le faire :D