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:
Using perl Syntax Highlighting
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":
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;
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.002 segundos, usando GeSHi 1.0.8.4
Gracias,
Xagutxu