正则匹配目录问题求教？

大司南

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


如何来统计这个文件里面的二级文件夹和一级文件夹（用正则表达式）?
如二级文件夹 /dd/sdf/ees.ttl

hitsubunnu

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

复制代码

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

大司南

.+应该是匹配任意非空字符吧，你这个好像不起作用。。。。

hitsubunnu

3级的也要吗？

大司南

.+应该也匹配'/'吧。。。
我写的是 $aa =! m|^\/\w+\/\w+\w+|
可是这个不行，想不通

大司南

另外二级文件夹后面的文件可能没有后缀
比如:
/a/b/c

ly5066113

原帖由 大司南 于 2008-4-8 16:11 发表
.+应该也匹配'/'吧。。。
我写的是 $aa =! m|^\/\w+\/\w+\w+|
可是这个不行，想不通

这个意思？
m|(/\w+){3}|

大司南

是的，我的意思是要求只匹配二级文件夹和一级文件夹，是不是这样可以
$aa =~ m|(\/w+){3} && $aa =~ m|\/{3}
感觉有点晕。。。。

hitsubunnu

原帖由 大司南 于 2008-4-8 16:19 发表
是的，我的意思是要求只匹配二级文件夹和一级文件夹，是不是这样可以
$aa =~ m|(\/w+){3} && $aa =~ m|\/{3}
感觉有点晕。。。。

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);

复制代码

大司南

哦，有没有别的方法？