Foro - Perl en Español

Hola, buenas noches.

Por favor, si pueden ayudarme, necesito extraer texto entre las marcas HTML de este ejemplo:

<span class="field-content"><p><strong class="uppercase">CABRERA CONSIGNACIONES VENDE: lancha</strong> de 5 y 6 mts, de aluminio, marca LeveFord, con póliza, factura y chata incluida, nueva, entrega inmediata. Ref. 70204254 Av. Viedma # 206, primer anillo entre Ñuflo de Chaves y Warnes (C163636430)</p>
</span> </div>
<span class="field-content"><p><strong class="uppercase">IMPORTADORA MENDOZA OFRECE: Micros</strong> Toyota Jumbo 2016 O km, gasolina, con garantía ...

Hola, amigos, estoy intentando sumar múltiples valores de múltiples hashes con la misma clave.

Este es el resultado que me gustaría obtener:

HASH1 => { '2016-07-01' => { 'val1' => '7', 'val2' => '9', }, '2016-07-02' => { 'val1' => '10', 'val2' => '2', } }
HASH2 => { '2016-07-01' => { 'val1' => '8', 'val2' => '4', }, '2016-07-03' => { 'val1' => '3', 'val2' => '2', } }
HASH3 => { '2016-07-01' ...

Hola a todos de nuevo, estoy tratando de crear un %hash con algunas frases que necesito cambiar.

Las palabras se encuentran dentro de un array y usando map, agrego un mismo texto a todas las palabras contenidas y luego armo el %hash. El código es el siguiente:
#!/usr/bin/env perl
use v5.22;
use Data::Dumper;

### @array con las palabras de entorno
my @ext_env = qw (
postscript tikzpicture pgfpicture ganttchart circuitikz
forest tikzcd dependency pspicture ...

Tengo este error:

Undefined subroutine &MyApp::MyBase::Today called at ..//MyApp/MyBase.pm line 967.

pero en mi código ya tengo cargado el módulo Date::Calc:

use Date::Calc qw(:all);

y quiero llamar una función un método de Date::Calc y no sé por qué me sale ese error. En un servidor me funciona bien, pero lo he pasado a otro, y ya me instalaron el módulo y no funciona, sigue el mismo error.

Hola, grupo. Solicito de su ayuda para resolver un problema. Espero explicar bien el problema para que puedan ayudar a la solución.

Resulta que tengo la siguiente lista de genes abreviados:
ACY1
RNA5S1
USP12-AS1
TRAJ23
ZFAT
Y deseo buscar cada uno en el siguiente archivo de nombres:
Approved Symbol Approved Name
A2MP1 alpha-2-macroglobulin pseudogene 1
ACY1 aminoacylase 1
SLIT2 slit guidance ligand 2
RN7SL843P RNA, 7SL, cytoplasmic 843, pseudogene
SP9YP24 ubiquitin specific peptidase 9, Y-linked ...

Buenas a todos.

Yo, aquí con mis problemas nuevamente, jeje. Resulta que quiero instalar la librería XML::Quote para usarla en un script de un servicio web que hice, pero no sé cómo instalarla en el Perl de XAMPP.

Intento ejecutar el ppm de XAMPP pero me da el siguiente error: "This application has failed to start because libexpat-1_.dll was not found. Re-installing the application may fix this problem".

En el equipo también tiene instalado ActivePerl. ...

Hola, tengo el siguiente código:
my $code = "";

open(FILE, 'raro.html');
while (my $line = <FILE>) {
$code .= $line;
}
close (FILE);

chomp $code;

while ($code =~ /(?<="r"><. href=")(.+?)"/mig ) {
my $link = $1;
print $link."\n";
}
else {
print "nop";
}

El tema es que si uso while() en vez if() me devuelve estos errores:
Can't use global @_ in "my" at line 45, near "= @_"
syntax error line 60, ...

SO: Centos

Comando ejecutado:

netstat -plan | grep ":80" | awk '{print $5}' | cut -d ":" -f 1 | sort | uniq -c | sort -nk 1 | awk '{print $1"-"$2}'

resultado:
1..........
2....
20-190.186.38.13
25-200.105.185.159
27-181.114.119.34
35-186.167.244.224
40-190.102.144.100
40-190.186.216.195
45-107.167.106.145
46-190.180.5.136
52-181.114.123.176
53-181.51.100.15
53-65.55.185.254
75-186.121.250.114
Formato: totalconexiones-direcciónIP

Ejemplo: 75-186.121.250.114

Necesito guardar esto en un array en Perl y una función de Perl que se alimente de cada valor.

Ejemplo:

GeolocalizacionIP(@arrayip);

Resultado:
IP ...

Buenas.

Necesito elegir un directorio entre dos. Quiero seleccionar el directorio que tenga más ficheros y guardar su dirección con el nombre de $grib-directory, por ejemplo, que $grib-direcotory=/home/Enric/gfs-0.5.2016061400

Y en el caso, que los dos tengan 65 ficheros, quedarme con el primer directorio.

El siguiente código me da el número de ficheros por directorio y que tienen en común el término gfs.

$dir = "/home/Enric/GFS0.50/gfs-0.5.2016061400";
opendir(DIR, "$dir");
@FILES = grep { /gfs./ } readdir(DIR); ...

Un gusto en saludarlos nuevamente.

El siguiente problema que tengo me está desesperando, les pido su ayuda de alguien que sepa.

Resulta que necesito firmar digitalmente un trozo de texto:
<getToken>
<item>
<SEMILLA>000002248802</SEMILLA>
</item></getToken>

El tema es que no logro encontrar las librerías adecuadas para ello, ya que leí por ahí que esto lo hacía la librería xml::sig, pero en Windows no se puede instalar. Tengo el certificado y la llave privada para ver ...