🚀 go-pugleaf

  This message is in MIME format.  The first part should be readable text,
  while the remaining parts are likely unreadable without MIME-aware tools.

--8323328-800210553-1144705656=:21536
Content-Type: TEXT/PLAIN; charset=ISO-8859-1
Content-Transfer-Encoding: QUOTED-PRINTABLE

On Sun, 9 Apr 2006, David Serrano (Hue-Bond) wrote:

> Por si alguien se aburre (tanto como yo) (que no creo)...
>=20
> En un directorio cualquiera (por ejemplo, uno llamado "mp3" ;^)) tenemos =
un
> mont=F3n de directorios en los que dentro puede haber:
>=20
> a) varios archivos y/o directorios
> b) un =FAnico directorio
> c) un =FAnico archivo regular
>=20

#!/usr/local/bin/perl -w

ver("/home/");

sub ver{
    my $DIR =3D shift ;
    my $count=3D0;=09=09
    print "DIR-> $DIR\n";
    opendir DIR, $DIR or warn "Cannot open $DIR";
    my @files =3D readdir DIR;
    closedir DIR;
    for my $i (@files){
        next if ($i=3D~/^\.\z/ || $i=3D~/^\.\.\z/);
#        print "$i\n";
=09$count++;
        $newdir =3D $DIR.$i."/";
        if ( (chdir $newdir) ){
            ver($newdir);
        }
    }
    if ($count=3D=3D1) { print "$DIR has only 1 item\n"; }=09
}
__END__

UNTESTED


--8323328-800210553-1144705656=:21536--