Discussion :

[niklos0]

Bonjour, j'aimerai savoir comment récupérer le dossier courent en perl.
J'avais trouver un système en utilisant la commande 'cd' en bash mais ca ralenti enormément mon script (il est 4 fois plus long) j'aimerai savoir comment faire pour récupérer le repertoire courent avec perl et non en bash.

Merci d'avance

[djibril]

Code :

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

1
2
use Cwd;
my $RepertoireCourant = getcwd;

voilà

[niklos0]

Nikel, merci beaucoup avec ca:

Code :

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

1
2
use Cwd;
my $RepertoireCourant = getcwd;

voilà

ca marche.


Avec ça je n'est pas d'accés au système n'est ce pas? Donc pas de ralentissement on est bien d'accord?

(je traite beaucoup de fichiers mais en test j'en ai qu'un centaine et le traitement dur moins d'une seconde, en "réel" j'en ai plusieurs milliers et ça prend plusieurs heures pour tester)

[djibril]

Le code que t'ai donné te permet de récupérer le répertoire courant, c'est à dire le répertoire où se situe le script perl qui a été lancé.
Je ne vois pas le rapport par rapport à tes centaines ou millier de fichiers.

Tu l'appelles une seule fois dans ton script et c'est suffisant.

A moins bien sûr que tu recherches autres choses et dans ce cas, tu t'es mal exprimé

[niklos0]

Oui tu as raison je me suis mal exprimer...

Je recommence, mon script vas traiter plusieurs miliers de fichier ce trouvant dans des répertoires différents.
A chaque fois qu'il traite un fichier, je fais une trace dans un fichier de log qui dit que tel fichiers a été traiter et il se trouve dans le répertoire "machin"
Donc je fais appelle a la fonction pour chaque fichier et il y en a des milliers ce qui explique que j'ai besoin de quelque chose de rapide.

Au départ, je récupérais le dossier courant en sortant de script perl, en fesant un cd en bash ce qui me permettais de récupérer le répertoire puis je rerentrais dans le script. Ca marchait, mais mon script a eu un temps d'exécution multiplier par 4. Sachant qu'il a déjà besoin de 3 ou 4 heures d'exécution, je peux pas me permettre qu'il soit beaucoup plus long.

Voilà, j'espère avoir étais plus clair?

Par ailleurs, merci pour tes réponses

[djibril]

J'ai l'impression que tu t'embrouilles un peu les pinceaux.
Peux tu nous montrer ton script!!! On essayera de te le corriger et tu pourras faire ce que tu souhaites proprement en perl

Tu me dis si je me trompe, mais, souhaites tu récupérer le nom des répertoires de chacun des fichiers que tu traites?

[Invité]

Hola,

http://www.xav.com/perl/lib/Cwd.html