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

湿了耶

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

1^# 湿了耶发表于 2008-03-11 08:39

怎么用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级目录，该怎么办呀？
没有半点头绪。。
哪位大哥能把代码贴出来呀:em16: :em16: :em16:
跪求:em16: :em16: :em16:

March.Liu

UID: 10997
帖子: 173
积分: 397
在线时间: 1 天 17 小时

2^# March.Liu 发表于 2008-03-11 09:00

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

dajun

UID: 1292
帖子: 150
积分: 345
在线时间: 1 天 7 小时

3^# dajun 发表于 2008-03-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" } }}'

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

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl

chdir "directory";

for $a (0..9) {
   mkdir $a;
   for $b (0..9) {
         mkdir "$a/$b";
         for $c(0..9) {
               mkdir "$a/$b/$c"
         }
   }

}

比较笨的方法.

湿了耶

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

4^# 湿了耶发表于 2008-03-11 09:49

QUOTE:

原帖由 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" } }}'

天，看不懂啊:shock: :shock: :shock:

perljoker

UID: 30669
帖子: 88
积分: 202
在线时间: 10 小时

5^# perljoker 发表于 2008-03-11 11:12

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

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

6^# flw 发表于 2008-03-11 11:37

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

ly5066113

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

7^# ly5066113 发表于 2008-03-11 11:49

QUOTE:

原帖由 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

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

8^# flw 发表于 2008-03-11 11:53

QUOTE:

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

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

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