perl | función oct()

La función oct() en Perl convierte el valor octal pasado a su respectivo valor decimal. Por ejemplo, oct(‘1015’) devolverá ‘525’. Esta función devuelve el valor decimal resultante en forma de string que se puede usar como un número porque Perl convierte automáticamente una string en un número en contextos numéricos. Si el parámetro pasado no es un número octal, el resultado será 0.

Sintaxis: oct(valor_oct)

Parámetro:
valor_oct: Número octal que se va a convertir a decimal

Devuelve:
el valor octal convertido a valor decimal

Ejemplo 1:

#!/usr/bin/perl -w
  
# Converting and printing 
# the decimal value
print("oct(31) ", oct('31'), "\n");
print("oct(50) ", oct('50'), "\n");

oct(31) 25
oct(50) 40

Ejemplo 2:

#!/usr/bin/perl -w
  
# Converting and printing 
# the decimal value
print("oct(106) ", oct('106'), "\n");
print("oct(125) ", oct('125'), "\n");

oct(106) 70
oct(125) 85