• Publicidad

opendir y open

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

opendir y open

Notapor xagutxu_perez » 2008-09-09 06:13 @300

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

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
open (HANDLE, FITX);
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4


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":

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
opendir(DIRHANDLE,".")||die "ERROR: no se puede leer directorio\n";
foreach (readdir(DIRHANDLE)){
        $SEM = 0;
        open(HANDLE, ??????);  # ¿Qué tengo que poner ahí?
        while(my $reng=<HANDLE>)
        {
                if ($reng.......){
               
                }
        }
        close(HANDLE);
}
closedir DIRHANDLE;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


Gracias,

Xagutxu
xagutxu_perez
Perlero nuevo
Perlero nuevo
 
Mensajes: 43
Registrado: 2008-04-04 03:56 @206

Publicidad

Notapor explorer » 2008-09-09 06:28 @311

readdir(HANDLE) te va devolviendo el nombre del fichero, que debes poner en el open().

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
foreach my $fichero (readdir(DIRHANDLE)){
    open HANDLE, "<$fichero" or die;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor xagutxu_perez » 2008-09-09 11:40 @527

¡Muchas gracias!
xagutxu_perez
Perlero nuevo
Perlero nuevo
 
Mensajes: 43
Registrado: 2008-04-04 03:56 @206


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 24 invitados

cron