使用perl递归找出菜单路径

闲来无事，写了一个脚本，关于根据关系，找出菜单层次路径。
例如：
第一列：子菜单的序号
第二列：菜单名称
第三列：上级菜单序号

造数据：
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博客 ” ，链接：http://blog.itpub.net/31429550/viewspace-2149448/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/31429550/viewspace-2149448/