Foro - Perl en Español

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

Buenas tardes.

Tengo un documento XML que necesitaría procesar. En concreto necesito extraer la información del atributo "HGNC" dentro de la etiqueta "result".

<Tool>
<schema xsi:schemaLocation="http://Tool/API/Prediction.xsd"/>
<search id=" MIMAT0000246">
<results>
<result id="227" HGNC="Tmem50b" EnsEMBL="ENSMUSG00000022964">
<miRNA>mmu-miR-122-5p</miRNA>
<method_name>Mirtarbase</method_name>
<result_type>external_info</result_type>
<data_type>Branched DNA probe assay</data_type>
<support_type>Functional MTI</support_type>
<pmid>18438401</pmid>
</result>
</results>
</search>
</Tool>

Para procesar este XML se facilita un programa que yo he modificado para que me presente los resultados en un archivo de salida con un formato ...

Hola.

Con el siguiente código quiero listar ficheros de un directorio y modificar el string d01 por d02 en todos aquellos ficheros que contengan este string... El código lista los ficheros pero no me guarda el cambio de string... ¿Qué debería añadir? Gracias.

my @files = glob("*.dat *.out");
foreach my #file (@files) {
print "$file\n";
s/d01/d02/g;
}

use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
$mech->get( "http://kreatibox.com:2086/" );

response is: Error GETing http://kreatibox.com:2086/: Can't connect to kreatibox.com:2086 connection timeout
Ese código de arriba me funciona muy bien en mi local y en un servidor de prueba, pero hay otro servidor que no funciona y no sé la razón. La respuesta del soporte fue:

Please note that we cannot enable the port 9443 on the server. You need ...

¡Buenos días!

Estoy tratando de programar un CGI que, entre otras cosas, envíe un correo con determinado texto y con una imagen a modo de firma.

Mi código es este:
my $correo = Email::MIME->create(
attributes => {
content_type => 'multipart/alternative',
},
header_str => ,
parts => [
Email::MIME->create(
attributes => {
content_type => 'text/plain' ,
encoding => 'quoted-printable',
charset => 'utf-8',
}, ...