Come posso ottenere il separatore di directory (percorso file) in Perl?

Question

In caso di Java, si può ottenere il separatore di percorso utilizzando

System.getProperty("path.separator"); 

C'è un modo simile a Perl? Tutto quello che voglio fare è trovare una dir, una sottodirectory immediata. Dire che mi vengono dati due argomenti $a e $b; Sto suddividendo il primo in base al separatore del percorso e aggiungendolo nuovamente tranne l'ultimo frammento e confrontandolo con il secondo argomento.

Il problema è che il mio codice deve essere generico e per questo ho bisogno di sapere qual è il separatore di percorso dipendente dal sistema?

Answer 1

La risposta accettata risolve il vero problema, ma se si davvero vuole ottenere il separatore (utilizzando moduli di base solo perl):

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

Questo unisce due nomi di file vuoti con il separatore di sistema corrente, lasciando solo il separatore.

Answer 2

È possibile utilizzare SL constant in File::Util.

Answer 3

Non si dovrebbe formare i percorsi dei file a mano - invece utilizzare File::Spec modulo:

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