#----------------------------- |
$number = hex ( $hexadecimal ); # hexadecimal |
$number = oct ( $octal ); # octal |
#----------------------------- |
print "Gimme a number in decimal, octal, or hex: " ; |
$num = <STDIN>; |
chomp $num ; |
exit unless defined $num ; |
$num = oct ( $num ) if $num =~ /^0/; # does both oct and hex |
printf "%d %x %o\n" , $num , $num , $num ; |
#----------------------------- |
print "Enter file permission in octal: " ; |
$permissions = <STDIN>; |
die "Exiting ...\n" unless defined $permissions ; |
chomp $permissions ; |
$permissions = oct ( $permissions ); # permissions always octal |
print "The decimal value is $permissions\n" ; |
#----------------------------- |