本篇内容介绍了“如何使用perl递归找出菜单路径”的有关知识，在实际案例的操作过程中，不少人都会遇到这样的困境，接下来就让小编带领大家学习一下如何处理这些情况吧！希望大家仔细阅读，能够学有所成！
成都创新互联公司主要为客户提供服务项目涵盖了网页视觉设计、VI标志设计、成都营销网站建设、网站程序开发、HTML5响应式网站建设公司、移动网站建设、微商城、网站托管及成都网站维护、WEB系统开发、域名注册、国内外服务器租用、视频、平面设计、SEO优化排名。设计、前端、后端三个建站步骤的完善服务体系。一人跟踪测试的建站服务标准。已经为水处理设备行业客户提供了网站营销服务。
闲来无事，写了一个脚本，关于根据关系，找出菜单层次路径。
例如：
第一列：子菜单的序号
第二列：菜单名称
第三列：上级菜单序号
造数据：
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=
{
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";
}
}
“如何使用perl递归找出菜单路径”的内容就介绍到这里了，感谢大家的阅读。如果想了解更多行业相关的知识可以关注创新互联网站，小编将为大家输出更多高质量的实用文章！
