Foro - Perl en Español

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

Tenemos el placer de anunciar v5.24.0, la primera versión estable de la versión 24 de Perl 5.

Pronto podrá descargarlo Perl v5.24.0 de su espejo CPAN favorito o encontrarlo en:

https://metacpan.org/release/RJBS/perl-5.24.0/

Las firmas SHA1 de este lanzamiento son las siguientes:

298fa605138c1a00dab95643130ae0edab369b4d perl-5.24.0.tar.bz2
35770ea5cf49a1082852c2300ccc3cbbc58b70fd perl-5.24.0.tar.gz
9d5424ac2debe979d1f7255fe0c818aff0b41b4c perl-5.24.0.tar.xz

Puede encontrar una lista de cambios en el archivo "perldelta.pod" localizado en el directorio "pod" dentro de la distribución, y en la web. ...

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',
}, ...

Estimados, me pasa algo extraño. Tengo el siguiente script para recuperar datos con fecha null en MySQL, pero al ejecutar el script no me recupera los datos. Sin embargo, si ejecuto la misma consulta en phpmyadmin, por ejemplo, esta sí me trae información... Favor, su ayuda, que no logro dar con el problema...

#!/usr/bin/perl

use DBI;

my $database = "FACTURA";
my $data_source= "DBI:mysql:$database;" ;
my $username = "usuario";
my $password = "password";


my $sql = ...

Hola a todos nuevamente. Estoy tratando de capturar una serie de listas de un archivo latex, de la forma:
\begin{itemize}

\item a
\item b
\item c

\begin{itemize}
\item d
\item e
\end{itemize}

\item f
\item g

\end{itemize} definidas por \begin{itemize}...\end{itemize} y dejarlas dentro de Corta ... Aqui. Como las marcas que busco pueden estar unas dentro de otras y, de ser así, siempre están balanceadas, he tratado de capturarlas con una expresión regular recursiva ...

¡¡¡Hola de nuevo, Perl en Español!!!

Publico acá de nuevo porque tengo un problema de ingreso de datos a base de datos MySQL (uso XAMPP).

Ingreso 7 datos a la tabla (6 ya que el id es autogenerado): año, mes, comercializador, código, usuario, energía.

Pero cuando los datos están tildados o tienen 'ñ' se guardan en la base de datos símbolos ilegibles.


Los caracteres que guarda son: en vez de ÁÉÍÓÚÑáéíóúñ guarda ÁÉÍÓÚÑáéíóúñ


OJO: Este ...

Estimados, tengo el siguiente script para transferir PDF desde un sitio a otro, pero cuando me llegan al otro sitio, llega el PDF en blanco o bien con parte del PDF. Le he dado vueltas al tema y no sé qué puede ser. Desde ya, muchas gracias por su ayuda. Mi script es el siguiente:

#!/usr/bin/perl


use Net::FTP;
use Net::FTP::File;


my $ftp_site = 'ftp.sitio.com';
my $port = '21';
my $ftp_dir = 'PDF';
my $ftp_user ...

Estimados, tengo un problema. En el siguiente script pretendo buscar los archivos PDF de unas facturas que estoy rescatando de la BD. El tema es que si bien en la BD tengo varios números de factura el script siempre me imprime el primer PDF que encuentra:

#!/usr/bin/perl

use DBI;
use File::Find;

my $database = "FACTURAS";
my $data_source= "DBI:mysql:$database;" ;
my $username = "usuariodb";
my $password = "db2016";

my $sql = DBI->connect($data_source,$username,$password)
or die "Couldn't ...