Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

Re: bitwise string operator

by kennethk (Abbot)
on Jun 13, 2013 at 17:23 UTC ( #1038802=note: print w/replies, xml ) Need Help??

in reply to bitwise string operator

You are performing bitwise operations, and using the character 0, not the number zero, to clean things up. If you type ord '0', you will see the zero character is 48, or 30 in hex (or see ASCII). The |= operator is a compound operator, which performs a bitwise-or between the left- and right-hand sides, and then assigns the result to the left-hand argument.

Your bitwise-xor (^) necessarily sets bits 7 and 8 to false since you only have alphabetics. The bitwise-or (|) sets the 5th and 6th bits to true. 0011xxxx (or xxx1100 if you are a little endian) corresponds to the ASCII column that contains all the numbers.

So your output is a series of numeric characters, not a number.

#11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.

Replies are listed 'Best First'.
Re^2: bitwise string operator
by romano (Initiate) on Jun 13, 2013 at 19:49 UTC
    Thanks kenneethk

    It took me a while to figure it out. I am putting your response in more explicit terms for neophytes like myself.

    $Str1 = "AAAACCCCGGGGTTTT"; $Str2 = "ACGTACGTACGTACGT"; $cmp = $Str1^$Str2; $cmp |= '0' x length($cmp); print "$Str1\n"; print "$Str2\n"; print "$cmp\n";
    # What is ‘|=’ doing? This is bitwise ‘or’. Does ‘or’ on left side and right side (right side value is ‘0’ or 00110000). Puts result of ‘or’ in left side. Originally, the value in $cmp for “A” ^ “G” was 00000110 (= 6) – this is ‘Acknowledgement’ – this is not a printable character.

    By doing the ‘or’ with “0” (00110000 = 48) you convert ‘6’ to ‘6’ + ‘48’ = ‘54’ – this is the value for the character 6. So, $cmp looked empty because all of the values are for non-printable characters.

    A = 01000001
    G = 01000111
    ^ 00000110 = 6 ‘Acknowledgement’

    left 00000110
    ‘0’ 00110000
    | (or) 00110110 = 54 ‘character 6’


    A = 01000001
    T = 01010100
    ^ 00010101 = 21 ‘Negative Acknowledgement’

    left 00010101
    ‘0’ 00110000
    |(or) 00110101 = 53 ‘character 5’

    Thanks again for your help,

    romano (aka KennB)

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1038802]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (3)
As of 2018-07-21 04:19 GMT
Find Nodes?
    Voting Booth?
    It has been suggested to rename Perl 6 in order to boost its marketing potential. Which name would you prefer?

    Results (444 votes). Check out past polls.