広告
EXPR を 8 進数文字列と解釈して10 進数の値を返します。EXPR が 0x で始まるときには16 進数文字列と解釈します。EXPR を省略すると$_ を使用します。
$val = oct($val) if $val =~ /^0/;
https://www.7key.jp/program/perl/oct.html