oct() function in Perl converts the octal value passed to its respective decimal value. For example, oct('1015') will return '525'. This function returns the resultant decimal value in the form of a string which can be used as a number because Perl automatically converts a string to a number in numeric contexts. If the passed parameter is not an octal number then the result will be 0.
Perl
Perl
Syntax: oct(oct_value) Parameter: oct_value: Octal number which is to be converted to decimal Returns: the octal value converted to decimal valueExample 1:
#!/usr/bin/perl -w
# Converting and printing
# the decimal value
print("oct(31) ", oct('31'), "\n");
print("oct(50) ", oct('50'), "\n");
Output:
Example 2:
oct(31) 25 oct(50) 40
#!/usr/bin/perl -w
# Converting and printing
# the decimal value
print("oct(106) ", oct('106'), "\n");
print("oct(125) ", oct('125'), "\n");
Output:
oct(106) 70 oct(125) 85