正則匹配目錄問(wèn)題求教？

大司南

比如 一個(gè)文件中的信息如下:
/aaa/bbb/ccc.txt
/ddd/ccc/ddd/eee/txt
/dd/sdf/ees.ttl
/eee/ccc/sss.txt
/aaa/bbb.ext
/ccc/mmm.ett
...


如何來(lái)統(tǒng)計(jì)這個(gè)文件里面的二級(jí)文件夾和一級(jí)文件夾（用正則表達(dá)式）?
如二級(jí)文件夾 /dd/sdf/ees.ttl

hitsubunnu

1. if($aa =~ /\/.+\/.+\/.+\..+/){
   
2.         print "2\n";
   
3. }else{
   
4.         print "1\n";
   
5. }

復(fù)制代碼

[ 本帖最后由 hitsubunnu 于 2008-4-8 16:01 編輯 ]

大司南

.+應(yīng)該是匹配任意非空字符吧，你這個(gè)好像不起作用。。。。

hitsubunnu

3級(jí)的也要嗎？

大司南

.+應(yīng)該也匹配'/'吧。。。
我寫的是 $aa =! m|^\/\w+\/\w+\w+|
可是這個(gè)不行，想不通

大司南

另外二級(jí)文件夾后面的文件可能沒(méi)有后綴
比如:
/a/b/c

ly5066113

原帖由 大司南 于 2008-4-8 16:11 發(fā)表
.+應(yīng)該也匹配'/'吧。。。
我寫的是 $aa =! m|^\/\w+\/\w+\w+|
可是這個(gè)不行，想不通

這個(gè)意思？
m|(/\w+){3}|

大司南

是的，我的意思是要求只匹配二級(jí)文件夾和一級(jí)文件夾，是不是這樣可以
$aa =~ m|(\/w+){3} && $aa =~ m|\/{3}
感覺(jué)有點(diǎn)暈。。。。

hitsubunnu

原帖由 大司南 于 2008-4-8 16:19 發(fā)表
是的，我的意思是要求只匹配二級(jí)文件夾和一級(jí)文件夾，是不是這樣可以
$aa =~ m|(\/w+){3} && $aa =~ m|\/{3}
感覺(jué)有點(diǎn)暈。。。。

1. 
   
2. open(FF,"1.txt");
   
3. while(<FF>){
   
4. 
   
5. if(/(\/\w+){3}\/\w+\.\w+/){
   
6.         print "3-$_\n";
   
7. }elsif(/(\/\w+){2}\/.+\.\w.+/){
   
8.         print "2-$_\n";
   
9. }elsif(/(\/\w+){1}\/.+\.\w+/){
   
10.         print "1-$_\n";
    
11. }else{
    
12.         print "no-$_\n";
    
13. }
    
14. 
    
15. }
    
16. close(FF);

復(fù)制代碼

大司南

哦，有沒(méi)有別的方法？