IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Langage Perl Discussion :

PB avec chdir


Sujet :

Langage Perl

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    15
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2007
    Messages : 15
    Par défaut 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 : 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

  2. #2
    Membre averti
    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    15
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2007
    Messages : 15
    Par défaut
    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

  3. #3
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    Avril 2004
    Messages
    19 822
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 19 822
    Par défaut
    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

  4. #4
    Membre confirmé
    Profil pro
    Inscrit en
    Janvier 2005
    Messages
    62
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2005
    Messages : 62
    Par défaut
    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 ?


  5. #5
    Membre averti
    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    15
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2007
    Messages : 15
    Par défaut
    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

  6. #6
    Membre averti
    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    15
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2007
    Messages : 15
    Par défaut
    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

  7. #7
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    Avril 2004
    Messages
    19 822
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 19 822
    Par défaut
    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;
    }

Discussions similaires

  1. requete avec OBCD et visual c++
    Par Anonymous dans le forum MFC
    Réponses: 12
    Dernier message: 18/11/2004, 16h15
  2. [langage] Comparer Perl avec d'autres langages comme C ?
    Par Anonymous dans le forum Langage
    Réponses: 3
    Dernier message: 10/08/2002, 23h52
  3. Problème avec la mémoire virtuelle
    Par Anonymous dans le forum CORBA
    Réponses: 13
    Dernier message: 16/04/2002, 16h10
  4. [Kylix] Runtime error 230 avec INDY
    Par Anonymous dans le forum EDI
    Réponses: 2
    Dernier message: 23/03/2002, 11h51
  5. Réponses: 2
    Dernier message: 20/03/2002, 23h01

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo