Posted to tcl by Bradipo at Fri Aug 10 16:52:25 GMT 2018view raw

  1. % set s [exec dd if=/dev/zero bs=32 count=1 2>/dev/null]
  2.  
  3. % string length $s
  4. 32
  5. % binary scan $s c* b
  6. 1
  7. % set b
  8. 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  9.