本篇內(nèi)容介紹了“如何使用perl遞歸找出菜單路徑”的有關(guān)知識(shí)，在實(shí)際案例的操作過(guò)程中，不少人都會(huì)遇到這樣的困境，接下來(lái)就讓小編帶領(lǐng)大家學(xué)習(xí)一下如何處理這些情況吧！希望大家仔細(xì)閱讀，能夠?qū)W有所成！

成都創(chuàng)新互聯(lián)公司主要為客戶(hù)提供服務(wù)項(xiàng)目涵蓋了網(wǎng)頁(yè)視覺(jué)設(shè)計(jì)、VI標(biāo)志設(shè)計(jì)、成都營(yíng)銷(xiāo)網(wǎng)站建設(shè)、網(wǎng)站程序開(kāi)發(fā)、HTML5響應(yīng)式網(wǎng)站建設(shè)公司、移動(dòng)網(wǎng)站建設(shè)、微商城、網(wǎng)站托管及成都網(wǎng)站維護(hù)、WEB系統(tǒng)開(kāi)發(fā)、域名注冊(cè)、國(guó)內(nèi)外服務(wù)器租用、視頻、平面設(shè)計(jì)、SEO優(yōu)化排名。設(shè)計(jì)、前端、后端三個(gè)建站步驟的完善服務(wù)體系。一人跟蹤測(cè)試的建站服務(wù)標(biāo)準(zhǔn)。已經(jīng)為水處理設(shè)備行業(yè)客戶(hù)提供了網(wǎng)站營(yíng)銷(xiāo)服務(wù)。

閑來(lái)無(wú)事，寫(xiě)了一個(gè)腳本，關(guān)于根據(jù)關(guān)系，找出菜單層次路徑。
例如：
第一列：子菜單的序號(hào)
第二列：菜單名稱(chēng)
第三列：上級(jí)菜單序號(hào)

造數(shù)據(jù)：
cat >menu.txt
settle_report_timeout|超時(shí)報(bào)表|settle_report
settle_report|二級(jí)報(bào)表|report
report|主報(bào)表|main
main|首頁(yè)
settle_report_fail|錯(cuò)誤報(bào)表|settle_report

運(yùn)行腳本輸出：
首頁(yè)-->主報(bào)表-->二級(jí)報(bào)表-->超時(shí)報(bào)表 
首頁(yè)-->主報(bào)表-->二級(jí)報(bào)表-->錯(cuò)誤報(bào)表 


這里只有兩個(gè)終極菜單，其他未完成的菜單不輸出。




#!/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開(kāi)始找，開(kāi)始輸出父菜單--》然后找列表數(shù)組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遞歸找出菜單路徑”的內(nèi)容就介紹到這里了，感謝大家的閱讀。如果想了解更多行業(yè)相關(guān)的知識(shí)可以關(guān)注創(chuàng)新互聯(lián)網(wǎng)站，小編將為大家輸出更多高質(zhì)量的實(shí)用文章！