0

我使用空字符 ( \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;
}
4

1 回答 1

0

使用 CPAN 中的一些漂亮的打印模块怎么样?

http://metacpan.org/pod/Data::Format::Pretty::Console

http://metacpan.org/pod/Text::Tabulate

于 2012-03-21T08:51:08.640 回答