	闲来无事，写了一个脚本，关于根据关系，找出菜单层次路径。

例如：

第一列：子菜单的序号

第二列：菜单名称

第三列：上级菜单序号

造数据：

cat >menu.txt

settle_report_timeout|超时报表|settle_report

settle_report|二级报表|report

report|主报表|main

main|首页

settle_report_fail|错误报表|settle_report

运行脚本输出：

首页-->主报表-->二级报表-->超时报表 

首页-->主报表-->二级报表-->错误报表 

这里只有两个终极菜单，其他未完成的菜单不输出。

#!/usr/bin/perl

my %list=();

my %parent=();

open(MYTEXT,"menu.txt")||die "can't open myfile:$!";

while(defined($line=<MYTEXT>))

{

chomp($line);

my @tmp=split(/\|/,$line);

$list{$tmp[0]}=\@tmp;

$parent{$tmp[2]}=1;

}

##从key=00开始找，开始输出父菜单--》然后找列表数组3是否存在00，

foreach $key (keys %list)

{

##print "$key => $list{$key}[1]\n";

my $menu_name='';

my $all_menu='';

if(exists $parent{$key} )

{

##print " $list{$key}[1] 该菜单是不是最终菜单。\n";

}

else

{

##print " $list{$key}[1] 该菜单是子菜单。\n";

my $flag=0;

my $fu_key = $list{$key}[2];

$all_menu.=$list{$key}[1];

while( $flag==0 )

{

if(exists $parent{$fu_key} && $fu_key ne '')

{

$all_menu="$list{$fu_key}[1]-->$all_menu";

##print $all_menu,"\n";

}else

{

$flag=1;

}

$fu_key=$list{$fu_key}[2];

}

print "$all_menu \n";

}

}
ITPub博客

使用perl递归找出菜单路径

最新文章
