Foro - Perl en Español

Hola.

Tengo una imagen ASCII que me gustaría mostrar en pantalla; la imagen tiene caracteres como

h$($(4R$/*)400hhh6$+/+R00#R36

El problema es que Perl siempre me tira errores. He intentado usando qq() pero
siempre tira error. Mi duda es si no hay alguna forma de mostrar en pantalla ignorando
esos caracteres.

Buenas tardes.

Tengo un array dentro de un ciclo el cual guarda datos por cada vuelta. En este caso, que al finalizar cada vuelta limpie el array, dejándolo en blanco para que en la otra vuelta tome otros datos, es necesario que no puedo reescribir el array con la data vieja, porque él mismo tendrá diferentes tamaños en cada ciclo y tener datos anteriores alteraría la lógica.

Buenas tardes a todos.

Después de mucho tiempo si usar Perl, estoy intentando resolver un problema. Tengo un archivo con unos dos mil DNI sin letra. Y estoy intentando hacer un script en Perl, que me lea el archivo y a cada número le asigne la letra correspondiente. Todavía estoy decidiendo si la salida la escribiré en otro archivo o en la siguiente columna del original, todo dependerá de lo que me cueste hacer una ...

Hola, hace tiempo que no trasteo con Perl y me cuesta la vida cada vez que tengo que hacer algún apaño...

Quiero hacer un script que abra 2 archivos de texto en los cuales hay palabras del tipo (por ejemplo):

Dic1:
aaa
bbb
ccc
...
Dic2:
111
112
113
...

Pues bueno, lo que quiero hacer es algo tan simplón como que las concatene 1 a 1:

Dic1+Dic2:
aaa111
bbb112
ccc113

Lo he intentado anidando ...

Dándole vuelta a la tuerca, ahora estoy intentando de conectar un cliente Perl como el siguiente con un servicio web Java probado con un cliente Java y funcionando. El servicio Java crea automáticamente el archivo WSDL, así que asumimos que lo crea correctamente y lo probamos con un cliente Java ( que no viene al caso ya que la idea es probar el Perl como cliente, pero confirmo que funciona bien ) :

Cliente Perl: ...

Hola, ¿qué tal? Estoy tratando de generar un archivo de Excel con la info de una tabla de una base de datos en MySQL. Estoy usando el módulo DBIx::Report::Excel, pero me arroja un error al final. ¿Alguna recomendación?

En la base de datos tengo la base test y la tabla foo; tiene un par de registros con los campos de name y de id.

mysql> SELECT * FROM foo;
+------+--------+
| id | name | ...

Hola, ¿qué tal...?

¿Cómo puedo hacer una suma de valores de una columna con respecto a otra columna, siempre y cuando el valor de columna 2 sea el mismo...? Por ejemplo:

172 IGHV9-4-01
2 IGHV9-4-01
3 IGHV9-4-01
4 IGHV9-3-1-01
11 IGHV9-3-01
954 IGHV9-3-01
3 IGHV9-3-01
1 IGHV9-3-01
1 IGHV9-3-01
242 IGHV9-1-01
1 IGHV9-1-01

esto es parecido a mi archivo de entrada... la salida sería de este modo:


5 IGHV9-4-01
4 IGHV9-3-1-01 ...

¿Qué tal, gente?

Los molesto nuevamente con una consulta.

A partir de sus consejos, en un tema anterior (performance-perl-vs-mysql-en-busquedas-t6081.html) llegué al siguiente código: es un servicio web donde al que se le pasa como parámetro un dominio/sitio y te devuelve la categoría a la que pertenece el mismo.

El servicio web consta 3 archivos: Ws.pm, ws.cgi y ws_cliente.pl (desde donde se realizan las consultas).

El archivo Ws.pm
...

Hola a todos,

Una consulta simple.

En un script escrito en Perl la manera de llamar a un programa externo es a través de "system".

system "programa.x argumentos 1 2";

Mi pregunta es: ¿cómo puedo almacenar la salida de system() para utilizarla dentro del mismo script?

¿Sería válido esto?

$i=system "programa.x argumentos 1 2";

Gracias,

Saludos

Hola,

necesito verificar que la conexión a una base de datos Oracle desde una máquina con Windows funciona con OLE DB (no ODBC, por desgracia, mi vida sería más fácil). He conseguido conectar y sacar datos, pero no consigo que me devuelva una columna en concreto.

#!perl
use warnings;
use strict;

# thanks to http://sunsite.berkeley.edu/ead/tools/eaddb/fundamentals.html

# invoke the Win32::OLE methods for database connectivity
use Win32::OLE;
use Win32::OLE::Const 'Microsoft ActiveX Data Objects';

# define the conection ...