Foro - Perl en Español

por **zkizzik** » 2011-01-11 19:50 @868

Estaba haciendo un script en Perl en dos partes... una donde detecta si hay más de 5 archivos de forma recursiva dentro del directorio temporal de Windows y otro script que vacía el mismo directorio.

Hice un script pero no me funciona, algo hice mal. Yo estoy acostumbrado a codear en PHP y hacer retornos recursivos dentro de las mismas funciones autollamándose pero al parecer acá no funciona:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print c_dir($ENV{TMP})." archivos.\n";
 
sub c_dir{
 $dir = shift;
 opendir(TEMP ,$dir) or return 0;
 @ar = readdir(TEMP) or return 0;
 closedir(TEMP);
 
 $n = 0;
 foreach my $f (@ar){
  unless(($f eq '.') || ($f eq '..')){
   if(-d $ENV{TMP}.'\\'.$f){
    print "[dir]".$f."\n";
    $n = $n + c_dir($ENV{TMP}.'\\'.$f.'\\');
   }else{
    print "[file]".$f."\n";
    $n++;
   }
  }
 }
 return $n;
}
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

El problema es que el primer directorio detectado está vacío y no sé si eso es lo que me da problemas o el hecho de hacer autollamadas a la misma función.

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

[dir]Acrobat Distiller 8
0 archivos.
Presione una tecla para continuar . . .
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Ahora la otra pregunta... ¿es más eficiente eliminar archivo por archivo y luego cada directorio? ¿o habrá alguna función nativa en la versión Strawberry?

#! /usr/bin/perl
use strict;
 
sub list{
 my ($dir) = @_;
 return unless -d $dir;
 my @files;
 if(opendir my $dh, $dir){
   my @list;
   my $file;
   while($file = readdir $dh){
     push @list, $file;
   }
   closedir $dh;
   for $file (@list){
     next if $file eq '.' || $file eq '..';
     push @files, "$dir/$file"        if -f "$dir/$file";
     push @files, list ("$dir/$file") if -d "$dir/$file";
   }
 }
 return @files;
}
 
if(scalar(list($ENV{WINDIR} .'\\Temp')) > 2){
 exit 1;
}
exit 0;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Gracias de todas formas.

por **explorer** » 2011-01-12 08:07 @380

Pues es extraño que no te funcione File::Find... es muy fácil de usar. Por ejemplo:

perl -E 'use File::Find; find(sub {say $File::Find::name}, ".")'

(En Windows, hay que intercambiar las comillas dobles con las simples).

por **zkizzik** » 2011-01-12 14:27 @643

Muchas gracias.

Foro - Perl en Español

Contar archivos de forma recursiva en %tmp%

Contar archivos de forma recursiva en %tmp%

Publicidad

Re: Contar archivos de forma recursiva en %tmp%

Re: Contar archivos de forma recursiva en %tmp%

Re: Contar archivos de forma recursiva en %tmp%

Re: Contar archivos de forma recursiva en %tmp%

¿Quién está conectado?