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

創(chuàng)新互聯(lián)建站服務(wù)項目包括淳安網(wǎng)站建設(shè)、淳安網(wǎng)站制作、淳安網(wǎng)頁制作以及淳安網(wǎng)絡(luò)營銷策劃等。多年來，我們專注于互聯(lián)網(wǎng)行業(yè)，利用自身積累的技術(shù)優(yōu)勢、行業(yè)經(jīng)驗、深度合作伙伴關(guān)系等，向廣大中小型企業(yè)、政府機構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案，淳安網(wǎng)站推廣取得了明顯的社會效益與經(jīng)濟效益。目前，我們服務(wù)的客戶以成都為中心已經(jīng)輻射到淳安省份的部分城市，未來相信會繼續(xù)擴大服務(wù)區(qū)域并繼續(xù)獲得客戶的支持與信任！

閑來無事，寫了一個腳本，關(guān)于根據(jù)關(guān)系，找出菜單層次路徑。
例如：
第一列：子菜單的序號
第二列：菜單名稱
第三列：上級菜單序號

造數(shù)據(jù)：
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開始找，開始輸出父菜單--》然后找列表數(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)的知識可以關(guān)注創(chuàng)新互聯(lián)-成都網(wǎng)站建設(shè)公司網(wǎng)站，小編將為大家輸出更多高質(zhì)量的實用文章！

當前名稱：如何使用perl遞歸找出菜單路徑-創(chuàng)新互聯(lián)
網(wǎng)站鏈接：http://m.newbst.com/article38/dcegpp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站策劃、網(wǎng)站設(shè)計公司、靜態(tài)網(wǎng)站、品牌網(wǎng)站設(shè)計、網(wǎng)站收錄、用戶體驗

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)