输出二进制字符串怎么在用0补齐8位?

yakczh_cu

1. $str="ABC123";
   
2. @list=split //,$str;;
   
3. for(@list) {
   
4.    printf(" %-8b",ord($_));
   
5. }

复制代码

期望输出
0100 0001  0100 0010  0100 0011  0011 0001   0011 0010   0011 0011  

tc1989tc

printf(" %08b",ord($_));

MMMIX

回复 1# yakczh_cu


    四个一组输出比较麻烦, 八个一组的话直接用 printf "%0*v8b\n", ' ', $str 就可以了.

rubyish

biru:

1. #!/usr/bin/perl
   
2. my $s = 'ABC123';
   
3. print join '  ',
   
4.   map { sprintf "%04b %04b", split '' } unpack 'H2' x length($s), $s;
   
5. 
   

复制代码

yakczh_cu

回复 3# MMMIX

printf *v  这个是什么意思？　

perldoc上查的

vector flag

This flag tells Perl to interpret the supplied string as a vector of integers, one for each character in the string. Perl applies the format to each integer in turn, then joins the resulting strings with a separator (a dot . by default). This can be useful for displaying ordinal values of characters in arbitrary strings

Put an asterisk * before the v to override the string to use to separate the numbers:

能通俗解释下吗



   

MMMIX

回复 5# yakczh_cu


这段文档说的还不够清楚? 那我把 printf "%0*v8b\n", ' ', $str; 再翻译下吧:

my $out_str = join ' ', map { sprintf "%04b", ord } (split //, $str);
print "$out_str\n";