perl — preguntas con respuestas

1 respuesta
Estoy creando un servidor web usando Apache y Perl CGI que procesa las solicitudes POST que se le envían. La parte de procesamiento requiere que obtenga los datos completamente sin procesar de la solicitud y verifique su firma. El cliente envía dos tipos diferentes de solicitudes POST: una con el ...
cgi
cgi.pm
30 jul. 2018, в 17:57
1 respuesta
Tengo un archivo con rangos. Quiero los rangos más altos de la lista y eliminar otros rangos superpuestos pequeños: chr1A 77568 86766 chr1A 203138 204427 chr1A 204428 222994 chr1A 204428 206534 chr1A 206538 207965 chr1A 207967 213097 chr1A 213098 221111 chr1A 213098 213863 ...
30 jul. 2018, в 16:24
1 respuesta
Estoy asignando los tiempos desde y hasta la primera y última entrada a continuación my $from_time = $self->{'r_instrDataEvent'}->{'ulsaStats'}->[0]->{'epochtime'}; print "$from_time"; my $to_time = $#{$self->{'r_instrDataEvent'}->{'ulsaStats'}}->{'epochtime'}; print "FROM is $...
arrays
hash
30 jul. 2018, в 15:44
2 respuestas
¿Cuál es la mejor manera de obtener el mayor valor de una variedad de hashes? Quiero obtener el valor de ID más alto de cada archivo, contenido en mi matriz (las claves son el nombre y la ID del archivo). mi @array contiene estos valores [ { file => "messages0.0", id => "1", }, { fil...
arrays
30 jul. 2018, в 15:15
2 respuestas
¿Cómo atrapar la excepción de eval interno}? #!/usr/bin/perl use strict; use warnings; use Try::Tiny; use Exception::Class ('T'); use Data::Dumper; try { eval { T->throw("Oops"); }; } catch { print Dumper \$_; }; } No tenemos Exception :: Class submodule, sino...
exception-handling
eval
30 jul. 2018, в 14:22
2 respuestas
Quiero cambiar este código de usar un hash a una matriz, pero no puedo encontrar un buen ejemplo para continuar. ¿Alguien puede aconsejar? Mi única idea hasta ahora es usar [ ] en la línea 2. my @subscriptions = (); $self->{'serverMap'} = {}; foreach my $service( "pmservice", "saservice" ) {...
arrays
hash
30 jul. 2018, в 09:35
3 respuestas
¿Cómo puedo hacer algo así? Quiero devolver el servidor IP de if statment, donde firmo if a variable. ¿Es posible? #!/usr/bin/env perl # use warnings; use strict; my $variable1 = "10.12.1.1"; my $variable2 = "10.12.1.2"; my $string = $ARGV[0]; my $serveris=>(if ($string =~ m/^[abcdefghijklm]...
if-statement
30 jul. 2018, в 09:28
1 respuesta
¿Alguien puede guiarme sobre cómo decodificar el script perl a continuación? Es un script cargado en el servidor a través de un sitio pirateado de WordPress. Se está ejecutando continuamente a través de un trabajo cron, y sospecho que es un script de cryto mining. my $INrVhi;$INrVhi.=$_ while(<D...
security
30 jul. 2018, в 09:28
1 respuesta
Tengo un script perl cuya ruta es /scripts/original/ascript.pl También existe un enlace simbólico a este script: /scripts/linked/ascript.pl En ascript.pl, necesito la ruta desde donde se llamó el script (por lo tanto, / scripts / original o / scripts / Linked). abs_path () siempre devuelve la ub...
15 jul. 2018, в 11:37
6 respuestas
Necesito eliminar todos los números de un archivo, excepto los seguidos de (ST | TH | [RN] D) (números ordinales). No estoy seguro de cómo introducir una excepción en sed así (sé de [^] pero eso no me permitiría dar la cadena opcional (ST | TH | [RN] D). Parece que lookaheads podría ser la respues...
regex-lookarounds
sed
25 mayo 2018, в 15:31
5 respuestas
Tengo un marco de datos de muestra act con dos variables que se parecen a esto: activity_id activity_ids 1 227 {227,32,33,34,35,252} 2 32 {227,32,33,34,35,252} 3 33 {227,32,33,34,35,252} 4 34 {227,32,33,34,35,252} 5 35 {227,32,33,34,35,25...
stringr
02 mayo 2018, в 06:00
1 respuesta
Estoy leyendo archivos de formato .fasta de @ARGV entrada con <> construcción. El problema es que ese primer elemento de matriz debe ser solo un valor de cadena, y todos los demás son archivos .fasta. ¿Cómo debo usar el primer elemento de matriz como una cadena e ignorarlo / saltar al segundo...
08 abr. 2018, в 13:28
2 respuestas
Estoy tratando de lograr este resultado de muestra de un pequeño proyecto de Perl como este content1 relatedcontent1 relatedcontent2 relatedcontent2 content2 relatedcontent1 relatedcontent2 aqui esta mi codigo #!C:/Perl64/bin/perl.exe use strict...
16 marzo 2018, в 02:15
1 respuesta
Estoy tratando de ejecutar un comando similar a esto con bash y no puedo entender cómo escapar del punto y coma: ./script.pl data='!'"data;more_data"'!' Cuando mi script lee los datos, todo lo que obtiene es "! Data". ./script.pl data='!'"data\;more_data"'!' El valor que veo es "! ...
16 marzo 2018, в 00:14
1 respuesta
Tengo el siguiente código que imprime con éxito todas las cadenas que coinciden con mi expresión regular en la consola ( perl myscript.pl sample_text.txt ) $filename=shift; open text, $filename or die "error opening $filename\n"; while (my $line = <text>) { push @matches, $1 while $line ...
capture-group
29 enero 2018, в 19:50
Arriba
Menu