Foro - Perl en Español

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 ...

Ya está disponible la web para el registro para el próximo YAPC::EU 2016, en Cluj-Napoca, Transilvania.

Hola, estoy traduciendo una regex a Delphi y quiero hacer una pregunta básica. Tengo lo siguiente:

hola1 : 123
hola2 : 124
hola3 : 125

Necesito solo hola2 : 124. Entonces, uso una regex así /hola2 (.*?)/.
El tema es que no sé cómo representar el final de esa línea, porque mi regex captura todo en adelante, o sea, todas las líneas después de hola2.

¿ Cómo se hace ?

Buenas a todos.

Tengo un tema el cual no lo he podido resolver, resulta que necesito crear un xml (lo estoy haciendo a mano), para consumir un web service, este xml debe tener varios datos de un certificado digital. Mi pregunta es: ¿qué librería podría ocupar para leer un certificado.pfx que tengo en mi poder? (usa contraseña), ya que necesito obtener del certificado: Exponent, Modulus, DigestValue, entre otros datos.


PD: por ahí leí que recomiendan ...

Hola, estoy probando este código:

#!/usr/bin/perl -w
# aptitude install libpdf-report-perl

use PDF::Report;

my $pdf = new PDF::Report( PageSize => 'A4', PageOrientation => 'Portrait');
my %hash_info = ( Author => "Leninmhs - Lenin Hernandez", Creator => "Perl v5.10.1",
Subject => "Practica Perl + PDF::Report ", Title => "Practica Perl + PDF::Report", CreationDate => "D:20110703112700");

$pdf->setInfo(%hash_info);
$pdf->newpage(1);
$pdf->setFont('Helvetica-bold');
$pdf->setSize(16);
my ($width, $height) = $pdf->getPageDimensions();

#$pdf->addImg( "banner.png" , 20, $height-40);
$pdf->centerString(0, $width, $height-80, "Reporte con ...

Hola. Vengo de estudiar CrystalReports en C# e IReport en Java. Estoy tratando de encontrar algo así en Perl. La idea es que pueda mostrar en un PDF el listado de los productos y mostrar gráficos de torta sobre los datos en el mismo. ¿Se puede hacer esto en Perl?