Perl'de dizin (dosya yolu) ayırıcısını nasıl alabilirim? Java durumunda

Question

, biz

System.getProperty("path.separator"); 

Perl benzer bir yolu var mı kullanan yol ayırıcısı alabilirim? Tek yapmak istediğim bir dir, hemen bir alt dizin bulmak. İki argüman $a ve $b; Birincisi yol ayırıcısını temel alarak ve son fragman dışında tekrar birleştirip ikinci argümanı karşılaştırıyorum.

Sorun, kodumun genel olması ve sisteme bağlı yol ayırıcısının ne olduğunu bilmem gerektiğinden mi?

Answer 1

kabul cevabı gerçek sorunu çözer ama gerçekten sadece perl çekirdek modülleri kullanarak (ayırıcı almak istiyorsanız): Yalnızca, ayırıcıyı bırakarak, geçerli sistem ayırıcısıyla iki boş dosya adına katılır.

Answer 2

SL constant in File::Util'u kullanabilirsiniz.

Answer 3

Sen elle dosya yollarını oluşturmak gerekir - bunun yerine kullanmak File::Spec modülü:

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