正则匹配目录问题求教？

大司南

UID: 44465
帖子: 155
积分: 356
在线时间: 1 天 9 小时

1^# 大司南发表于 2008-04-08 15:48

正则匹配目录问题求教？

比如一个文件中的信息如下:
/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

UID: 19600
帖子: 1
积分: 2
在线时间: 10 分钟

2^# hitsubunnu 发表于 2008-04-08 15:54

[Copy to clipboard] [ - ]

CODE:

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

大司南

UID: 44465
帖子: 155
积分: 356
在线时间: 1 天 9 小时

3^# 大司南发表于 2008-04-08 16:04

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

hitsubunnu

UID: 19600
帖子: 1
积分: 2
在线时间: 10 分钟

4^# hitsubunnu 发表于 2008-04-08 16:07

3级的也要吗？

大司南

UID: 44465
帖子: 155
积分: 356
在线时间: 1 天 9 小时

5^# 大司南发表于 2008-04-08 16:11

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

大司南

UID: 44465
帖子: 155
积分: 356
在线时间: 1 天 9 小时

6^# 大司南发表于 2008-04-08 16:12

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

ly5066113

UID: 41125
帖子: 34
积分: 78
在线时间: 1 小时

7^# ly5066113 发表于 2008-04-08 16:14

QUOTE:

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

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

大司南

UID: 44465
帖子: 155
积分: 356
在线时间: 1 天 9 小时

8^# 大司南发表于 2008-04-08 16:19

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

hitsubunnu

UID: 19600
帖子: 1
积分: 2
在线时间: 10 分钟

9^# hitsubunnu 发表于 2008-04-08 16:20

QUOTE:

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

[Copy to clipboard] [ - ]

CODE:

open(FF,"1.txt");
while(<FF>){

if(/(\/\w+){3}\/\w+\.\w+/){
print "3-$_\n";
}elsif(/(\/\w+){2}\/.+\.\w.+/){
print "2-$_\n";
}elsif(/(\/\w+){1}\/.+\.\w+/){
print "1-$_\n";
}else{
print "no-$_\n";
}

}
close(FF);

大司南

UID: 44465
帖子: 155
积分: 356
在线时间: 1 天 9 小时

10^# 大司南发表于 2008-04-08 16:22

哦，有没有别的方法？