🚀 go-pugleaf

--=-6PjhkBVmHF9zNcO+lGlo
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: quoted-printable

El dt, 26-09-2006 a las 17:12 +0200, AnimAlf escribi=C3=B3:
> Hola,
>=20

He diferenciado entre versiones y hago la entrada de diferentes modos.
=C2=BFSabeis a partir de que versi=C3=B3n de perl puede funcionar .. o la m=
a=C5=9B
probable? ahora he puesto la 5.8.5 pero es muy nueva tambi=C3=A9n. Quer=C3=
=ADa
poner la 5.6 pero no lo se seguro.

Otra cosa.

Je, je

Tengo una funci=C3=B3n recursiva de borrado de un directorio, me ocurre que
necesito utilizar un valor DIRHANDLE que no sea constante, en las
versiones reciente utilizo un valor variable como DIRHANDLE, pero en las
versiones antiguas no puede ser. Es decir hoy
   if (opendir (my $DIRECTORI,$dirActual))
y me funciona. Pero en versiones antiguas me da error, ha de ser
constante.

Puedo hacer esta funci=C3=B3n de otro modo =C2=BFen estas condiciones? o =
=C2=BFcual
seria el modo correcto de hacerlo en aquel entonces?

sub borraTotElDir {
  my $dirActual=3Dshift;
  if (opendir (DIRECTORI,$dirActual)){
    my $dinsDir;
    while ($dinsDir=3Dreaddir(DIRECTORI)){
      my $strViatjer =3D $dirActual . "/" . $dinsDir;
      if (-d $strViatjer){
        if ($dinsDir ne "." && $dinsDir ne ".."){
          borraTotElDir ($strViatjer);
        }
      } else {
        unlink ($strViatjer);
      }
    }
    closedir(DIRECTORI);
  }
  rmdir($dirActual);
}
 =20
> Gracias

--=-6PjhkBVmHF9zNcO+lGlo
Content-Type: application/pgp-signature; name=signature.asc
Content-Description: Esta parte del mensaje =?ISO-8859-1?Q?est=E1?= firmada
	digitalmente

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.5 (GNU/Linux)

iQCVAwUARSAxgx535IyztBIVAQLOBAP+MXGe+osC8AGaUyndhR5aZ5TxLfH3wrco
j5T2F09ndO0LQ3odHkGW5kFXCKUBjhaGnrN74ZVYc8tck93kPEnKnY8A6oUl8Pt/
/kWdwO2LrV+gkhUljAdi+tMAP/aTTbuJixY6aAfX/5rf+b7Whk/IzvjB5h40mStl
+j3BqdfROX8=
=p2d/
-----END PGP SIGNATURE-----

--=-6PjhkBVmHF9zNcO+lGlo--