求一个树形结构

David_hong

UID: 8063
帖子: 48
积分: 110
在线时间: 3 小时

1^# David_hong 发表于 2007-10-16 22:23

求一个树形结构

menu.txt中存有一些作为根目录的的数据如下：
name1
name2
name3
name4
..........
每一个根目录都有六个相同的子目录，同时这六个子目录都有一个链接，链接的地址以根目录来区分，比如：
menu1 <a href='name1.html'>
menu2 <a href='name1.html'>
menu3 <a href='name1.html'>
menu4 <a href='name1.html'>
menu5 <a href='name1.html'>
menu6 <a href='name1.html'>

其最终效果：
name1
  ├─<a href=name1.html> menu1 </a>
  ├─<a href=name1.html> menu2 </a>
  ├─<a href=name1.html> menu3 </a>
  ├─<a href=name1.html> menu4 </a>
  ├─<a href=name1.html> menu5 </a>
  ├─<a href=name1.html> menu6 </a>
name2
  ├─<a href=name2.html> menu1 </a>
  ├─<a href=name2.html> menu2 </a>
  ├─<a href=name2.html> menu3 </a>
  ├─<a href=name2.html> menu4 </a>
  ├─<a href=name2.html> menu5 </a>
  ├─<a href=name2.html> menu6 </a>
name3
  ├─<a href=name3.html> menu1 </a>
  ├─<a href=name3.html> menu2 </a>
  ├─<a href=name3.html> menu3 </a>
  ├─<a href=name3.html> menu4 </a>
  ├─<a href=name3.html> menu5 </a>
  ├─<a href=name3.html> menu6 </a>
............................
目的主要是为了做一个基于文本的动态树形菜单，还请高手们指点一二，最好是有相关代码，谢谢大虾们

Lonki

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

2^# Lonki 发表于 2007-10-16 23:54

似乎将menu.txt弄成ini格式更方便处理, 现成的模块
比如
[name1]
menu1 = <a href='name1.html'>
menu2 = <a href='name1.html'>
menu3 = <a href='name1.html'>
menu4 = <a href='name1.html'>
menu5 = <a href='name1.html'>
menu6 = <a href='name1.html'>

[name2]
menu1 = <a href='name2.html'>
menu2 = <a href='name2.html'>
menu3 = <a href='name2.html'>
menu4 = <a href='name2.html'>
menu5 = <a href='name2.html'>
menu6 = <a href='name2.html'>

...

__lxmxn__

UID: 3845
帖子: 167
积分: 384
在线时间: 1 天 14 小时

3^# __lxmxn__ 发表于 2007-10-17 00:06

新手不会写，有改进的地方请指出：

[Copy to clipboard] [ - ]

CODE:

#use strict;
#use warnings;

open OK,"<mulu.txt";
open WT,">output.txt";
my @list=qw/menu1 menu2 mene3 menu4 menu5 menu6/;
foreach my $to(<OK>){
chomp $to;
print WT "$to\n";
foreach my $item(@list){
chomp $item;
print WT "├─<a href=${to}.html> $item </a>\n";
}
}

__lxmxn__

UID: 3845
帖子: 167
积分: 384
在线时间: 1 天 14 小时

4^# __lxmxn__ 发表于 2007-10-17 00:07

对了，怎么使发出的代码语法高亮？

freeand

UID: 38872
帖子: 66
积分: 151
在线时间: 6 小时

5^# freeand 发表于 2007-10-17 00:30

#use strict;

#use warnings;

open OK,"<mulu.txt";
open WT,">output.txt";
my @list=qw/menu1 menu2 mene3 menu4 menu5 menu6/;
foreach my $to(<OK>){
      chomp $to;
      print WT "$to\n";
      foreach my $item(@list){
            chomp $item;
            print WT "├─<a href=${to}.html> $item </a>\n";
      }
}

你插入

“代码”的左边不是有个

“插入程序代码”吗？就是它了。

__lxmxn__

UID: 3845
帖子: 167
积分: 384
在线时间: 1 天 14 小时

6^# __lxmxn__ 发表于 2007-10-17 00:35

哦，谢谢啦。
我回复的时候是直接在页面最下面的快捷回复框哪里回复的，所以没有那个按钮。。。