🚀 go-pugleaf

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

>>>>> "Han" == Han Solo <hsolo@maptel.es> writes:

    Han> �Alguien sabe como hacer en perl el equivalente a export
    Han> LC_ALL=ES_es en un script perl? Estoy haciendo unas cosillas
    Han> y los scripts son llamados autom�ticamente por el sistema,
    Han> con lo que no me coge la configuraci�n de lo locale.

De entrada, supongo que habras hecho:

        use locale;

en tus scripts.

Luego puedes cambiar el locale a voluntad con POSIX::setlocale. Para
ello necesitas perl 5.004 o posterior.

Directamente de 'man perllocale':

       # This functionality not usable prior to Perl 5.004
       require 5.004;

       # Import locale-handling tool set from POSIX module.
       # This example uses: setlocale -- the function call
       #                    LC_CTYPE -- explained below
       use POSIX qw(locale_h);

       # query and save the old locale
       $old_locale = setlocale(LC_CTYPE);

       setlocale(LC_CTYPE, "fr_CA.ISO8859-1");
       # LC_CTYPE now in locale "French, Canada, codeset ISO 8859-1"

       setlocale(LC_CTYPE, "");
       # LC_CTYPE now reset to default defined by LC_ALL/LC_CTYPE/LANG
       # environment variables.  See below for documentation.

       # restore the old locale
       setlocale(LC_CTYPE, $old_locale);

Saludos. I�aki.

- -- 
  Get PGP/GPG Keys at http://personales.jet.es/inaki.arenaza/pgpkey.html
  A proud member of GULA - http://gula.jet.es/

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.0.1 (GNU/Linux)
Comment: Processed by Mailcrypt 3.5.4 and GPG

iD8DBQE5jtviZXLnGT1HLgcRAmBfAJ9sOdu5ev0d2bGzZBgvLaqB89pKpgCeMEuC
+o6mZseqOvkxwyTdAQG7tpk=
=23NY
-----END PGP SIGNATURE-----