哪位大侠有树的实例代码

hztj2005

哪位大侠有树的实例代码，就像目录树一样，能从硬盘读入，可以遍历，画一个树结构，并写回硬盘。
谢谢！

sunzhiguolu

类似 Windows cmd 的 tree? 这东西有什么用处?

rubyish

biru:

tree:

1. [['Sophia',[['Emma',[['Olivia',[['Ava',undef],['Mia',undef]]]]],['Isabella',[['Riley',undef],['Aria',[['Zoe',undef],['Charlotte',[['Lily',[['Layla',undef]]]]]]]]]]],['Amelia',undef],['Emily',[['Madelyn',undef],['Aubrey',[['Adalyn',undef],['Madison',[['Chloe',[['Harper',undef],['Abigail',undef],['Aaliyah',undef],['Avery',undef]]]]]]],['Evelyn',undef],['Kaylee',undef],['Ella',[['Ellie',undef],['Scarlett',undef],['Arianna',[['Hailey',undef],['Nora',undef]]]]]]]]

复制代码

ex:

1. my $tree = load 'tree';
   
2. draw $tree;
   
3. save 'test', $tree;

复制代码

code:

1. #!/usr/bin/perl -w
   
2. use 5.010;
   
3. 
   
4. sub draw;
   
5. sub load;
   
6. sub save;
   
7. 
   
8. my $tree = load 'tree';
   
9. draw $tree;
   
10. 
    
11. save 'test', $tree;
    
12. 
    
13. my $test = load 'test';
    
14. draw $test;
    
15. 
    
16. #__sub__
    
17. 
    
18. sub load { do shift }
    
19. sub draw { D_( @_, [] ) }
    
20. 
    
21. sub save {
    
22.     my ( $file, $tree ) = @_;
    
23.     open my $save, '>', $file;
    
24.     print $save S_($tree);
    
25.     close $save;
    
26. }
    
27. 
    
28. sub D_ {
    
29.     state $his = [];
    
30.     my ( $do, $mo ) = @_;
    
31.     if ( !defined $do ) {
    
32.         for ( my $i = 0 ; $i <= $#$mo ; $i += 2 ) {
    
33.             if ( !defined $his->[$i] || $mo->[$i] ne $his->[$i] ) {
    
34.                 print "|- $mo->[$i] ";
    
35.             }
    
36.             else {
    
37.                 my $tab = $mo->[ $i + 1 ] ? ' ' : '|';
    
38.                 print $tab . ' ' x ( length( $his->[$i] ) + 3 );
    
39.             }
    
40.         }
    
41.         print "\n";
    
42.         $his = $mo;
    
43.         return;
    
44.     }
    
45.     D_( $_->[1], [ @$mo, $_->[0], 0 ] ) for @$do[ 0 .. $#$do - 1 ];
    
46.     D_( $do->[-1][1], [ @$mo, $do->[-1][0], 1 ] );
    
47. 
    
48. }
    
49. 
    
50. sub S_ {
    
51.     my $t = shift;
    
52.     '[' . join( ',',
    
53.         map { ref ?  S_($_) : defined ? "'$_'" : 'undef' } @$t
    
54.     ) . ']';
    
55. }
    
56. 
    
57. __DATA__
    
58. $_
    

复制代码

paktc

回复 2# sunzhiguolu

论坛也不全是老手，别人可能也就是借此熟悉Perl，你就不能体谅一下。

523066680

2015年写的一个 个人 WIKI 记事工具，基于Win32::Console
通过 YAML 模块保存和读取数据。可能对别人来说并没有什么卵用，但是我用来记工作和生活中用到的很多网站的账号和密码
密码都是提示，非明文。主要是终端调用方便，响应速度快。

[Perl]终端版信息整理、分类、浏览工具 - http://bbs.bathome.net/thread-36971-1-2.html
（真的不好意思在这里发，牛人太多，怕被鄙视。）

最后给楼主提供一些参考：
要建立并编辑修改一个树状结构，顶层用 hash 比较合适，通过数据引用的方式，可以在里面大量创建"子键"和对应的值。
要保存和再次加载数据结构，可以用 Data::Dumper, YAML, YAML::Tiny, Storable, JSON 等模块。
这个方面推荐阅读 《Perl 进阶》，都是干货
关于递归多层的数据处理，推荐阅读 《高阶 Perl》，干货满满。

自动创建一个任意层的散列(这个确实然并卵，就是个参考)

1. use YAML;
   
2. 
   
3. my $data = {};
   
4. my $ref = $data;
   
5. 
   
6. for my $c ('a' .. 'e')
   
7. {
   
8.     $ref->{'info'} = ord($c);
   
9.     $ref->{$c} = {};
   
10.     $ref = $ref->{$c};
    
11. }
    
12. 
    
13. print Dump($data);
    

复制代码

输出
---
a:
  b:
    c:
      d:
        e: {}
        info: 101
      info: 100
    info: 99
  info: 98
info: 97

hztj2005

回复 2# sunzhiguolu

我们这个世界有的事物是线性的，txt这种文本就可以记录。有的事物有m个成员，每个成员有n个属性，关系数据库就用来记录。
还有的事物是等级结构的，比如硬盘中的文件夹，一个国家的行政区划，家族的亲子关系，语言中句子的成分结构，都需要tree来记录。

hztj2005

回复 5# 523066680
[Perl]终端版信息整理、分类、浏览工具 - http://bbs.bathome.net/thread-36971-1-2.html

看了一下，这个代码要是理解了，就我当下来说就足够了。
不过有个问题进一步请教，代码766行：
use Win32::Clipboard;

我的win10是64bit，运行这个代码时需要安装上面这个模块，我试着用cpan 安装这个模块，但是安装时测试没通过

Test Summary Report
-------------------
t/test.t (Wstat: 0 Tests: 9 Failed: 1)
  Failed test:  3
Files=1, Tests=9,  0 wallclock secs ( 0.05 usr +  0.02 sys =  0.06 CPU)
Result: FAIL
Failed 1/1 test programs. 1/9 subtests failed.
dmake.exe:  Error code 255, while making 'test_dynamic'
  JDB/Win32-Clipboard-0.58.tar.gz
  D:\Strawberry\c\bin\dmake.exe test -- NOT OK
//hint// to see the cpan-testers results for installing this module, try:
  reports JDB/Win32-Clipboard-0.58.tar.gz
Stopping: 'install' failed for 'Win32::Clipboard'.
Failed during this command:
JDB/Win32-Clipboard-0.58.tar.gz              : make_test NO

所以请教一下，你是什么环境下运行你这个代码的？

hztj2005

出错了，重复提交。

hztj2005

出错了，重复提交。

523066680

回复 7# hztj2005

我是 WIN7 64位，（ 我也想要加分   
Win32::Clipboard 是用来处理剪切板的接口，不是必须的，你可以去掉。

安装的话从 CPAN 上面下载压缩包自己安装成功率会高一点点。
perl Makefile.PL
dmake
dmake install

最近感觉 Strawberry Perl + 从 CPAN.org 下载模块手动安装成功率更高。