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 decimalDevuelve:
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");
Producció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");
Producción:
oct(106) 70 oct(125) 85