Как я могу правильно выровнять строки UTF-8 с printf Perl? - PullRequest
Новая
       22

Как я могу правильно выровнять строки UTF-8 с printf Perl?

4 голосов
/ 14 января 2010

Как правильно получить красивый вывод (все строки имеют одинаковый отступ)? 

#!/usr/bin/env perl
use warnings;
use strict;
use DBI;

my $phone_book = [ [ qw( name number ) ],
            [ 'Kroner', 123456789 ],
            [ 'Holler', 123456789 ],
            [ 'Mühßig', 123456789 ],
            [ 'Singer', 123456789 ],
            [ 'Maurer', 123456789 ],
];

my $dbh = DBI->connect( "DBI:CSV:", { RaiseError => 1 } );
$dbh->do( qq{ CREATE TEMP TABLE phone_book AS IMPORT( ? ) }, {}, $phone_book );

my $sth = $dbh->prepare( qq{ SELECT name, number FROM phone_book } );
$sth->execute;

my $array_ref = $sth->fetchall_arrayref();

for my $row ( @$array_ref ) {
    printf "%9s %10s\n", @$row;
}

# OUTPUT:

#   Kroner  123456789
#   Holler  123456789
# Mühßig  123456789
#   Singer  123456789
#   Maurer  123456789

Ответы [ 3 ]

4 голосов
/ 14 января 2010

Я не смог воспроизвести его, но, грубо говоря, происходит то, что это несоответствие кодировки символов. Скорее всего, ваш исходный файл Perl был сохранен в кодировке UTF-8. Однако вы не включили use utf8; в сценарии. Таким образом, он интерпретирует каждый из не-ASCII немецких символов как два символа и соответственно устанавливает отступы. Но терминал, на котором вы работаете, также находится в режиме UTF-8, поэтому символы печатаются правильно. Попробуйте добавить use warnings;, и я готов поспорить, что вы получите предупреждение, и я не удивлюсь, если добавление use utf8; действительно решит проблему.

2 голосов
/ 26 сентября 2012 
    #!/usr/bin/env perl

    use warnings;
    use strict;

    use utf8; # This is to allow utf8 in this program file (as opposed to reading/writing from/to file handles)

    binmode( STDOUT, 'utf8:' ); # Allow output of UTF8 to STDOUT

    my @strings = ( 'Mühßig', 'Holler' ); # UTF8 in this file, works because of 'use utf8'

    foreach my $s (@strings) { printf( "%-15s %10s\n", $s, 'lined up' ); } # should line up nicely

    open( FILE, 'utf8file' ) || die("Failed to open file: $! $?");

    binmode( FILE, 'utf8:' );

    # Same as above, but on the file instead of STDIN

    while(<FILE>) { chomp;printf( "%-15s %10s\n", $_, 'lined up' ); }

    close( FILE );

    # This works too
    use Encode;

    open( FILE, 'utf8file' ) || die("Failed to open file: $! $?");

    while(<FILE>) {
            chomp;
            $_ = decode_utf8( $_ );
            printf( "%-15s %10s\n", $_, 'lined up' );
    }

    close( FILE );
2 голосов
/ 10 сентября 2011

Вы не можете использовать Unicode с printf, если у вас есть кодовые точки, которые берут 0 или 2 столбца печати вместо 1, что, как кажется, у вас.

Вместо этого вам нужно использовать Unicode :: GCString .

Неправильный путь: 

printf "%-10.10s", our $string;

Правильный путь: 

use Unicode::GCString;

my $gcstring = Unicode::GCString->new(our $string);
my $colwidth = $gcstring->columns();
if ($colwidth > 10) {
    print $gcstring->substr(0,10);
} else {
    print " " x (10 - $colwidth);
    print $gcstring;
}
...