如何从一个路径在Perl

Question

解压目录名我有这样

/home/user/doc/loc 

我想单独提取家里，用户文档，LOC的路径。我试过split (////)和split("/") 但他们都没有工作。请给我示例脚本：

while (<EXPORT>) { 
if (/^di/) { 
    ($key, $curdir) = split(/\t/); 
    printf "the current dir is %s\n", $curdir; 
    printf("---------------------------------\n"); 
    ($home_dir, $user_dir, $doc_dir, $loc_dir) = split("/");  
    } 
} 

但它没有工作;因此请帮助我。

Answer 1

鉴于$curdir包含路径，你可能会使用：

my(@names) = split m%/%, $curdir; 

Unix的十岁上下的系统上。或者你会使用File::Spec和splitdir。例如：

#!/usr/bin/env perl 
use strict; 
use warnings; 
use File::Spec; 

my $curdir = "/home/user/doc/loc"; 
my(@names) = split m%/%, $curdir; 

foreach my $part (@names) 
{ 
    print "$part\n"; 
} 

print "File::Spec->splitdir()\n"; 
my(@dirs) = File::Spec->splitdir($curdir); 

foreach my $part (@dirs) 
{ 
    print "$part\n"; 
} 

输出继电器（包括前空白行）：

 
home
user
doc
loc
File::Spec->splitdir()
 
home
user
doc
loc

Answer 2

split的第一个结果将是传递给它的正则表达式的第一实例之前的字符串。由于您在此处有一个前导“/”，因此您将在$home_dir中获得一个空字符串，在$user_dir等中获得“用户”。将undef添加到列表作业的第一个位置，或者先修剪一个前导斜杠。

而且我不知道，如果你可以调用分裂没有传递给它$curdir这里。尝试：

(undef, $home_dir, $user_dir, $doc_dir, $loc_dir) = split("/", $curdir);