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 阅读(729) 评论(0)  编辑  收藏 所属分类: Perl


只有注册用户登录后才能发表评论。
网站导航: