setlocale function : setlocale « System Functions « Perl

1. Perl
2. System Functions
3. setlocale

setlocale function

    
#!/usr/bin/perl

use strict;
use warnings;
use locale;
use POSIX 'locale_h';

setlocale(LC_COLLATE, 'fr_CH');
setlocale(LC_NUMERIC, 'en_US');
setlocale(LC_MONETARY, 'fr_CH');
setlocale(LC_TIME, 'fr_FR');

print "The monetary locale is ", setlocale(LC_MONETARY), "\n";

print "All locale settings: ", setlocale(LC_ALL), "\n";

   
    
    
    
  

Related examples in the same category