Foro - Perl en Español

Hola, estoy queriendo practicar subversion para sigo sin entender cómo hacerlo. Con github lo tengo claro: solo necesito los comandos git y creo los repositorios de forma manual, pero ¿en subversion cómo practico? leí varios manuales pero es pura teoría.

Muy buenas.

Me están pidiendo que dada una fecha sea capaz de dar la fecha del día siguiente usando una subrutina del tipo acción. Yo he hecho una usando referencias que es capaz de hacerla pero no sé si es la forma correcta.

Otro problema que tengo es que, en los meses, si intento poner valores numéricos me da problema el último día del año: si pongo 31-12-4 me da 1-13-4.

Muchas gracias y perdón ...

Hola, buenas tardes. Por favor, ¿cómo puedo obtener el valor de un input?


<label for="edit-name">Nombres y apellidos del usuario <span class="form-required" title="Este campo es obligatorio.">*</span></label>
<div class = "form-group"><input class="username form-control" type="text" id="edit-name" name="name" value="juan1" size="60" maxlength="60" /></div>
</div>
<div class="form-item form-type-textfield form-item-mail">
<label for="edit-mail">Dirección de correo electrónico <span class="form-required" title="Este campo es obligatorio.">*</span></label>
<div class = "form-group"><input class="form-control" type="text" id="edit-mail" name="mail" value="[email protected]" size="60" maxlength="254" /></div>
</div>
</div><input type="hidden" name="form_build_id" value="form-NP6zF1cjhSs3oz89sxCidX3C_OcNJn6037NlRpKnMa4" /> ...

Hola estimados, tengo la siguiente duda: estoy capturando desde un web service con el siguiente script una respuesta SOAP:
$VAR1 = {
'S:Body' => {
'ns4:SinteIED' => {
'xmlns:ns4' => 'http://ws.iid.sd.eedt.cl/SinteIED',
'xmlns:ns3' => 'http://ws.iid.sd.eedt.cl/Consultar',
'MovimientosCliente' => {
'Movimiento' => [
{
'NOMBRE' => 'ALTIMAS,
'MONTO' => '0.0',
'PAIS_CODIGO' => '522',
'GUIAS' => ,
}
]
},
'xmlns:ns2' => 'http://ws.iid.sd.eedt.cl/MovimientosClienteWS'
}
},
'xmlns:S' => ...

Hola, muy buenas.

He de hacer un reemplazo masivo en unos archivo php, los cuales tienen en su código expresiones regulares, de manera que se me complica y mucho. Pondré un ejemplo básico para ver si se puede hacer lo que quiero, y de ahí intentar abarcar el problema.

Tengo una variable dentro del php que es la que quiero cambiar:

$regexp = '/<div>(.*?)<\/div>/';

y ha de quedar así:

$regexp ...

Buenos días,

Necesito leer un fichero de log en XML (soap.log). De este fichero, necesito:

1. que busque los errores 500: <codigo>-500</codigo>

2. que si encuentra lo anterior se quede con el párrafo que va desde <GBPFault> hasta </GBPFault>

3. que si se cumplen las dos premisas anteriores, que capture como variables el <level>X</level>, el <message>XXXX </message> y el <appname>XXX </appname>.

Además me surge la duda de cómo hacer algún tipo de "marca de agua" ...

Buenas. Estaba mirando un programa que han subido aquí y no entiendo muy bien este trozo de código.

my @orfs = $sequence =~ /(ATG(?:.{3})*?)(TAA|TAG|TGA|.{1,3}$)/g;

Muchas gracias.

Como todos los años, hoy han comenzado a publicarse los calendarios de adviento dedicados a Perl.

Estos calendarios ofrecen un artículo diario, con temas muy interesantes o curiosos, desde el día 1 al 24 de diciembre.

Ya están disponibles los de Perl y Perl 6.

Podéis seguir su actividad por correo electrónico o Twitter.

Hay un ejercicio que me está rompiendo la paciencia, por la falta de sintaxis y lo enredado que lo veo.

Que reciba dos parámetros: <dir> y <arch>, de modo que devuelva todos los archivos
en <dir> que: son <arch>, son enlaces duros a <arch> o son enlaces simbólicos
directos o indirectos (enlace simbólico a un enlace simbólico) a <arch>.

Soy un usuario básico en este lenguaje, no espero una solución definitiva, seria buenísimo si las ...

Hola.

Me he hecho una función que envía correos. La voy a utilizar para que en caso de que suceda un error en un script me envíe un correo indicándomelo. La función send_mail funciona correctamente.

Mi intención es que si hay un error de lectura/escritura me envíe un correo antes de que muera.

La línea en cuestión es:
open (CSV, $archivo) || &send_mail("Open_fail","Couldn't read $archivo.csv: $!") and die;
El archivo existe, pero ni lo ...