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 
		
          
	
          
	
	


	


          
	    
    




          








          

				
			
          
		          		
	
          
	
          
		
			

		
	
          

          


    







          
        
	




主站蜘蛛池模板：
彩票|
西平县|
措美县|
天津市|
永平县|
江源县|
仪陇县|
吐鲁番市|
胶南市|
邵东县|
荔波县|
治多县|
仪陇县|
博罗县|
平阳县|
霍山县|
尚义县|
祥云县|
美姑县|
衡阳县|
宁波市|
刚察县|
昭苏县|
福建省|
卓尼县|
宝丰县|
伊通|
彭州市|
东丽区|
仁化县|
沧州市|
固镇县|
三台县|
阿合奇县|
商河县|
梧州市|
江安县|
景宁|
柞水县|
芒康县|
沙雅县|