如何獲取各級(jí)目錄？

fall221

是不是貼錯(cuò)代碼了？

perl這么吊，看來(lái)要好好看看了
回復(fù) 10# 45177659


   

45177659

好像有自動(dòng)引用什么的
回復(fù) 11# fall221


   

我是一隻羊

回復(fù) 7# fall221

單循環(huán)版

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

復(fù)制代碼

sed版

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

復(fù)制代碼

遞歸版

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

復(fù)制代碼

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
   

復(fù)制代碼

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

我是一隻羊

回復(fù) 15# jason680

1. --NF...學(xué)習(xí)了...

復(fù)制代碼