perl-language-es

Recommendations

Info

Configuración de la codificación conbinmode ()Alternativamente, puede usar binmode () para establecer la codificación para el identificador dearchivo individual:my $filename = '/path/to/file';open my $fh, '<', $filename or die "Failed to open $filename: $!";binmode $fh, ':encoding(utf-8)';pragma abiertoPara evitar establecer la codificación para cada identificador de archivo por separado, puede usarel pragma open para establecer una capa de E / S predeterminada utilizada por todas las llamadassubsiguientes a la función open() y operadores similares dentro del alcance léxico de estepragma:# Set input streams to ':encoding(utf-8)' and output streams to ':utf8'use open (IN => ':encoding(utf-8)', OUT => ':utf8');# Or to set all input and output streams to ':encoding(utf-8)'use open ':encoding(utf-8)';Configuración de la codificación con la líneade comando -C banderaFinalmente, también es posible ejecutar el intérprete perl con un indicador -CD que aplica UTF-8como la capa de E / S predeterminada. Sin embargo, esta opción debe evitarse, ya que se basaen un comportamiento específico del usuario que no se puede predecir ni controlar.El pragma utf8: usando Unicode en tus fuentesEl pragma utf8 indica que el código fuente se interpretará como UTF-8. Por supuesto, esto solofuncionará si su editor de texto también guarda la fuente como codificación UTF-8.Ahora, los literales de cadena pueden contener caracteres Unicode arbitrarios; los identificadorestambién pueden contener caracteres Unicode pero solo de tipo palabra (consulte perldata yperlrecharclass para obtener más información):use utf8;my $var1 = '§я§© '; # works finemy $я = 4;# works since я is a word (matches \w) charactermy $p§2 = 3;# does not work since § is not a word character.say "ya" if $var1 =~ /я§/; # works fine (prints "ya")https://riptutorial.com/es/home 112
Nota : al imprimir texto en el terminal, asegúrese de que sea compatible con UTF-8. *Puede haber relaciones complejas y contraintuitivas entre la salida y la codificación de origen. Alejecutarse en una terminal UTF-8, puede encontrar que agregar el pragma utf8 parece romper lascosas:$ perl -e 'print "Møøse\n"'Møøse$ perl -Mutf8 -e 'print "Møøse\n"'Mse$ perl -Mutf8 -CO -e 'print "Møøse\n"'MøøseEn el primer caso, Perl trata la cadena como bytes en bruto y los imprime así. Como estos bytesson UTF-8 válidos, se ven correctos aunque Perl realmente no sabe qué caracteres son (porejemplo, la length("Møøse") devolverá 7, no 5). Una vez que agrega -Mutf8 , Perl decodificacorrectamente la fuente UTF-8 en caracteres, pero la salida está en modo Latin-1 por defecto y laimpresión de Latin-1 en un terminal UTF-8 no funciona. Solo cuando cambie STDOUT a UTF-8usando -CO , la salida será correcta.use utf8 no afecta la codificación de E / S estándar ni los manejadores de archivos!Manejo de UTF-8 inválidoLectura inválida de UTF-8Al leer datos codificados en UTF-8, es importante tener en cuenta el hecho de que los datoscodificados en UTF-8 pueden ser inválidos o mal formados. Dichos datos generalmente nodeberían ser aceptados por su programa (a menos que sepa lo que está haciendo). Cuando seencuentran datos malformados inesperadamente, se pueden considerar diferentes acciones:• Imprima el seguimiento de pila o el mensaje de error, y cancele el programa correctamente,o• Inserte un carácter de sustitución en el lugar donde apareció la secuencia de bytes conformato incorrecto, imprima un mensaje de advertencia a STDERR y continúe leyendomientras no sucede nada.Por defecto, Perl le warn acerca de la codificación de fallos, pero no abortará su programa. Puedehacer que su programa aborte haciendo que las advertencias de UTF-8 sean fatales, pero tengaen cuenta las advertencias en Advertencias fatales .El siguiente ejemplo escribe 3 bytes en la codificación ISO 8859-1 al disco. A continuación,intenta volver a leer los bytes de nuevo como datos codificados en UTF-8. Uno de los bytes, 0xE5 ,es una secuencia de un byte UTF-8 no válida:use strict;use warnings;use warnings FATAL => 'utf8';https://riptutorial.com/es/home 113
Page 1 and 2:
Perl Language#perl
Page 3 and 4:
Apertura de archivos de texto UTF8
Page 5 and 6:
Examples 42Conversión manual de es
Page 7 and 8:
Políticas de visualización 71Igno
Page 9 and 10:
Capítulo 36: Una forma sencilla de
Page 11 and 12:
Acerca deYou can share this PDF wit
Page 13 and 14:
Versión Notas de lanzamiento Fecha
Page 15 and 16:
Capítulo 2: AleatoriedadObservacio
Page 17 and 18:
Capítulo 3: Análisis XMLExamplesA
Page 19 and 20:
Consumo de XML:use strict;use warni
Page 21 and 22:
my $root = $dom->getDocumentElement
Page 23 and 24:
Capítulo 5: Archivo I / O (lectura
Page 25 and 26:
El operador open tiene una variable
Page 27 and 28:
parte del contenido, puede ser una
Page 29 and 30:
#!/bin/env perluse strict;use warni
Page 31 and 32:
Capítulo 7: ClasificaciónIntroduc
Page 33 and 34:
acceder a la clave de clasificació
Page 35 and 36:
Enlace para obtener información so
Page 37 and 38:
#Edit the format of the text (font)
Page 39 and 40:
Capítulo 9: ComentariosExamplesCom
Page 41 and 42:
icudt34.dllicuin34.aicuin34.deficui
Page 43 and 44:
Capítulo 11: Cuerdas y métodos de
Page 45 and 46:
use feature 'say';say "2 + 2 == @{[
Page 47 and 48:
Capítulo 12: Declaraciones de cont
Page 49 and 50:
Capítulo 13: Depuración de script
Page 51 and 52:
Salida:a quoted, commaword1word2•
Page 53 and 54:
}my $out = {};@{$out}{qw( tv_sec tv
Page 55 and 56:
Capítulo 16: Expresiones regulares
Page 57 and 58:
the variable it's bound tos/foo/bar
Page 59 and 60:
);my $dt2 = DateTime->new(year => 2
Page 61 and 62:
Capítulo 19: Instalacion de perlIn
Page 63 and 64:
Capítulo 20: Instalar módulos Per
Page 65 and 66:
• MYMETA.json• MYMETA.yml (si M
Page 67 and 68:
Ex:$my_query = qq/SELECT * FROM tab
Page 69 and 70:
my %map = (a => 125, b => 1080, c =
Page 71 and 72: Capítulo 23: Leyendo el contenido
Page 73 and 74: perl -0777 -e 'my $file = <>; print
Page 75 and 76: Las listas se pueden pasar a subrut
Page 77 and 78: El arrayref para @foo es \@foo . Es
Page 79 and 80: $value->update(); # returns false v
Page 81 and 82: De manera predeterminada, cualquier
Page 83 and 84: ser exentas de esta manera. Sin emb
Page 85 and 86: Capítulo 27: Optimización del uso
Page 87 and 88: Capítulo 28: Orientado a objetos P
Page 89 and 90: package Point3D;use strict;use pare
Page 91 and 92: En el ejemplo anterior, puede llama
Page 93 and 94: has bar => (is => 'ro');# a read-on
Page 95 and 96: Capítulo 29: Paquetes y módulosSi
Page 97 and 98: package MySuperCoolModule;Si lo des
Page 99 and 100: Capítulo 30: Perl one-linersExampl
Page 101 and 102: perl -0777 -ne'print "The whole fil
Page 103 and 104: };# More tests of the method can be
Page 105 and 106: Agrega al final de tu ~/.bashrc[[ -
Page 107 and 108: Parents LWP::MemberMixinpublic meth
Page 109 and 110: my %hash = ( foo => 1, bar => { baz
Page 111 and 112: parámetros, que se pasan por valor
Page 113 and 114: }$value = prod 1..6; # 720say defin
Page 115 and 116: Capítulo 36: Una forma sencilla de
Page 117 and 118: Dado que UTF-8 es uno de los format
Page 119 and 120: Perl no intenta decodificar los nom
Page 121: -M interruptores -M y -C se pueden
Page 125 and 126: Capítulo 38: VariablesSintaxis•
Page 127 and 128: my @empty_list = @chars_of_hello[1.
Page 129 and 130: @elems = qw(x y x z t);my %set = ma
Page 131 and 132: my @array = ("Hello"); # Creating a
Page 133 and 134: }return;# Create a hashrefmy $examp
Page 135 and 136: # (this gives key-value pairs: 'it'
Page 137 and 138: Capítulo 39: Variables especialesO
Page 139 and 140: devuelve si se encontraron elemento
Page 141 and 142: 1516Empacar ydesempacarExpresionesr
show all

perl-language-es

Create successful ePaper yourself

Delete template?

Save as template?