Foro - Perl en Español

Hola,

Estoy intentando crear un script que modifique ciertas características de un texto escrito en XML. El texto 'input' sería algo así:
<etiqueta1>
<etiqueta2>text texto texto. PS6000</etiqueta2>
</etiqueta1>

El texto contenido en <etiqueta2> siempre termina con un código del tipo "PS + cuatro dígitos" (por ejemplo, PS6000).

Lo que necesito es un script que convierta el texto 'input' en el siguiente texto 'output':
<etiqueta1 n="PS6000">
<etiqueta2>text texto texto. PS6000</etiqueta2>
</etiqueta1>
Es decir, un ...

Necesito substituir todas las apariciones de texto entre <b> y </b> de un html por su correspondiente hipervínculo.

Por ejemplo,<b>pepito<b><b>fulanito</b>por<b><a href="http://www.pepito.com">pepito</a><b><b><a href="http://www.fulanito.com">fulanito</a></b>y quería saber si se puede hacer con un solo s//g.

Tampoco tengo claro si le pongo que coja lo que hay entre <b> y </b> que no me vaya a coger el primer <b> con el último </b>.

¿Alguna idea de cómo hacerlo?

¡Gracias!

Hola, quería preguntar si alguien conocía algún módulo o forma de cambiar la IP por otra cualquiera. Solo busco que se cambie por otra aleatoria.

¿ Alguien sabe cómo hacerlo en Perl ?

P.d.: encontré esto en bash:
ipconfig/release

netsh interface ip set address name="Internet" source=static 1.1.0.0 255.255.255.0 192.168.1.1 1

netsh interface ip set address name="Internet" source=dhcp
netsh interface ip set dns "Internet" static none

Hola, ¿qué tal?

Estoy realizando algunas consultas SQL con un script hecho en Perl. Verán: obtengo unos registros los cuales requiero insertar en una tabla en Firebird, solo que al ejecutar el Procedure para el INSERT me marca este error:

conversion error from string "20140220161918" at copyEtiq.pl

por lo que llegué a la conclusión de que este formato no es legible para Firebird, es decir no puede insertar las fechas de esta manera.

¿De que ...

Soy nuevo en este asunto de las expresiones regulares, y no sé cómo hacer esto.

Tengo códigos de este tipo:

ppa009832m.g
ppa000331m.g
ppa026666m.g
ppa004700m.g
ppa011429m.g
ppa003984m.g
ppa010914m.g
ppa026327m.g

y quiero extraer solo lo que está antes de 'm.g'. Ejemplo: ppa009832

¿Cómo se puede hacer?

Saludos

Saludos a la comunidad.

Mi consulta: no sé si se habrá respondido en otro lugar, pero busqué y no encontré algo claro. El tema es bien simple:

¿Cómo descodifico un script previamente aplicada la codificación Acme::Pony?

Gracias a todos.

Hola a todos, vuelvo al foro con el siguiente problema. Trataré de explicarme de la forma más clara posible.

Dispongo de varios archivos de la siguiente forma:

\documentclass{article}
\usepackage{pstricks}
\tcbuselibrary{listings,
breakable,
skins}
\begin{document}
Este texto va acá
\begin{MYexample}
Bloque 1 que deseo extraer, acá van cosas como
\def alguna cosa
\psset{unit=0.5cm,
runit=0.5cm
}
\begin{pspicture}(0,3)(10,10)
\psdot(2,4)\pscircle(7,7){2}
% otras cosas
\psCircleTangents(2,4)(7,7){2}
\pcline(2,4)(CircleT1)

\end{postscript}
\end{MYexample}

Acá va más texto

\begin{MYexample}
Bloque 2 que deseo ...

¡Hola!

Tengo una matriz no cuadrada y quiero invertir los valores de sus filas y columnas. ¿Se puede hacer esto en Perl? Lo que quiero hacer es algo como:
A B C D
1
2
3
4
5
quede así:
1 2 3 4 5
A
B
C
D
Muchas gracias por cualquier colaboración.

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