Foro - Perl en Español

por **audax** » 2016-08-11 11:20 @514

Buenas, tengo una duda con el método setlocale. Lo que quiero hacer es cambiar la configuración local del "decimal_point" que está establecida con punto, por una coma y "thousands_sep" que está en coma, por un punto.

Para ello tengo el siguiente código.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use POSIX qw(locale_h);
use locale;
 
my $oldlocale = setlocale(LC_CTYPE); # aquí me entrega la configuración regional del equipo 
my $nuevalocale = setlocale(LC_CTYPE,"es_MX") or die "No cambia" ; # aquí no cambia a la configuración mexicana que es la que necesito
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

¿Alguien me puede decir qué estoy haciendo mal? Gracias.

#!/usr/bin/env perl
use open IO => ':locale';
use POSIX qw(locale_h);
use locale;
 
my $oldlocale   = setlocale(LC_CTYPE);
my $nuevalocale = setlocale(LC_CTYPE,"es_MX.utf8") or die "No cambia";
 
 
my $locale_values = localeconv();
 
# salida ordenada de los valores
for (sort keys %$locale_values) {
    my($k, $v) = ($_, $locale_values->{$_});
 
    if ($k =~ /grouping/) {
        my @g = unpack "C*", $v;
        $v = "[" . join("|", @g) . "]";
    }
 
    printf "%-20s = %s\n", $k, $v;
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

La salida es:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

currency_symbol      = €

decimal_point        = ,

frac_digits          = 2

grouping             = [3|3]

int_curr_symbol      = EUR 

int_frac_digits      = 2

int_n_cs_precedes    = 0

int_n_sep_by_space   = 1

int_n_sign_posn      = 1

int_p_cs_precedes    = 0

int_p_sep_by_space   = 1

int_p_sign_posn      = 1

mon_decimal_point    = ,

mon_grouping         = [3|3]

mon_thousands_sep    = .

n_cs_precedes        = 0

negative_sign        = -

n_sep_by_space       = 1

n_sign_posn          = 1

p_cs_precedes        = 0

p_sep_by_space       = 1

p_sign_posn          = 1

thousands_sep        = .Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

por **audax** » 2016-08-19 12:57 @581

Muchas gracias, explorer. Al final era algo parecido a como dices tu, pero para Windows el idioma se escribe diferente. A mi me sirvió al final el idioma español de España, o sea el código fue "Spanish_Spain.1252".

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $nuevalocale = setlocale(LC_CTYPE,"Spanish_Spain.1252")
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Gracias por la ayuda.

Foro - Perl en Español

Pasar de punto a coma

Pasar de punto a coma

Publicidad

Re: Pasar de punto a coma

Re: Pasar de punto a coma

¿Quién está conectado?