Início / coding / Perguntas / 78689740
Accepted
xpt
Asked: 2024-07-01 04:41:54 +0800 CST

Perl para converter letras normais em caracteres largos

  • 772

Como perlconverter do formato de meia largura para largura total ? No perltermo de, do caráter normal ao caráter amplo.

Por exemplo, de !abc ABC!para ！ａｂｃ　ＡＢＣ！. Aritmeticamente, o seguinte deve estar correto

binmode STDOUT, ":utf8";

$letter = 'A';
$lw = chr($letter + 0xfee0);
print "Hello $lw ($letter)!\n";

Mas a impressão não é o que eu esperava, o que deveria serHello Ａ (A)!

perl

1 respostas

  1. Best Answer

    Se você tivesse usado use warnings, receberia um aviso de que sua adição falhou:

    O argumento "A" não é numérico (+) em ...

    O que significa que sua letra 'A'é transformada em um número antes da adição, o que será 0neste caso. Você pode verificar isso removendo $letter +e apenas executando o número no arquivo chr().

    Você pode resolver seu problema corrigindo a lógica:

    my $lw = chr(ord($letter) + 0xfee0);

    Primeiro mudando a letra para numérico ( ord()) e depois fazendo a adição.

    Observe que para evitar erros simples como esse, você deve sempre usar estes pragmas:

    use strict;
use warnings;
    • 6

relate perguntas