Foro - Perl en Español

Hola a todos,

El caso es que tengo que implementar un script que recupere un fichero XML, lo abra, lo parsee, y según el valor de un atributo, lo meta en un directorio o en otro.

¿Alguien me puede dar un link con todas las funciones y ejemplos que me puedan ser útiles para el parseo de ficheros XML?

He intentado usar el modulo XML::Smart, pero no esta instalado, y no se trata de un ...

Hola Amigos Perlianos :

Necesito diseñar un script en Perl para que cuando se ejecute cree las tablas de una base de datos de MySql.

Normalmente esto se puede hacer creando una sentencia SQL, como esta :

Code: Seleccionar todo

create table clubes (
   recid int(10) not null auto_increment,
   distrito varchar(10),
   club varchar(60),
   primary key (recid))
   type=MyISAM comment="";

por cada tabla que desee crear.

Mi pregunta es cómo sería el código dentro de un Perl Script.

De antemano ...

Mu wenas, compañeros. Este es mi primer post en este foro y quiero dar un ¡¡¡SALUDO A TODOS!!!.

Hace poco que he comenzado ha programar en Perl y ya necesito montar un boot para irc con el paquete NET::IRC (es un ejercicio de aprendizaje), el caso es que de momento la conexión la he establecido en un canal 'x' de freenode.net para hacer las pruebecillas.

Este boot consiste en un juego simplillo, en el que ...

Hola a todos,

El caso es que tengo que desarrollar un script que se conecte a una máquina remota para obtener todo fichero .xml existente en un directorio determinado de dicha máquina.
La transferencia debe ser implementada mediante "sftp" (secure file transfer program), ya que el clásico FTP no se considera suficientemente seguro en dicha implementación (no soy yo el que no lo considera sino mis jefes).

¿Alguien tiene alguna idea sobre cómo implementar la ...

Hola tengo un problema y espero que me puedan ayudar.
bueno,lo que necesito es leer un directorio y sus subdirectorios, pero no necesito leer todos los archivos, sólo los de algún tipo de extensión, es decir que tengo:

Code: Seleccionar todo

MI DIR
      |_ sound1.gsm
      |_ sound2.gsm
      |_ texto.txt
      |
      |_ MI SUB DIR
               |_ sound3.gsm
               |_ sound4.gsm
               |_ texto2.txt

Bueno, sólo necesito leer los .gsm y ponerlos en un hash que tenga como clave el nombre del ...

Buenos días. Se me ha presentado un problema que me gustaría que me respondieran. Será posible exportar tablas desde una aplicación web realizada con template toolkit a una página de Microsoft Exel o una página de Word, y si es posible que me expliquen cómo hacerlo.

gracias de antemano

Pues eso tan fácil, no sé si es porque somos viernes o qué pero no sé cómo hacerlo jeje, me explico:
¿¿Hay alguna forma que al hacer una división no se quede con los decimales?? o una vez echa la división, por ejemplo, da 5.6666666 podría quedarme sólo con el primer valor.
Había intentado algo rudimentario que es hacer un split(".",$variable) y luego coger el primer valor del vector pero no me deja partir la ...

use strict;
use Socket;
socket(HTTP, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
my $atn = inet_aton("freshmea.net");
my $add = sockaddr_in(80, $atn);
connect(HTTP, $add) or die "Conexión: $!\n";
send(HTTP, "GET http://freshmeat.net HTTP/1.0\n", 0);
send(HTTP, "Host: www.yahoo.com\n", 0);
send(HTTP, "User-Agent: perlhttp/0.1 ($^O)\n\n", 0);
chomp(my $msg = <HTTP>); #status
while(my $line = <HTTP>){
chomp;
#hacer algo con headers y codigo...
print $line;
}
shutdown HTTP, 2; #por si algo anda ...

Resumen (no puedo extenderme por el problema): me conecto a Internet, puedo entrar a las páginas, pero no puedo acceder a los correos en ninguna máquina (hotmail, latinmail, yahoo, gmail, outlook)... por ejemplo a yahoo entra pero no puedo enviar NADA, en los foros entra y si paso de más de 15 líneas NO ENVÍA NADA, sale error ... el servicio de Internet aquí CANTV, nos dice que ellos no ven problema alguno ... ¡¡¡alguna ...

Hermanos, tengo una duda. Quisiera saber cómo puedo realizar una búsqueda con like pero que esté dentro con el patrón pero sin importar si es mayúscula o minúscula.

ejemplo:

$patron="mi nombre es andy";//atributo en bd
Andy
andy
aNdy
andY


select * from saludo where men LIKE '%$patron%'