Как я переворачиваю биты ord ('a')

Question

Как мне перевернуть биты ord ('a')? Я попробовал это, и это выглядит правильно, но я хотел бы, чтобы эксперты включили. Примечание: Это текст ascii 'a'.

#! /usr/bin/env perl

use warnings;
use strict;

printf "0x%07b\n", ord('a');
printf "0x%07b\n", (~ord('a')) & (0x7f);

exit(0);

Answer 1

~ действительно является оператором побитового отрицания. Perl целые числа имеют 32- или 64-битный размер в зависимости от вашей сборки Perl, поэтому вы находите побитовое отрицание числа, возвращаемого ord('a') (0x61). Вы продолжаете использовать побитовый оператор AND, чтобы очистить все, кроме 7 младших разрядов этих 32 / 64.