in reply to Re: String to decimal to octal
in thread Convert string to decimal to octal

Thanks for those replies. I do need to clarify some parts of my post. I am used to coding strongly typed languages like C, C++ and Java. What I am doing in Java is constructing a String array. To do this I am converting various char, integer and an octal values to their string representation and placing these into the String array. This simplifies the passing of these arguments to the called Perl code - one argument to be passed rather than several. The octal value, now converted to its String representation, is what is confusing me. I want to convert this 'String' back to its original octal state. I am unsure how to do it. Like say 0644 convert that from String to decimal gives 644. Convert that decimal to octal gives 1204. Not what I want. I want to keep the original octal value - 644. Java provides a method in class Integer, Integer.parseInt(String, int) where String would be the octal value as a String and int is a radix giving the base to convert to, base 8 in my case. Does Perl provide this functionality?

Replies are listed 'Best First'.
Re^3: String to decimal to octal
by BrowserUk (Patriarch) on Aug 15, 2009 at 11:47 UTC
    Does Perl provide this functionality?

    Yes. As I demonstrated above. And here again:

    c:\test>perl -le" my $n = oct( $ARGV[ 0 ] ); printf qq[As decimal: %d As octal: %o \n], $n, $n; " 0644 As decimal: 420 As octal: 644

    Let me try and explain what is going on above/

    1. The value '0644' is a string being supplied to the perl program as a command line argument. It shows up inside the program (the bit between double quotes here: -le"..."), as $ARGV[ 0 ].
    2. $ARGV[0] is then passed to the built-in function oct, which parses that string ('0644'), and converts it to a number in perl's internal binary representation, and assigns it to the scalar variable $n.
    3. Now, when you use $n, how it will be used will depend upon the context in which you use it.

      That is to say, if you use $n as a string--for example by concatenating it to another string:

      c:\test>perl -le"my $n = oct( $ARGV[ 0 ] ); print 'As a string:' . $n; + " 0644 As a string:420

      It will be converted from that internal binary representation automatically, and used as a (decimal) formatted ascii string.

      However, if you use it in a numeric context--by adding it to another number--then it will be used as a number:

      c:\test>perl -le"my $n = oct( $ARGV[ 0 ] ); print 1 + $n; " 0644 421

    Does that clarify things for you?

    I realise that if you are used to having to convert between string and numeric representations explicitly, that this automation seems unintuative and leaves you thinking you need to do more, but trust me it works.


    Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
    "Science is about questioning the status quo. Questioning authority".
    In the absence of evidence, opinion is indistinguishable from prejudice.
      Perfectly clear explanation. I understand what is going on inside Perl now. Thank you...