我使用空字符 ( \0
) 作为分隔符,以保持字符串在sprintf
. 但是带有空字符的字符串(在这种情况下)不适用于该Curses
addstr
函数。
是否有一些合适的字符来代替\0
这个目的?
#!/usr/bin/env perl
use warnings;
use 5.12.0;
sub routine {
my @list = @_;
@list = map{ "\0".$_."\0"; } @list;
# ...
# ...
@list = map{ sprintf "%35.35s", $_ } @list;
# ...
# ...
my $result = $list[5];
$result =~ s/\A\s+\0//;
$result =~ s/\0\s+\z//;
return $result;
}