Foro - Perl en Español

PearlBee es un sistema de blogging, escrito en Perl.

Un ejemplo de uso está en builtinperl.com

«En este vídeo-tutorial se muestra cómo escribir un programa simple de Perl el cual dada una secuencia nucleótidica y el nombre de una enzima de restricción tipo II, comprobará si la secuencia contiene dianas para la enzima dada. Para ello, previamente nos descargaremos la base de datos REBASE que contiene información sobre todas las enzimas de restricción tipo II conocidas.»

Buenos días.

Tengo un problema con los CGI de Perl de una página web que he creado. Cuando el usuario sube un archivo con espacios en blanco en el nombre, el CGI no reconoce el archivo y da error.

¿Hay alguna solución sencilla para eliminar los espacios en blanco y renombrar el fichero sin usar módulos? Como por ejemplo:

use File::Copy qw(move);

Aquí os dejo el código que escribí, pero que no puedo usar, porque ...

Hola, quiero hacer un script para Xchat usando Gtk y Glade. El problema es que llego a mostrar la ventana, pero cuando la cierro, esta me cierra también el Xchat.

Aquí la interfaz gráfica:

<?xml version="1.0" encoding="UTF-8"?>
<glade-interface>
<!-- interface-requires gtk+ 2.24 -->
<!-- interface-naming-policy project-wide -->
<widget class="GtkWindow" id="ventana">
<property name="can_focus">False</property>
<child>
<widget class="GtkButton" id="boton">
<property name="label" translatable="yes">button</property>
<property name="visible">True</property>
<property name="can_focus">True</property>
<property name="receives_default">True</property>
<property name="use_action_appearance">False</property>
<signal name="clicked" handler="salir" swapped="no"/>
</widget>
</child> ...

Estimados, estoy en Perl y tengo un atributo de la siguiente forma.
$self->{arrayDatos} = undef;
Donde en una función, le paso una lista para que después me devuelva la lista.
$self->{arrayDatos}=@filas;
return $self->{arrayDatos};
Si lo hago de esa forma no me retorna la lista, me retorna el número de datos...

En cambio, si hago esto:
$self->{arrayDatos}=@filas;
return @filas};
Si hago el retorno de la fila directamente funciona, pero no ...

Supongamos que tengo un archivo llamado documento.txt, el cual tiene la siguiente información:
juan
pedro
boris
bruno
martin
jose
daniel
y muchos otros nombres más; supongamos también que el nombre de jose aparece únicamente una vez en dicho archivo. ¿Cómo se puede hacer para saber en qué número de línea del archivo aparece el nombre de jose?

Gracias de antemano.

Hola, ¿qué tal? ¿Alguno de ustedes conocerá cómo puedo hacer que Perl reconozca de una manera inteligente (smart) qué TAGS mostrados en HTML fueron los modificados? De tal manera que cuando ejecute el query de Update solo se actualizaran los TAGS que se modificaron.

Gracias, Perl es muy potente y no dudo que existe alguna manera para hacer lo que pregunto.

Hola, estimados. Primero que todo felicitarlos por esta comunidad, no la conocía porque hasta ahora no he tenido la necesidad de programar en Perl.

Bueno, comencé hoy con la programación y estoy haciéndolo orientado a objeto.

Tengo un problema con comprobar la existencia de un archivo en Perl; sé que es fácil, le pondré un ejemplo.

Estoy probando con un método que antes de inicializar el atributo archivo, confirma que exista. Esta es la prueba: ...

Hola, estimados. Quisiera su ayuda nuevamente. Si bien tengo claro cómo recorrer un archivo txt y leer sus líneas, me he quedado entrampado ya que necesito extraer datos desde ciertos lugares del archivo. Un extracto del archivo es el siguiente:

<div class="Empresa">
<div class="Nombre">Empresa prueba</div>
<div class="Telefono">22222</div>
<div class="Telefono">33333</div>
<div class="Direccion">direccion, ciudad, país</div>
<div class="Pais">Pais</div>
<div style="width:492px; float:left;">
<br>
</div>
<div style="clear: both"></div>
Los valores que necesito sacar son:
Empresa prueba
22222 ...

Hola a todos, vuelvo a recurrir al foro, con un dilema de eliminación de palabras de un archivo, trataré de explicarlo en forma clara a ver si se me da una epifanía como en mi mensaje anterior. Va así:

Tengo un fichero de entrada (latex) del cual deseo eliminar una lista de palabras desde que inicia el documento hasta que encuentra la primera aparición de la palabra \begin{document}, para ello leo el archivo completo y ...