Foro - Perl en Español

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

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

Hola nuevamente. Sólo con una pregunta sencilla pero que no he podido hacerla andar. El problema es el siguiente:

Tengo una cadena cualquiera. Ejemplo 123456. Necesito sacar el Ascii de cada valor pero no encuentro la forma de combinar las expresiones regulares con la función ord(). No sé si me puedan echar una mano o me dan otra idea.

En teoría la variable me quedaría de esta manera: 123456=495051525354.

A ver si me ayudan.

Gracias ...

Por más que he buscado no logro encontrar un tema en donde se trate o se vea cómo entrar a un servidor y ver la bandeja de entrada de los correos pudiendo ver la cantidad de correos, etc.

Alguna ayuda por favor.

Hola a todos,

El caso es que quiero implementar una función que me devuelva los dos primeros caracteres de cualquier string (sea cual sea su longitud). ¿Que os parece el siguiente codigo?

my $long = length($_from);
return substr($_from, -$long, -$long+2);

¿Hay alguna forma más directa de hacerlo?

¡Muchas gracias!
Felipe

Hola.

Estoy conociendo el Perl ya que me lo recomendaron ampliamente, pero soy totalmente nuevo en este lenguaje.

Tengo un trabajo pendiente que me ha costado resolver. El problema es el siguiente: tengo 1 archivo de texto (llamado DSK061204MEX.txt) que contiene 14 registros con la siguiente estructura:

Code: Seleccionar todo

061204AJUSTES    00000001234567
061204INTERF       00000007895412

Ahora quiero incluir los 3 últimos caracteres del nombre del archivo al principio de cada registro es decir :

Code: Seleccionar todo

MEX061204AJUSTES    00000001234567
MEX061204INTERF       00000007895412

Ya ...

Hola.
Tengo un problema.
Quisiera saber cómo realizar una búsqueda en un archivo de texto, y a partir de allí llevar una determinada cantidad de líneas a una hash.
Espero que me puedan ayudar

Hola de nuevo,

my $result = strftime "%Y%m%d", gmtime($_date);
return $result;

El caso es que deseo el resultado con el formato siguiente:
YYMMDD, pero la instrucción usada mas arriba me lo da con el formato siguiente:

YYYYMMDD.

¿Hay alguna forma de obtener sólo los dos últimos dígitos del año directamente con la función strftime, sin tener que pasar por el siguiente codigo?

my (undef, undef, undef, $_day, $_month, $_year, undef, undef, undef) = gmtime ($_date); ...