• <ins id="pjuwb"></ins>
    <blockquote id="pjuwb"><pre id="pjuwb"></pre></blockquote>

    <noscript id="pjuwb"></noscript>
          <sup id="pjuwb"><pre id="pjuwb"></pre></sup>

            <dd id="pjuwb"></dd>
            <abbr id="pjuwb"></abbr>
            

    
            

            




            







												


        

            



            


            
    
            
        
            

            公告
            
	

            
            
	
            
		
            <2006年8月>
            
	
            日一二三四五六
            303112345
            6789101112
            13141516171819
            20212223242526
            272829303112
            3456789
            

            

            

            統計
            
	
              
		
            • 隨筆 - 9
		
            • 文章 - 13
		
            • 評論 - 3
		
            • 引用 - 0
	
              • 

            
            

            常用鏈接
            


            留言簿(1)
            


		
            隨筆分類
            
		
				
			
	
		
            隨筆檔案
            
		
				
			
	
		
            文章分類
            
		
				
			
	
		
            文章檔案
            
		
				
			
	



            搜索
            

              
	
            • 
		
            •  
	
              • 

            


            最新評論
	
            

            
	
			
		

            


            閱讀排行榜
            



            評論排行榜
            

            
        
    
            
    
            
        
					
	
            
		
            
			Perl===遍歷目錄
		
            
		
            看了幾天perl，寫一個小程序
            ##############################
            #??????Date:?06/09/13
            #?????Author:me????
            #?????Program:All?over?an?path?you?enter
            ##############################
            #!c:/perl/bin/perl?#-w

            print?"enter?the?complete?path:";
            $cin_t?=?<STDIN>;
            chomp?$cin_t;

            our?@stack;???#保存文件夾目錄名。

            &EnumDir($cin_t);
            #######################################
            sub?EnumDir
            {
            ????
            ????            @dir_f?=?@_;
            ????            my?@struct_dirs;
            ????            my?$path?=?join(//,?@dir_f);????#數組轉化為標量。
            ????#print?"$path?\n";
            ????print?"[Files?in?Directory?$path]?\n";
            ????            $ret_b?=?opendir(HFILE,?$path);
            ????            die?"open?dir?error?$!"?if(!$ret_b);
            ????            @file_s?=?readdir(HFILE);

            ????
            ????
            ????            for($count?=?0;?$count<@file_s;?$count++)
            ????{
            ????????            #print?"$count?\n";
            ????????????????
            ????????            if($file_s[$count]?=~?m/\./?)??????????????#打印文件；
            ????????{
            ????????????
            ????????????            if($file_s[$count]?=~?m/^\.\.?$/?)??#過濾.?和..;
            ????????????{
            ????????????????            next;
            ????????????}
            ????????????            print?"$file_s[$count]?\n";????????????
            ????????}
            ????????            #///////////////////////////#
            ????????else
            ????????{
            ????????????            print?"$file_s[$count]?\n";????????#打印文件夾并壓棧；
            ????????????$subdir_t?=?$file_s[$count];
            ????????????            $subdir?=?"$path/$subdir_t";
            ????????????
            ????????????            &PushDirs($subdir);
            ????????????
            ????????}

            ????}
            ????
            ????            closedir(HFILE);????
            ????            $sub_dir?=?&PopDirs();
            ????            #die?"no?dir?"?if($sub_dir?=0);
            ????&EnumDir($sub_dir);????
            ????


            }
            ##############################
            sub?PushDirs???????#目錄名壓棧。
            {
            ????            my?@dir_fs?=?@_;
            ????
            ????            my?$path_fs?=?join(//,?@dir_fs);
            ????            push?(@stack,?$path_fs);
            }
            #-----------------------
            sub?PopDirs???????????#取一個目錄名。
            {
            ????            $size?=?@stack;
            ????            if($size?!=?0)
            ????{
            ????            $buf_pop?=?pop(@stack);
            ????????            return?$buf_pop;????
            ????}
            ????            die?"nofile?empty";
            ????????
            }
            
		
            
			posted on 2006-09-13 14:53 blues 閱讀(929) 評論(0)  編輯 收藏 引用  
		
            
	
            
	
	


	


            
	    
    




            






            

				
    
            
    

            
	
    
    







            
	   
	



久久久无码精品亚洲日韩按摩|
中文字幕无码久久久|
色综合久久中文字幕无码|
久久综合噜噜激激的五月天|
91久久精品电影|
久久99热精品|
日韩人妻无码精品久久免费一
|
日日狠狠久久偷偷色综合免费
|
亚洲国产精品无码久久SM|
人人狠狠综合久久88成人|
久久久黄色大片|
久久无码AV中文出轨人妻|
99久久国产亚洲高清观看2024|
久久精品国产91久久综合麻豆自制|
狠狠色狠狠色综合久久|
久久综合伊人77777|
日韩欧美亚洲综合久久|
亚洲欧美精品伊人久久|
亚洲国产精品无码久久青草
|
精品久久人人爽天天玩人人妻|
国产午夜福利精品久久2021|
久久综合鬼色88久久精品综合自在自线噜噜|
一本一本久久a久久综合精品蜜桃|
久久se精品一区二区影院|
日韩乱码人妻无码中文字幕久久
|
亚洲国产天堂久久综合|
国产精品禁18久久久夂久|
国产免费久久精品99re丫y|
国产激情久久久久影院老熟女免费
|
久久久久亚洲AV成人片|
四虎国产精品免费久久|
国产成人精品久久亚洲高清不卡|
久久久99精品成人片中文字幕
|
国产精品99久久精品爆乳|
国产精品99久久精品|
久久综合香蕉国产蜜臀AV|
狠狠色婷婷久久综合频道日韩
|
亚洲午夜久久久久妓女影院|
久久亚洲精品成人无码网站|
国产精品久久婷婷六月丁香|
99久久这里只精品国产免费|