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


只有注册用户登录后才能发表评论。


网站导航: