Что хорошего в том, чтобы разделять строки с помощью пробелов? - PullRequest
0 голосов
/ 20 марта 2012

Я использую нулевой символ (\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;
}

1 Ответ

0 голосов
/ 21 марта 2012

Как насчет использования какого-нибудь симпатичного модуля печати из CPAN?

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

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

...