p5pRT
commented
19 years ago From Torsten.Werner@assyst-intl.com
Created by torsten-werner@assyst-intl.com
This is a bug report for perl from torsten-werner@assyst-intl.com\, generated with the help of perlbug 1.35 running under perl v5.8.4.
----------------------------------------------------------------- Posix::strtod at Windows has a problem if a large number of digits appears after decimal dot.
Example: G:\>perl use POSIX qw( strtod ); print join('\, '\,strtod("12.45006789"))\, "\n"; ^D 12\, 9
G:\>
Perl is able to create and handle this kind of numbers.
Just in the moment I use a own function. I post it inside a test program. It works for different decimal dots in different regional settings of Windows.
################ cut here #####################
use strict; use warnings;
BEGIN { if ($^O eq 'MSWin32') { require Win32::TieRegistry; } }
use POSIX qw( localeconv ); my $decimal = localeconv()->{decimal_point} || '.'; my $win_decimal=($^O eq 'MSWin32') ? $Win32::TieRegistry::Registry->{' \CUser\Control Panel\International\\sDecimal'} : undef;
sub strtod ($) { local $_=shift; my $dec_expr=''; my %chars; DECIMALS: foreach my $char ($decimal\, $win_decimal) { next DECIMALS if exists $chars{$char}; $dec_expr.=sprintf("\\x%x"\,ord($char)) if defined $char; $chars{$char}=1; }; $dec_expr="[$dec_expr]"; $dec_expr=qr/$dec_expr/; # replace ".123" by "0.123"\, the regexp for numbers is easier so: s/^([+-]{0\,1})$dec_expr/${1}0$decimal/; # find the leading number in 123.456 and 0.123456e3 notation: m/^((?-xism:[+-]{0\,1}\d+(?-xism:$dec_expr\d+){0\,1}(?i-xsm:e[+-]{0\,1} \d+){0\,1}){0\,1})(.*)$/; my $num=$1 ? $1 : 0; my $no_num=$2 ? $2 : ''; return ($num\,length($no_num)) if wantarray; return $num; }
sub show($) { my $string=shift; my ($num\, $no_num)=strtod($string); print "String: '$string' num: '$num'\, no_num: '$no_num'\n"; }
show 123 + 0.4560056789; show "123\,456.Hello"; show "Hallo"; show "-123"; show "-123."; show "+123"; show "+123."; show "+.2"; show ".2"; show "-.2"; show ".2e"; show ".2e3"; show ".2e.2"; show ".2e-.2"; show ".2E-2"; show "-.2e-.2"; show "-.2e+2"; show "-.2e+.2";
############## cut here ################
Migrated from rt.perl.org#32316 (status was 'rejected')
Searchable as RT32316$