how to split full digit number?

virudinesh has asked for the wisdom of the Perl Monks concerning the following question:


my coding is

#!/usr/bin/perl
use warnings;
use strict;

my $f = 'chap 89.9';
 if($f=~m/chap.( |[a-z])*(\d+)/i)
                {
                print "  $2 \n";
                }


1.its print only 89

out put :

*..print full digit number 89.9
* also need n number of digit number
[download]

Comment on how to split full digit number? Download Code

Replies are listed 'Best First'.
Re: how to split full digit number? by hdb (Monsignor) on May 06, 2013 at 11:24 UTC
See below. I have added an extra pair of parantheses to make .9 optional... `use warnings; use strict; my $f = 'chap 89.9'; if($f=~m/chap.( \|[a-z])*(\d+)(\.(\d+))?/i) { print " $2 $4\n"; }` [download]	[reply] [d/l]
Re: how to split full digit number? by Anonymous Monk on May 06, 2013 at 12:48 UTC
simply like so: `#!/usr/bin/perl use warnings; use strict; my $f = 'chap 89.9'; if($f=~m/chap\s+?(\S+)/) { print " $1 \n", scalar @{[split//,$1]} -1; }` [download]	[reply] [d/l]