7. ACCESO A DIRECTORIOS.

Existen 3 métodos para accesar directorios :

+ Se puede redireccionar de /bin/ls así :

               open (FILES,"/bin/ls *.c |");

while ($file = ) { chop($file); ... }

+ Utilizando las rutinas de lectura de directorios que posee Perl como :

               opendir, readdir, closedir, seekdir, telldir,  y rewinddir.

+ La manera más fácil es usar la notación global de Perl. Un string contenido dentro de corchetes agudos ( <> ) conteniendo meta-caracteres del shell, genera una lista de nombres de archivos que concuerden.

                   foreach $x ( <*.[ch]> ) { rename ($x, "$x.old"); }

chmod 0644, <*.c>;



Volver