Resultados de la búsqueda a petición "perl"
LWP :: UserAgent y 500 negociación SSL falló
Estoy ejecutando un viejo servidor Debian que una vez al día busca una página web a través de un script Perl. Desde ayer, el script falla con el error "500 negociación SSL falló". use strict; use LWP::UserAgent; my $browserObj = ...
Escribir en atributos de solo lectura dentro de una clase Perl Moose
Usando Perl yMoose, se puede acceder a los datos del objeto de 2 maneras. $self->{attribute} o$self->attribute() Aquí hay un ejemplo simple que demuestra ambos: # Person.pm package Person; use strict; use warnings; use Moose; has 'name' => (is ...
Convierte segundos a días, horas, minutos usando Perl
me gustaría tomarcontrol de la salida generado en segundos usandoperl. Me gustaría mostrar el tiempo (en segundos) en forma de días, horas, minutos y segundos para hacerloformato legible por humanos. Código my $start = time; <some other perl ...
¿Cómo ejecutar correctamente el script Perl con setuid () cuando se usa como cgi-bin?
Tengo un script de Perl que se llama a través de Apache o en la línea de comandos. Para fines de prueba, le paso el nombre de usuario con el que quiero que funcione el script Perl y usoPOSIX::setuid para configurar eluid. Si ejecuto el script ...
Función de división de Perl: use caracteres de repetición como delimitador
Quiero dividir una cadena usando letras repetidas como delimitador, por ejemplo,"123aaaa23a3" debe dividirse como('123', '23a3') mientras"123abc4" debe dejarse sin cambios. Entonces intenté esto: @s = split /([[:alpha:]])\1+/, '123aaaa23a3';Pero ...
¿Cuál es una buena práctica, un archivo léxico o un typeglob?
Algunos dicen que deberíamos usar un identificador de archivo léxico en lugar de un typeglob, como este: open $fh, $filename;Pero la mayoría de los libros de Perl, incluidosEl libro de ...
¿Cómo extraer la dirección de correo electrónico de una cadena usando perl?
¿Cómo extraer la dirección de correo electrónico de una cadena usando perl y poner las direcciones de correo electrónico en una variable? Mis cuerdas se ven como Ben Tailor <[email protected]> [email protected], [email protected], Ben Tailor ...
Instalé un módulo con éxito con CPAN, pero Perl no puede encontrarlo. ¿Por qué?
Instalé un módulo CPAN como este: cpan AcmeSegún el resultado, la instalación fue exitosa: Running install for module 'Acme' ... All tests successful. Files=2, Tests=3, 0 wallclock secs ( 0.02 usr 0.00 sys + 0.04 cusr 0.00 csys = 0.06 CPU) ...
¿Qué hace "-e" dentro de una expresión en Perl?
Me encontré con este código: unless(-e $SNMPWALK) { print "snmpwalk is not installed!\n"; exit 3; }¿Cuál es la función de-e en esta expresion?
combinar archivos que constan de dos columnas
Tengo varios archivos que se ven así: archivo1: rsRNA-2312-n 2 rsRNA-6508-n 2 rsRNA-6382-n 10 rsRNA-951-n 0 rsRNA-6330-n 4 rsRNA-6330-n 11 rsRNA-1385-n 3 rsRNA-4945-n 0 rsRNA-946-n 9file2: rsRNA-552-n 2 rsRNA-5301-n 7 rsRNA-6487-n 0 ...