¿Cómo puedo obtener el separador del directorio (ruta del archivo) en Perl?

Question

En caso de Java, podemos obtener el separador de ruta utilizando

System.getProperty("path.separator"); 

¿Hay una manera similar en Perl? Todo lo que quiero hacer es encontrar un directorio, subdirectorio inmediato. Digamos que me están dando dos argumentos $a y $b; Estoy dividiendo el primero basado en el separador de ruta y uniéndolo nuevamente excepto el último fragmento y comparando con el segundo argumento.

El problema es que mi código tiene que ser genérico y para eso necesito saber cuál es el separador de ruta dependiente del sistema.

Answer 1

La respuesta aceptada resuelve su problema real, pero si realmente desea conseguir el separador (utilizando módulos básicos solamente Perl):

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

Esto une dos nombres de archivo vacíos con el separador del sistema actual, dejando solo el separador.

Answer 2

Puede usar el SL constant in File::Util.

Answer 3

No debe formar rutas de archivos con la mano - en lugar de utilizar File::Spec módulo:

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