Foro - Perl en Español

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

Tengo este archivo de 2 columnas...

Code: Seleccionar todo

contig00003   FBO8G5401CWQ5N
contig00003   FBO8G5402F3NCU
contig00003   FBO8G5402GCMD8
contig00003   FBO8G5402FFLIP
contig00003   ALB_18F12_F_ab1
contig00003   ALBSCV_03C08_F_ab1
contig00003   FA8IC4H02DS8JW
contig00003   FBO8G5402HGKUR
contig00003   FBO8G5402FI9DB
contig00002   ALSINT_04P11_R_ab1
contig00002   ALSINT_04E24_R1_ab1
contig00002   ALSINT_04I22_R_ab1
contig00002   ALSINT_04I22_R1_ab1
contig00002   ALSINT_05H03_R_ab1
contig00002   ALSINT_01O23_R_ab1

Lo que quiero es que me imprima la columna 1 (contig00003) y que me vaya contando de la columna 2 cuántas veces aparece F.* y me lo imprima y cuántas veces aparece ALB.* y también me lo imprima... y ...