Comment puis-je obtenir le séparateur de répertoire (chemin de fichier) en Perl?

Dans le cas de Java, nous pouvons obtenir le séparateur de chemin à l'aide de

System.getProperty("path.separator");

Est-il une manière similaire en Perl? Tout ce que je veux faire est de trouver un dir, immédiate sous-répertoire.
Dire que je me donne deux arguments $a et $b; je suis le fractionnement de la première basée sur le séparateur de chemin et de rejoindre à nouveau, sauf le dernier fragment et la comparaison avec le deuxième argument.

Le problème est que mon code doit être générique et pour cela j'ai besoin de savoir quel est le système dépendant du séparateur de chemin est?

source d'informationauteur Ram | 2010-05-24

  1. 4

    La accepté de répondre à résoudre votre problème réel, mais si vous vraiment voulez obtenir le séparateur (en utilisant seulement perl modules de base):

    my $sep = File::Spec->catfile('', '');

    Ce joint deux vide les noms de fichiers avec l'actuel système de séparateur, ne laissant que le séparateur.

  2. 20

    Vous ne devriez pas la forme de chemins d'accès à la main - au lieu d'utiliser File::Spec module:

    ($volume, $directories,$file) = File::Spec->splitpath( $path );
@dirs = File::Spec->splitdir( $directories );
$path = File::Spec->catdir( @directories );
$path = File::Spec->catfile( @directories, $filename );
  3. 8

    Vous pouvez utiliser le SL constante dans le Fichier::Util.