perl oct函数详解

oct()用法：

oct EXPR

oct()函数把 EXPR 当作一个八进制字串并且返回相等的十进制值。如果 EXPR 碰巧以“0x”开头， 那么它就会被当作一个十六进制字串看待。如果 EXPR 以“0b”开头，那么它就解释成一个二进制数的字串。下面的代码将把任何以标准的 C 或 C++ 符号写的十进制，二进制，八进制，和十六进制输入字串转换成数字：

$val = oct $val if $val =~ /^0/;

要实现相反的功能，使用对应格式的 sprintf：

$perms = (stat("filename"))[2] & 07777; $oct_perms = sprintf "%lo", $perms;

oct 函数常用于这样的场合:比如你需要把一个“644”这样的字串转换成一个文件模式等等。 尽管 Perl 会根据需要自动把字串转换成数字，但是这种自动转换是以 10 为权的。