Resultados de la búsqueda a petición "perl"
¿Qué significa "~~" en Perl?
En unPues contesta [https://stackoverflow.com/questions/3086874/find-the-item-in-an-array-that-meets-a-specific-criteria-if-there-is-one-perl/3086891#3086891] daxim [https://stackoverflow.com/users/46395/daxim]estados: @array ~~ $scalar is ...
¿Qué tan importante es indicar si una clase implementa una interfaz en Perl?
He estado discutiendo un problema de estilo de código con un amigo. Tenemos una serie de paquetes que implementan una interfaz al devolver un tipo específico de valor a través de una subrutina con nombre. Por ejemplo: package Foo::Type::Bar; sub ...
Llamar a una clase de Java desde Perl
Me gustaría llamar a una clase de Java desde Perl. Usualmente uso la clase java desde la línea de comando para hacer algunos procesamientos como: java com.something.someAhora, necesito llamarlo desde dentro de un script perl. ¿Podrías decirme ...
Cómo hacer que un hash esté disponible en otro módulo
for Ex : package test1 ; my %hash = ( a=> 10 , b => 30 ) ; 1; in Script : use test1 ; print %hash ; # How to make this avilable in script without sub
¿Perl's JSON :: XS no codifica UTF8 correctamente?
Este segmento de código simple muestra un problema que estoy teniendo con la codificación JSON :: XS en Perl: #!/usr/bin/perl use strict; use warnings; use JSON::XS; use utf8; binmode STDOUT, ":encoding(utf8)"; my (%data); $data{code} = ...
Cómo reemplazar una cadena y preservar su mayúscula / minúscula
Quiero reemplazar una cadena con la otra en Perl; Ambos son de la misma longitud. Quiero reemplazar todas las apariciones de la cadena (sin distinción entre mayúsculas y minúsculas), pero quiero que se conserve el caso de la letra. Entonces, si ...
¿Cómo escapo de un apóstrofe en mi consulta de texto XPath con Perl y Selenium?
Tengo una consulta XPath que debe coincidir con algún texto en un atributo span, de la siguiente manera: my $perl_query = qq(span[text\(\)='It's a problem']); $sel->click_ok($perl_query);Donde el texto no tiene apóstrofe, no hay problema. He ...
Crear nombres de archivo con caracteres unicode
Estoy buscando algunas pautas sobre cómo crear nombres de archivo con caracteres Unicode. Considerar: use open qw( :std :utf8 ); use strict; use utf8; use warnings; use Data::Dump; use Encode qw(encode); my $utf8_file_name1 = encode('UTF-8', ...
¿Podría File :: Find :: Rule ser parcheado para manejar automáticamente la codificación / decodificación de caracteres de nombre de archivo?
Supongamos que tengo un archivo con nombreæ (UNICODE: 0xE6, UTF8: 0xC3 0xA6) en el directorio actual. Entonces, me gustaría usarFile::Find::Rule [https://metacpan.org/pod/File::Find::Rule]para localizarlo: use feature qw(say); use open qw( :std ...
¿Por qué algunos programadores declaran variables como my $ myvariable = shift; en Perl?
He estado siguiendo los tutoriales en perlmeme.org y algunos de los autores declaran variables de la siguiente manera: my $num_disks = shift || 9; # - no idea what the shift doesy dentro de bucles como my $source = shift; my $dest = shift; my ...