Language: C C++ D Haskell Lua OCaml PHP Perl Plain Text Python Ruby Scheme Tcl $s = "Hello world\0hello\0\0"; print $s,"\n"; $t = scalar(unpack("Z*", $s)); print length $t, $t; Private [?] Run code