Hex String umkehren - #181851 (Allgemeines zu Perl)

Raubtier

2015-08-20 17:06

User since
2012-05-04
1054 Artikel
BenutzerIn

user image

Wie wär's mit diesem Code:

Code (perl): (dl )

sub reverseBitsIn8BitChar {
    my $c = shift;
    return 0xFF & ((($c * 0x0802 & 0x22110) | ($c * 0x8020 & 0x88440)) * 0x10101 >> 16);
}