perlquestion
nithins
<p>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</p> <p> can somebody help me how to split an array which contain int > 9 </p> <p> this is the code which i tried</P>
<code> #!/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);
</code>