File: survey_locales

package info (click to toggle)
libversion-perl 1%3A0.9909-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 584 kB
  • ctags: 878
  • sloc: perl: 1,958; ansic: 980; makefile: 2
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);