脚本能实现显示树型结构吗？

cao627

@ljt2k不用考虑哪种情况？哪种情况不是树结构。

ljt2k

cao627 发表于 2013-08-08 08:17
@ljt2k不用考虑哪种情况？哪种情况不是树结构。

@rdcwayx
不是长久之计
100-103
101-102
103-104
105-100
107
100-101

如果是这样的文本呢？


---我说的不对，你说的这种也是树结构，但我的配置文件还没有这么复杂，从上往下，是一级一级的，先出现的都是父节点，不会有
105-100 这种对之前的父节点，又发现新的父节点。

taosicai

我来看展览

rdcwayx

ljt2k 发表于 2013-08-07 19:31
源文件a.cfg，记录的是父节点和子节点的关系(左边为父节点）:
100-101
101-102

好像有人写过类似的树形输出了，你可以参考一下。
@大红机器
http://bbs.chinaunix.net/forum.p ... ;page=1#pid22322314

seesea2517

换一个思路来做：

1. [seesea@UC tree]$ cat a.cfg
   
2. 100-101
   
3. 101-102
   
4. 100-103
   
5. 103-104
   
6. 105-106
   
7. 107
   
8. [seesea@UC tree]$ awk -F'-' '{for(i in ar) {if(ar[i] ~ $1"$") {ar[j++]=ar[i]"/"$2; next;} } ar[j++]=$1"/"$2}; END{for (i in ar) {system("mkdir -p " ar[i]);} system("tree"); for(i in ar) {split(ar[i], ar2, "/"); system("rm -r "ar2[1]" 2>/dev/null");}}' a.cfg
   
9. .
   
10. |-- 100
    
11. |   |-- 101
    
12. |   |   `-- 102
    
13. |   `-- 103
    
14. |       `-- 104
    
15. |-- 105
    
16. |   `-- 106
    
17. |-- 107
    
18. `-- a.cfg
    
19. 
    
20. 8 directories, 1 file

复制代码

关阴月飞

回复 15# seesea2517


    有想法，涨姿势了，学习

ljt2k

seesea2517 发表于 2013-08-08 17:58
换一个思路来做：

多谢！

rubyish

多谢！

seesea2517

回复 16# 关阴月飞


    也不是有什么想法啦，系统有这个功能，就想着直接让系统来画树图啦。

rubyish

给个：
help:

1. # perl abc.pl data      # for terminal only
   
2. # perl abc.pl -s data   
   
3. # -l  sort lexically    perl abc.pl -l data
   
4. # -n  sort numerically  perl abc.pl -n data
   
5. # -s  for save          perl abc.pl -s data > save
   
6. # OK        perl abc,pl -n -s > save
   
7. # OK        perl abc,pl -l -s > save
   
8. # Don't do it       # perl abc,pl    data > save
   
9. # Don't do it       # perl abc,pl -n data > save
   
10. # Don't do it       # perl abc,pl -l data > save

复制代码

1. #!/usr/bin/perl
   
2. use 5.018;
   
3. my ( $F, %H, %L, $S, %O ) = pop;
   
4. my @LP = ( '+-- ', '|   ', '    ', '|-- ', qr/^[^\s+\|]/ );
   
5. my @LT = ( '└── ', '│   ', '    ', '├── ', qr/^[^\s└│]/ );
   
6. my @LH = qw/M L N H R/;
   
7. my %S  = ( l => 'cmp', n => '<=>' );
   
8. 
   
9. map { /-([snl])/ and $1 eq 's' ? $O{$1}++ : ( $O{S} = $1 ) } @ARGV;
   
10. @ARGV = ($F);
    
11. @L{@LH} = $O{s} ? @LP : @LT;
    
12. 
    
13. sub L {
    
14.   my ( $h, $k ) = @_;
    
15.   return [$k] unless defined $h->{$k};
    
16.   map [ $k, @$_ ], map L( $h->{$k}, $_ ), keys %{ $h->{$k} }}
    
17. 
    
18. sub F {
    
19.   my ( $i, $j, $P ) = @_;
    
20.   $P->[$i][$j] ne $L{N} and $P->[$i-1][$j] eq $L{M}
    
21.   and $P->[$i-1][$j] = $L{H} }
    
22. 
    
23. sub S { my $max = shift;
    
24.   eval 'sub { '
    
25.     . join( '||', map '$a->['.$_.']'.$S{$O{S}}.'$b->['."$_]", 1 .. $max - 1 )
    
26.     . '}'; }
    
27. 
    
28. map { delete $H{$_} }
    
29.   map { $H{ $_->[0] }{ $_->[1] } = $H{ $_->[1] }; $_->[1] }
    
30.   map { my ( $A, $B ) = ( split( /[-\n]/ ), '' );
    
31.     $H{$A}{$B} = undef; [ $A, $B ] } <>;
    
32. 
    
33. for my $k ( sort keys %H ) {
    
34.   my ( $end, $max, @a, @P, %h ) = ( 0, 0, L \%H, $k );
    
35.   if ( $O{S} ){
    
36.     $max < @$_ and $max = @$_ for @a;
    
37.     my $it = S $max;
    
38.     @a = sort $it @a; }
    
39. 
    
40.   for my $i (@a) {
    
41.     for my $j ( 0 .. $#{$i} ) {
    
42.       $i->[$j] or next;
    
43.       $h{$j} and $h{$j} eq $i->[$j] and next;
    
44.       $P[@P][$j] = $i->[$j];
    
45.       $h{$j} = $i->[$j]; }}
    
46. 
    
47.   $P[$_][1] and $end = $_ and last for reverse 0 .. $#P;
    
48. 
    
49.   for my $i ( 0 .. $#P ) {
    
50.     for my $j ( 0 .. $#{ $P[$i] } - 1 ) {
    
51.       $j or $P[$i][$j] = $P[$i][$j+1] ? $L{M} : $i <= $end
    
52.         ? $L{L} : $L{N} and F $i, $j, \@P and next;
    
53.       my ( $G, $T, $H ) = ( 0, 0 );
    
54.       $P[$_][$j+1] and $G = $_ and last for $i + 1 .. $#P;
    
55.       $H = ( $G and $j < $#{ $P[$G-1] } ) ? $L{L} : $L{N};
    
56.       $P[$i][$j] = $P[$i][$j+1] ? $L{M} : $H;
    
57.       F $i, $j, \@P; }}
    
58. 
    
59.   say map { ( /$L{R}/ ? $L{H} : $L{L} ) . $_ } join '', @$_ for @P; }

复制代码