http://search.cpan.org/dist/Regexp-Common/ Regexp::Commonã«ã¯ãã::number ã ã::URI::http çã®æ§ã ãªæ£è¦è¡¨ç¾ãéãããã¦ãã¾ãã Regexp::Common::number ã¾ããRegexp::Common::numberã使ç¨ããã°ãæ°å¤å½¢å¼(æ´æ°ãå°æ°)ãã§ãã¯ãç°¡åã«å®è£ ãããã¨ãã§ãã¾ãã â»1,000ã®ããã«ã«ã³ãåºåãOKã #!C:/Perl/bin/perl use strict; use warnings; use Regexp::Common qw /number/; my @test_vals = (-1000,"-1,000",-1,0,1,100,1.0,1.5,"1000A"); for my $org_val ( @test_vals ){ #æ´æ°ã®æ°å¤æ¸å¼check (-se
{{#tags}}- {{label}}
{{/tags}}