File: survey_locales

package info (click to toggle)
libversion-perl 1%3A0.9924-1
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 504 kB
  • sloc: perl: 2,148; ansic: 1,017; makefile: 3
file content (15 lines) | stat: -rwxr-xr-x 378 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
#!/usr/bin/perl -w
use POSIX qw/locale_h/;

my $orig_loc = setlocale( LC_ALL );
my $loc;
open my $LOCALES, '-|', 'locale -a';
local $\ = "\n";
print "The following locales use comma as decimal point";
while (<$LOCALES>) {
    chomp;
    $loc = setlocale( LC_ALL, $_);
    print $_ if localeconv()->{decimal_point} eq ',';
}
close $LOCALES;
$loc = setlocale( LC_ALL, $orig_loc);