Récupère le nom de l'environnement local actuel en perl

Question

Je veux utiliser des milliers_sep en Perl. Je peux l'obtenir en utilisant le code suivant

use strict; 
use POSIX qw(setlocale locale_h LC_ALL); 
setlocale(LC_ALL, "fr_FR"); 
my $lc=localeconv(); 
print $lc->{thousands_sep}; 

Après que je voudrais modifier les paramètres linguistiques de retour à la valeur précédente, mais je ne sais pas comment je locale avant setlocale. Dois-je l'analyser à partir de $ENV{LANG} qui est défini sur en_US.UTF-8? Ou existe-t-il une autre méthode pour obtenir le nom des paramètres régionaux?

Answer 1

setlocale()setlocale() renvoie l'environnement local actuel lorsqu'il est appelé sans second argument, par ex.

my $oldlocale = setlocale(LC_ALL); 

Si vous souhaitez définir locale en fonction de l'environnement actuel, appelez avec une chaîne vide (ie. "").