Foro - Perl en Español

Buenos días, a través de la siguiente consulta:

SELECT id,descrip_comp,fecha_sale,fecha_entra,id_causa,id_anexo FROM t_eventos te, c_tipo_componentes ctc, c_componentes cc WHERE te.subestacion='EDO' AND tipo_evento like 'ATENDIDO%' AND (fecha_sale BETWEEN '2013-01-01 00:00:00' AND '2013-08-31 23:59:59') AND indice='S' AND te.id_tipo_componente=ctc.id_tipo_componente AND ctc.id_componente=cc.id_componente GROUP BY id,descrip_comp,fecha_sale,fecha_entra,id_causa,id_anexo ORDER BY descrip_comp,fecha_sale;

id | descrip_comp | fecha_sale | fecha_entra | id_causa | id_anexo
-----+--------------+---------------------+---------------------+----------+----------
260 | COMPONENTE1 | 2013-05-24 15:57:00 | 2013-05-25 14:23:00 | PAIS |
266 | COMPONENTE2 | 2013-07-29 18:23:00 | ...

Hola, estoy tratando de traducir esta expresión regular de Perl a C# porque son parecidas pero tengo un problema con "\s+" que da error en C# como "secuencia de escape no reconocida".

while ( $code =~ /<!-- info mp3 here -->\s+(.*?)<\/div>/migs ) {

Match regex = Regex.Match(codigofuente, "<!-- info mp3 here -->\s+(.*?)</div>", RegexOptions.IgnoreCase

El texto a buscar es algo así:
<div class="left">
<!-- info mp3 here -->
192 kbps<br>5:20<br>7.36 mb </div>

¿ ...

Hola.

Realizo varias consultas dentro de dos ciclos y en la última de las consultas arroja: Can't call method "prepare" on an undefined value. ¿Me puedes asesorar en cuál puede ser el error? Creé una segunda variable $dbh_fe, el correspondiente $sth_fe y el correspondiente while ($reg_fentra = $sth_fe->fetchrow_hashref()) { pero no arroja resultado alguno.

¿Me podrás apoyar, por favor, con alguna idea, por favor? Gracias.

Buenos días.

Quería consultar qué versión de Perl (si existe :D) es compatible para realizar consultas a una base de datos 11g. :?:

Cualquier información es bienvenida. ¡Gracias! :D

Hola a todos.

Quiero correr un script (runant.pl) varias veces para lo que simplemente lo puse dentro de un while {}, pero una vez que lo corre una vez sale del loop y termina sin cumplir la condición del while. Entiendo que es básica la forma en que lo hice, pero también es básico mi conocimiento de Perl, ¡je,je!

¡Muchas a todos!

Esto es lo que escribí:
#!/usr/bin/perl
use File::Copy;

my $n = 1; ...

Hola.

Me gustaría saber si utilizar estos dos módulos. Estoy intentado hacer un script que se conecte por SFTP desde una máquina Windows a Linux para traerme datos, y soy incapaz, tanto de instalar el módulo como de hacerlo funcionar.

Me da errores por todos los lados.

¿Alguna ayudita?

Muchas Gracias.

Tengo el siguiente código que traducí de Perl a PHP:

$code = toma("http://www.melissadata.com/lookups/iplocation.asp?ipaddress=".$ip);

if (preg_match("/City<\/td><td align=(.*)><b>(.*)<\/b><\/td>/i",$code)) {
$re = preg_match("/City<\/td><td align=(.*)><b>(.*)<\/b><\/td>/i",$code);

print_r($re);

El gran problema es que solo me devuelve 1. He probado con $re o $re pero siempre devuelve nada o uno.

¿ Qué hice mal ?

Tengo la siguiente tabla :

echo "<table border=1 style='margin: 0 auto;'>";
echo "<td><br><center>Titulo</center><br></td><tr>";
echo "<td>Final<td><tr>";
echo "</table>";

Lo que me molesta es ese espacio a la derecha en la tabla , no sé cómo corregirlo, lo he centrado y todo.

¿ Cómo evito este espacio ?

Hola, estaba pensado en los programas de Windows en donde se hace clic derecho en una imagen, le dan a un menú y mandan la ruta de la imagen a un programa hecho en Delphi donde la editan y cosas así. El tema es que quiero hacer lo mismo en Delphi pero no tengo la menor de idea de cómo se hace. ¿ Alguien me podría decir el nombre del método o de cómo se ...

Hola. Estoy tratando de evitar el famoso <script>alert('hola mundo');</script> en un archivo. Esto lo soluciono con htmlentities en PHP pero quería preguntar cómo lo evito en un archivo html generado con Perl. Había pensado que antes de generar en archivo html cerrar las etiquetas <> con otra cosa para evitar esto pero ¿ qué otra soluciones tengo ?

P.D.: esto es en un archivo local, no para una página web.