Discussion :

[matN59]

bonjour a tous,

debutant en perl, je me demandais s'il y avait un moyen fiable de determiner le separateur de dossiers du systeme (comme en java dans une classe predefinie) ou une variable globale qui donnerait le type de systeme d'exploitation et qui me permettrait ainsi de determiner le separateur?
merci d'avance pour votre aide

[Jedai]

Il existe des modules dans le core qui permettent de manipuler directement les chemins sans savoir sur quel système on se trouve.

[matN59]

et on les utilises comment?
je suis debutant ...

pour l'instant ce que j'ai fait est un

Code :

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

1
2
 
$source_folder =~ s/\\/\//g; # set path to unix form

pour passer tous les chemins a la facon UNIX; cela fonctionne bien, mais si tu veux bien me donner plus d'infos sur ces modules, je suis prenneur

[Arioch]

regarde du côté du module Cwd :

Cwd - get pathname of current working directory

Code :

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

1
2
3
4
use Cwd;
 
$dir = cwd;
print "je me trouve dans le dossier $dir";

This module provides functions for determining the pathname of the current working directory. By default, it exports the functions cwd(), getcwd(), fastcwd(), and fastgetcwd() into the caller's namespace. Each of these functions are called without arguments and return the absolute path of the current working directory. It is recommended that cwd (or another *cwd() function) be used in all code to ensure portability.

[matN59]

merci je vais regarder ca

[Jedai]

L'idéal pour ce que tu demandes est le module File::Spec, qui t'assurera une portabilité sur plus d'OS que tu ne le souhaiterais, va voir sa page de doc pour te faire une idée (Et il est dans le Core !!)