怎么用perl自动建立树形目录呀？

湿了耶

具体就是在 directory 目录下建立10个文件夹，文件夹的名称分别是 0 1 2 3 4 5 6 7 8 9
然后在这个目录下的每个文件夹里，分别建立10个文件夹，文件夹的名称分别是 0 1 2 3 4 5 6 7 8 9   
依次类推，共有3级目录，该怎么办呀？
没有半点头绪。。
哪位大哥能把代码贴出来呀
跪求

March.Liu

你需要的是File::Find模塊……

dajun

perl -e 'chdir "directory"; for $a (0..9) { mkdir $a; for $b (0..9) { mkdir "$a/$b"; for $c(0..9) { mkdir "$a/$b/$c" } }}'


回复楼下:
直接写在了一行,所以很难看

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. chdir "directory";
   
5. 
   
6. for $a (0..9) {
   
7.       mkdir $a;
   
8.       for $b (0..9) {
   
9.             mkdir "$a/$b";
   
10.             for $c(0..9) {
    
11.                  mkdir "$a/$b/$c"
    
12.             }
    
13.       }
    
14. 
    
15. }
    
16. 
    
17. 
    

复制代码

比较笨的方法.

[ 本帖最后由 dajun 于 2008-3-11 10:19 编辑 ]

湿了耶

原帖由 dajun 于 2008-3-11 09:15 发表
perl -e 'chdir "directory"; for $a (0..9) { mkdir $a; for $b (0..9) { mkdir "$a/$b"; for $c(0..9) { mkdir "$a/$b/$c" } }}'

天，看不懂啊

perljoker

……
就是简单的循环里面套循环而已……啊

flw

list="{0,1,2,3,4,5,6,7,8,9}"
eval mkdir -p $list/$list/$list

ly5066113

原帖由 flw 于 2008-3-11 11:37 发表
list="{0,1,2,3,4,5,6,7,8,9}"
eval mkdir -p $list/$list/$list

bash的话可以更简洁一点：
mkdir -p {0..9}/{0..9}/{0..9}

flw

原帖由 ly5066113 于 2008-3-11 11:49 发表

bash的话可以更简洁一点：
mkdir -p {0..9}/{0..9}/{0..9}

嗯，我也觉得 list 应该是支持 range 的。呵呵。