Foro - Perl en Español

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

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