Início / coding / Perguntas / 77123725
Accepted
xpt
Asked: 2023-09-18 05:45:20 +0800 CST

Perl para definir/redefinir o 8º bit na string

  • 772

Dada uma string, eu quero

  • defina todos os caracteres do 8º bit de Afo I( 0x41~ 0x49para 0xC1~ 0xC9).
  • redefinir todos os caracteres que possuem o 8º bit ativado para desativado.

Como,

$s='@ABCDEFGHIJKLMNOPQRS';
$s1= join "", map { $_ |= 0x80 if /A-I/ } split //, $s;
$s2= join "", map { $_ &= ~0x80 } split //, $s1;

Acho que meu código acima está próximo, mas não está funcionando totalmente.
Por favor ajude.

string

2 respostas

  1. Best Answer

    Seu código tem alguns problemas.

    Primeiramente, a função para a qual você passa mapdeve retornar o valor desejado. Seu código está configurado $_com o valor desejado (o que é bom, mas desnecessário), mas seu código $s1não está retornando o resultado, então você acaba com uma string vazia. (Seu código $s2retorna o resultado, então está tudo bem nesse aspecto, embora escrito de maneira um pouco estranha.)

    Em segundo lugar, /A-I/não é o regex certo. Você pretendia escrever /[A-I]/.

    Terceiro, quando Perl converte entre strings e números (por exemplo, porque você chamou um operador bit a bit com uma string e um número), ele faz isso analisando a string em um número ou formatando o número na base 10. Por exemplo, '3' | 12é equivalente a 3 | 12, ou seja 15, que é convertido para, '15'se necessário. Não é isso que você quer; em vez disso, você está interessado no valor ASCII/Unicode/byte dos caracteres na string. Para esse tipo de conversão, você precisa usar ord(caractere → número) e chr(número → caractere). Mas você não pode escrever chr(~0x80), porque ~0x80é 0xFFFFFFFFFFFFFF7F(assumindo um sistema de 64 bits), que não é um código de caracteres válido. Em vez disso, você precisa escrever chr(0x7F), ou "\x7F", ou então aplicar o chr seguintea operação bit a bit, escrevendo, por exemplo chr(ord($_) & ~0x80), .

    Então, juntando tudo, você pode escrever isto:

    $s = '@ABCDEFGHIJKLMNOPQRS';
$s1 = join "", map { $_ | (/[A-I]/ ? "\x80" : "") } split //, $s;
$s2 = join "", map { $_ & "\x7F" } split //, $s1;

    ou isto:

    $s = '@ABCDEFGHIJKLMNOPQRS';
$s1 = join "", map { $_ = chr((ord $_) | 0x80) if /[A-I]/; $_ } split //, $s;
$s2 = join "", map { chr(ord($_) & ~0x80) } split //, $s1;

    ou qualquer uma das várias outras permutações nesse sentido.

    • 3

  2. Solução super rápida:

    my $out = $in =~ tr/\x41-\x49\x80-\xFF/\xC1-\xC9\x00-\x7F/r;
    • 1

relate perguntas