从路径中提取最高级的目录

newspeed000

RT 该怎么从路径中提取最高级的目录啊

如：/home/xxx/xxx 中取出 /home

拜谢大牛们了

gis11rj

split

Cu_fans

1. substr('/home/xxx/xxx', 0, index('/home/xxx/xxx', '/', 1));

复制代码

1. $str = '/home/xxx/xxx';
   
2. $str =~ m{(\/.+?\/)};
   
3. print "$1\n";

复制代码

iakuf

echo '/home/aa'|perl -nale '($str) = $_ =~ q#(/[^/]*)# ;print $str'

shuijingfei

my $home='/home/xxx/xxx';

$home=~m{(.*?/.*?)/};

print $1 ;

hejekele

这个好诶，我也想这么做，但是没写的这么好，赞一个

yinyuemi_cu

1. 
   
2. $str=~s#(?<=\w)/.*$##
   

复制代码