如何读取文件夹并生成树形结构？

030802127

UID: 43397
帖子: 92
积分: 211
在线时间: 11 小时

1^# 030802127 发表于 2007-10-11 10:47

如何读取文件夹并生成树形结构？

高手请指定一二，谢谢

systemalgorithm

UID: 5243
帖子: 65
积分: 149
在线时间: 6 小时

2^# systemalgorithm 发表于 2007-10-11 14:20

like this?

[Copy to clipboard] [ - ]

CODE:

C:.
├─(null)
├─.cpan
│  ├─build
│  │  ├─ANDK000
│  │  ├─GAAS000
│  │  │  └─blib
│  │  │    ├─arch
│  │  │    │  └─auto
│  │  │    │    └─LWP
│  │  │    └─lib
│  │  │       └─auto
│  │  │             └─LWP
│  │  ├─GAAS001
│  │  │  └─blib
│  │  │    ├─arch
│  │  │    │  └─auto
│  │  │    │    └─URI
│  │  │    └─lib
│  │  │       └─auto
│  │  │             └─URI
│  │  ├─GBARR000
│  │  │  └─blib
│  │  │    ├─arch
│  │  │    │  └─auto
│  │  │    │    └─NetFTP
│  │  │    └─lib
│  │  │       └─auto
│  │  │             └─NetFTP
│  │  └─SZABGAB000
│  │    └─blib
│  │       ├─arch
│  │       │  └─auto
│  │       │    └─SpreadsheetParseExcel
│  │       └─lib
│  │             └─auto
│  │                └─SpreadsheetParseExcel
│  └─sources
│    ├─authors
│    │  └─id
│    │    ├─A
│    │    │  └─AN
│    │    │    └─ANDK
│    │    ├─G
│    │    │  ├─GA
│    │    │  │  └─GAAS
│    │    │  └─GB
│    │    │    └─GBARR
│    │    └─S
│    │       └─SZ
│    │             └─SZABGAB
│    └─modules
├─.DownloadManager
├─.gnupg
├─.jinit
├─.links
├─.p4qt
├─.ssh
├─.subversion
│  └─auth
│    ├─svn.simple
│    ├─svn.ssl.server
│    └─svn.username
├─.texmf
│  ├─config
│  │  └─web2c
│  └─var
│    ├─fonts
│    │  └─map
│    │    ├─dvipdfm
│    │    │  └─updmap
│    │    ├─dvips
│    │    │  └─updmap
│    │    └─pdftex
│    │       └─updmap
│    └─web2c
├─Contacts

030802127

UID: 43397
帖子: 92
积分: 211
在线时间: 11 小时

3^# 030802127 发表于 2007-10-11 14:44

对，大概就这个样子，请问用perl能实现吗？

cookis

UID: 42423
帖子: 181
积分: 416
在线时间: 1 天 20 小时

4^# cookis 发表于 2007-10-11 15:14

any thing is possible

systemalgorithm

UID: 5243
帖子: 65
积分: 149
在线时间: 6 小时

5^# systemalgorithm 发表于 2007-10-11 15:26

QUOTE:

原帖由 030802127 于 2007-10-11 14:44 发表
对，大概就这个样子，请问用perl能实现吗？

帮你写了一下。供参考：

#!/usr/bin/perl -w

# jim zhang @ 2007

use strict;

print "|___$ARGV[0]\n";
my @basenum = split/\//,$ARGV[0];
tree($ARGV[0]);

sub tree
{
      my $path=shift;
      my @files;
      opendir(THISDIR,$path);
      @files=readdir THISDIR;
      closedir THISDIR;
      my @number = split(/\//,$path);
      my $num = @number - @basenum;
      my $tab = "| "x$num;
      my $tab1 = "| "x($num+1);
      for(@files)
      {
            next if(/^\.$/);
            next if(/^\.\.$/);
            if(-d $path.'/'.$_)
            {
                     print "$tab1\|___$_\n";
                     tree($path.'/'.$_);
            }
            else
            {
                     print "$tab1\|___$_\n";
            }
      }
      return;
}

Lonki

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

6^# Lonki 发表于 2007-10-13 10:49

&printDirTree('TestDir');

sub printDirTree {
my $curr_dir = $_[0];

# print the 'root' dir
if (!$_[1]) {
      print "$curr_dir\n" ;
      $_[1] = '';
}

# get all entries in current dir except '.' '..'
opendir DIR, $curr_dir or die "Cannot open $curr_dir: $!\n";
my @files = grep { !/^(\.|\.\.)$/ } (readdir DIR);
closedir DIR;

for (0..$#files) {
      my $pre = $_[1];

      if ($_ < $#files) {
         print $pre, '├─', $files[$_], "\n";
         $pre .= '│  ';
      }
      else {
         print $pre, '└─', $files[$_], "\n";;
         $pre .= ' ';
      }

      if (-d "$curr_dir/$files[$_]") {
         &printDirTree("$curr_dir/$files[$_]", $pre);
      }
}
}

在Win下和tree的图形效果一致.

TestDir
├─Dir_1_1
│  ├─Dir_2_1
│  │  ├─input.txt
│  │  └─Copy of input.txt
│  ├─Dir_2_2
│  ├─input.txt
│  ├─Copy of input.txt
│  └─Z1
│    └─Z2
├─Dir_1_2
│  ├─Dir_2_1
│  │  └─input.txt
│  ├─Dir_2_2
│  │  └─Z1
│  │    └─Z2
│  └─Dir_2_3
├─Dir_1_3
│  ├─Dir_2_1
│  ├─Dir_2_2
│  │  ├─input.txt
│  │  └─Copy of input.txt
│  ├─input.txt
│  └─Copy of input.txt
└─Z1
└─Z2

orangetouch

UID: 41428
帖子: 181
积分: 416
在线时间: 1 天 20 小时

7^# orangetouch 发表于 2007-10-13 11:30

perl -e "system('tree')"