weidagang2046的專欄
          

          物格而后知致
          

          

          

          隨筆 - 8, 文章 - 409, 評論 - 101, 引用 - 0
          

          


          		
	
          

          

          
	
          
		
			
          
				數(shù)據(jù)加載中……
			
          
		          		
		
			
          
				
					
	
          
		
          
			刪除某目錄下最后修改日期大于X天的文件
		
          
		
          
		
		
          
				
				use
				?strict;
          
				use
				?warnings;

          
				@ARGV
				?
				>
				?
				0
				?
				||
				?
				die
				?
				"
				Usage:?perl?file_checker.pl?[dir]\n
				"
				;

          
				opendir
				(DIR
				,
				?
				$ARGV
				[
				0
				])?
				||
				?
				die
				?
				"
				Can't?open?directory:?$!\n
				"
				;

          
				my
				?
				@file_list
				?
				=
				?
				readdir
				(DIR);

          
				foreach
				?
				my
				?
				$file
				?(
				@file_list
				)
          {
          ????          
				$file
				?
				=
				?
				"
				$ARGV[0]/$file
				"
				;
          ????          
				if
				(
				-
				f?
				$file
				)
          ????{
          ????????          
				if
				(
				-
				M?
				$file
				?
				>
				?
				100
				)
          ????????{
          ????????????          
				print
				?
				$file
				,
				?
				"
				\n
				"
				;
          ????????????          
				unlink
				?
				$file
				;
          ????????}
          ????}
          }

          
				closedir
				(DIR);
		
          

		
          
		
          
			posted on 2006-05-01 00:47 weidagang2046 閱讀(575) 評論(0)  編輯  收藏  所屬分類: Perl 
		
          
	
          
	
	


	


          
	    
    




          








          

				
			
          
		          		
	
          
	
          
		
			

		
	
          

          


    







          
        
	




主站蜘蛛池模板：
岚皋县|
登封市|
老河口市|
永年县|
新巴尔虎右旗|
台中县|
三穗县|
嵊州市|
万源市|
苍山县|
都江堰市|
虎林市|
利川市|
榕江县|
河北区|
白沙|
磐石市|
海门市|
伊川县|
泰兴市|
沽源县|
连山|
陆川县|
宝山区|
紫云|
涪陵区|
黑水县|
海南省|
鹤岗市|
嘉义市|
长沙市|
图木舒克市|
佛学|
镇平县|
攀枝花市|
西盟|
江都市|
永新县|
阳新县|
黄梅县|
株洲市|