How to split an integer??

Hi monks, please help me out with this qn. I have a array which contains integer value . if the integer is greater than 9 the i need to split it and add it for ex: '23' i need to split it 2 & 3 and add i,e 2+3=5

can somebody help me how to split an array which contain int > 9

this is the code which i tried

 #!/usr/bin/perl
use strict;
use warnings;
my $inp;
print "Enter the input file\n";
$inp = <STDIN>;
chomp ($inp);
my (@date,@mn,@year) ;
my $total =0;
if( $inp=~/(\d+)\-(\d+)\-(\d+)/) {
    foreach my $a ($1) {
        #tried to split here dint worked 
        @date =$1; 
    }
    @mn =$2;
    @year =$3;
    print "@date,@mn,@year\n";
}
print scalar(@date);
print length(@date); 
[download]

Comment on How to split an integer?? Download Code
Re: How to split an integer?? by tobyink (Prior) on Dec 06, 2012 at 10:26 UTC
Looks very similar to this question: Manipulating data from a file. See my previous answer: Re: Manipulating data from a file. `perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'`	[reply]
Re^2: How to split an integer?? by nvivek (Priest) on Dec 06, 2012 at 10:32 UTC
We can also do it in simple manner by using numeric operator for comparison without having regular expression used in the mentioned thread.	[reply]
Re^3: How to split an integer?? by tobyink (Prior) on Dec 06, 2012 at 10:39 UTC
I prefer the regular expression to numeric comparison, because... `use strict; my $var = "xyz"; print "it's a single-digit number!!\n" if $var < 10;` [download] Is "xyz" really a single digit number? `perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'`	[reply] [d/l]
Re^4: How to split an integer?? by nithins (Acolyte) on Dec 06, 2012 at 10:51 UTC
Reaped: Re^5: How to split an integer?? by NodeReaper (Curate) on Dec 06, 2012 at 10:53 UTC
Re^5: How to split an integer?? by McDarren (Abbot) on Dec 06, 2012 at 11:28 UTC
Re^5: How to split an integer?? by tobyink (Prior) on Dec 06, 2012 at 11:40 UTC
Re^5: How to split an integer?? by nvivek (Priest) on Dec 07, 2012 at 04:44 UTC


Keep It Simple, Stupid
	PerlMonks

How to split an integer??

The best material for plates (tableware) is: