Foro - Perl en Español

¡Hola, perleros!

Tengo varios directorios llamados BLOCK00 -> BLOCK23 y en cada uno de ellos tengo 10 directorios SESxxx, de la siguiente forma:

BLOCK00 -> SES000, SES001, SES002... SES009
BLOCK01 -> SES010, SES011, SES012... SES019
...
BLOCK23 -> SES230, SES231, SES232... SES 239

Dentro de cada SES hay 316 ficheros de audio, cuyo nombre comienza por una U+Nºses+Nºfichero (p.ej. en SES011 hay: U011001.wav, U011002.wav, U011003.wav... U011316.wav). El problema es que un tercio de los ficheros ...

¡Hola a todos!

Tengo un problemilla, a ver si me ayudáis con él.

Quiero leer todos los ficheros de un directorio (r001.spl -> r230.spl). Para leer cada fichero, abro el fichero FITX con:

open (HANDLE, FITX);

y con un while, me recorro el fichero hasta el final.

Hasta ahí, bien. El asunto es que si utilizo opendir() para leer todos los ficheros del directorio, no sé cómo utilizar luego el "open":

opendir(DIRHANDLE,".")||die "ERROR: no se ...

Buenas de nuevo.
A ver si saben cómo hacer esto.
Tengo una línea en mi programa que ejecuta este comando:

qx ;

Lo que me gustaría hacer es que mientras se está ejecutando esta línea me muestre algún tipo de mensaje de procesado de información, como una barra de progreso pero sin los porcentajes, algo así:

Code: Seleccionar todo

Procesando información......

Pero ya sabéis, dinámico, que por ejemplo vayan apareciendo más ...

Hola foreros.

En primer lugar un saludo, soy nuevo en el foro y no mucho más en Perl.

Me he topado con un problema de novatos (supongo), y no he encontrado la solución en ningún foro.

Estoy creando un script en Perl que, en esencia, captura mediante el STDIN una cadena de texto y luego la guarda en un archivo (en este caso he elegido txt, pero podría ser cualquiera).

Me encuentro que debe haber ...

Bueno como perlero nuevo en este extraordinario lenguaje he realizado distintos ejercicios propuestos en diversos post del foro y ejercicios de libros de otros lenguajes, por ejemplo uno de C/C++ donde proponían realizar un dibujo sencillo con "*". Bueno, el resultado de mi código lo coloco abajo; lo único que quería saber es una forma más sencilla de hacerlo mśs legible y qué métodos utilizarían. Salu2...

#!/usr/bin/perl
use strict;
my $num = 0;
my $i ...

Hola, aquí me encuentro atrapado en este inmenso y gran mundo del perl; y no se si es por sobredosis de trabajo o por saturación de mis neuronas, que tengo una nueva duda que plantearles:

Me gustaría saber como puedo comprobar los permisos de una serie de archivos. En este caso necesito saber si unos determinados archivos no tienen los permisos de lectura y ejecución para todos los usuarios. Yo lo he intentado así:

...

Parece una tontería mi pregunta y creo que lo es, pero estoy teniendo muchos problemas para encontrar la forma de escribir comillas dobles en pantalla.

Por ejemplo:

$name = el nombre que sea;

print "El tipo en cuestión se llama "$name"";

Lo que quiero que aparezca sería:

El tipo en cuestión se llama "tal nombre"

Pero no hay forma, gracias por la ayuda.

Un saludo, bart.

Buenas:

Tengo un problema con unas cadenas largas de texto, necesito sacar una parte específica de ellas pero no lo consigo.

Las cadenas en cuestión son de este tipo, aunque no todas son iguales

====> 52bd1ea2-780f-71dd-1634-0ad781020000 43d3311a-8dd2-71dc-12b8-0ad781020000 1 -1407386946 20 COLG-SEV-571-RD1.oss 1 181895426 12 oss-ap-1.oss 0 0 16 0 0 0 1220264309 1220264312 0 2 9 1 181895426 12 oss-ap-1.oss 0 0 12 0 0 0 0 0 1220264650 0 10 Traps_SNMP 9 SNMPTraps 4 ...

Necesitaría restar dos fechas que se encuentran en el siguiente formato: dd/mm/YYYY, y no sé cómo inicializar el Date::Init. No puedo obtener la diferencia entre las dos.

Date_Init( "DateFormat=US", "TZ=EST5EDT" );
my $diferencia = DateCalc($fecha_inicio, $fecha_fin, 3);
my $real_dias = Delta_Format($diferencia,1,"%dt"); # pasar a días

¡¡¡ MUCHAS GRACIAS !!! :D

Acá de nuevo con otro problema...

Les cuento... debo hacer una aplicación en Perl, la cual pueda testar el estado de unos procesos... para esto debo hacer una conexión remota con usuario y password y debo ejecutar un archivo xxxxx.sh, el cual me debe devolver el estatus de éste...

Mi problema va en que la conexión remota aun no me funciona... he tratado de usar varias librerías pero aun nada.

Code: Seleccionar todo

Net::SSH::Perl
Net::SSH::Expect

He usado esas ...