%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /root/.cpanm/work/1590825950.14464/version-0.9924/t/
Upload File :
Create Path :
Current File : //root/.cpanm/work/1590825950.14464/version-0.9924/t/survey_locales

#!/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);

Zerion Mini Shell 1.0