Help for this page

Select Code to Download


  1. or download this
    c:\test>perl -le"
my $n = oct( $ARGV[ 0 ] ); 
...
" 0644

As decimal: 420 As octal: 644
  2. or download this
    c:\test>perl -le"my $n = oct( $ARGV[ 0 ] ); print 'As a string:' . $n;
+ " 0644
As a string:420
  3. or download this
    c:\test>perl -le"my $n = oct( $ARGV[ 0 ] ); print 1 + $n; " 0644
421