weidagang2046的專欄
          

          物格而后知致
          

          

          

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

          


          		
	
          

          

          
	
          
		
			
          
				數據加載中……
			
          
		          		
		
			
          
				
					
	
          
		
          
			進制轉換以及字符串轉整數
		
          
		
          
		
		
          Author: kbe@www.smth.org
          
		
          
				Converting?Between?Octal?and?Hexadecimal

          
				#
				-----------------------------
				
						
          
				          
				$number
				?
				=
				?
				hex
				(
				$hexadecimal
				);?????????
				#
				?hexadecimal
				
						
          
				          
				$number
				?
				=
				?
				oct
				(
				$octal
				);???????????????
				#
				?octal
          #-----------------------------          
				
						
          
				          
				print
				?
				"
				Gimme?a?number?in?decimal,?octal,?or?hex:?
				"
				;
          
				$num
				?
				=
				?
				<
				STDIN
				>
				;
          
				chomp
				?
				$num
				;
          
				exit
				?
				unless
				?
				defined
				?
				$num
				;
          
				$num
				?
				=
				?
				oct
				(
				$num
				)?
				if
				?
				$num
				?
				=~
				?
				/^
				0
				/
				;?
				#
				?does?both?oct?and?hex
				
						
          
				          
				printf
				?
				"
				%d?%x?%o\n
				"
				,
				?
				$num
				,
				?
				$num
				,
				?
				$num
				;
          
				#
				-----------------------------
				
						
          
				          
				print
				?
				"
				Enter?file?permission?in?octal:?
				"
				;
          
				$permissions
				?
				=
				?
				<
				STDIN
				>
				;
          
				die
				?
				"
				Exiting?\n
				"
				?
				unless
				?
				defined
				?
				$permissions
				;
          
				chomp
				?
				$permissions
				;
          
				$permissions
				?
				=
				?
				oct
				(
				$permissions
				);???
				#
				?permissions?always?octal
				
						
          
				          
				print
				?
				"
				The?decimal?value?is?$permissions\n
				"
				;
          
				#
				-----------------------------
          
		
          

		
          
		
          
			posted on 2006-03-17 23:31 weidagang2046 閱讀(742) 評論(0)  編輯  收藏  所屬分類: Perl 
		
          
	
          
	
	


	


          
	    
    




          








          

				
			
          
		          		
	
          
	
          
		
			

		
	
          

          


    







          
        
	




主站蜘蛛池模板：
嘉定区|
辽宁省|
宁陕县|
类乌齐县|
平阳县|
搜索|
绵竹市|
宁晋县|
德阳市|
黄大仙区|
沭阳县|
犍为县|
广平县|
石柱|
弥勒县|
青海省|
固原市|
察雅县|
门头沟区|
济南市|
华阴市|
定日县|
陆川县|
扶余县|
大港区|
县级市|
临邑县|
图片|
昌都县|
法库县|
天峨县|
收藏|
五河县|
泸水县|
井陉县|
阜平县|
碌曲县|
甘泉县|
喀什市|
会泽县|
新河县|