Foro - Perl en Español

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?

Hola. Estoy por hacer un proyecto web grande en CGI. Es: alta, edición y borrar datos de una base de datos. Quería saber si alguien conoce recomendaciones para este tipo de casos ya que vengo de estudiar MVC en C#.

Hola. Tengo un contador de visitas CGI:

#! /usr/bin/perl

print "Content-type: text/html\n\n";

#Nombre del archivo que va guardando los incrementos
$this = "counter.txt";

#Abrimos el archivo para leer su contenido
open (THIS, "$this") || die("No puedo abrir el archivo!");
$that = <THIS>;
close (THIS);
open (THIS, ">$this") || die("No puedo abrir el archivo!");
$that++;
print THIS "$that";
close (THIS);
print "$that";
exit;

El script funciona pero, ¿cómo puedo ejecutar el script cada vez que alguien ...