Here's one way....
my uint8 $u = 0x4F;
say '$u = <0b' ~ '%08b'.sprintf($u).comb(/\d ** 4/).join('_') ~ '>;';
There's probably others as well.
On Mon, Feb 3, 2020 at 8:17 PM ToddAndMargo via perl6-users <
perl6-users@perl.org> wrote:
> On 2020-02-03 13:51, ToddAndMargo via perl6-users wrote:
> > p6 'my uint8 $u = 84; printf "\$u = <%08s>\n", $u;'
>
> Oops, that should have been
>
> $ p6 'my uint8 $u = 0x4F; printf "\$u = <%#b>\n", $u;'
> $u = <0b1001111>
>
> Who do I get it to print
>
> 0b0100_1111
>
> ?
>
> -T
>
--
__________________
:(){ :|:& };:
