如何获取各级目录？

fall221

是不是贴错代码了？

perl这么吊，看来要好好看看了
回复 10# 45177659


   

45177659

好像有自动引用什么的
回复 11# fall221


   

我是一隻羊

回复 7# fall221

单循环版

1. awk '{for(i=0;i++<split($0,a,"/")-1;){s=i==1?a[i]:s"/"a[i];print s}}' inputfile

复制代码

sed版

1. sed -nr ':1;s/\/[^/]+$//;G;h;s/(\n).*/\1/;/^[^/\n]+\n/!b1;x;s/\n$//;p' inputfile

复制代码

递归版

1. awk 'function m(x){if(x~/\//){sub(/\/[^/]+$/,"",x);s=s?x"\n"s:x;m(x)}}{m($0);print s}'

复制代码

jiejie455

1. [Masked@CentOS6 ~]$ echo a/b/c/d.log |sed -n ':1 s@\(.*\)/\(.*\)@\1@p;t1'
   
2. a/b/c
   
3. a/b
   
4. a
   

复制代码

jason680

$ echo "a/b/c/d.log" | awk 'BEGIN{FS=OFS="/"}{while(--NF)s=$0"\n"s;printf s}'
a
a/b
a/b/c

$ echo "a/b/c/d.log" | perl -F/ -lane '{$,="/";for(0..@F-2){print @F[0..$_]}}'
a
a/b
a/b/c

$ echo "a/b/c/d.log" | perl -F/ -lane '{for(0..@F-2){print join"/",@F[0..$_]}}'
a
a/b
a/b/c

我是一隻羊

回复 15# jason680

1. --NF...学习了...

复制代码