Question

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

Answer 1

如何使用CPAN的漂亮打印模块？

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

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

用领先的空格分隔字符串有什么好处？

1 个答案: