Re: -f y -d de active perl

[Max de Mendizábal <mmendiz en acer com mx>]

Va la respuesta:

chdir("c:/x") || die "no puedo entrar al directorio";
opendir(D,"c:/x") || die "no puedo abrir el directorio";
@d = readdir(D);
foreach (@d) {
   if (-d $_) { print "d "; } else { print "  "; }
   print "$_\n";
}

Lo hice por pasitos para que quedara más claro. El problema es que readdir
sólo guarda el nombre del directorio y no la trayectoria completa,
entonces, cuando haces la prueba, la intenta hacer sobre el directorio
desde donde estás corriendo el script. El otro problema que tenías es que
readdir regresa un arreglo a partir de un DIRHANDLE pero eso ya es un
detalle menor.
Saludos
Max

On Wed, 4 Apr 2001, jose fernando castillo rosas wrote:

> las funciones -f y -d que utilizo bajo active perl de windows, no funcionan
> correctamente
> es por el s.o.?
>
> tengo una carpeta c:/x, la cual contiene otros archivos y directorios
> abrirlo y leer si se trata de una carpeta o un archivo, no me regresa ningun valor
>
> opendir (A,"c:/x/");
> while ($A=readdir<A>)
> {
> $tipo= -d ($A)
> print $tipo;
> }
>
> solo me regresa como TRUE el directrio "." y ".."
>
> _________________________________________________________________________________________
> Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com.
>
> --------------------------------------------------------- para salir de la lista,
> enviar un mensaje con las palabras "unsubscribe ayuda" en el cuerpo a
> majordomo en linux org mx
>

---------------------------------------------------------
para salir de la lista, enviar un mensaje con las palabras
"unsubscribe ayuda" en el cuerpo a majordomo en linux org mx