数组中的值怎样相加

zhaimeng

@photoids = split /:/, $album->{'m_PhotoSeq'};

print scalar(@photoids), "\:";   #算出所有数据，m_PhotoSeq字段中的:的个数，以1:1:3:3:格式排序

后得出1:1:3:3:   

用perl怎么把:间的值相加？ 相加后的值应该是8

怎么求出　1:1:3:3　中最大的值是3


谢谢各位大侠!

[ 本帖最后由 zhaimeng 于 2007-8-8 16:28 编辑 ]

flw

scalar(@photoids), "\:"; 这个是啥意思？

zhaimeng

@photoids = split /:/, $album->{'m_PhotoSeq'};

print scalar(@photoids), "\:";   #算出所有数据，m_PhotoSeq字段中的:的个数，以1:1:3:3:格式排序

后得出1:1:3:3:

flw

原帖由 zhaimeng 于 2007-8-8 17:29 发表
@photoids = split /:/, $album->{'m_PhotoSeq'};

print scalar(@photoids), "\:";   #算出所有数据，m_PhotoSeq字段中的:的个数，以1:1:3:3:格式排序

后得出1:1:3:3:

哦，看来是改过 $\，很 Perl5- 的写法啊。

flw

试试这个吧：

my $sum = 0;
$sum += $_ foreach @photoids; 或者 map {$sum += $_} @photoids;
print $sum;

zhaimeng

运行后，得出的值是84618，不是8。 1:1:3:3: 中怎样得出最大值3。

@photoids = split /:/, $album->{'m_PhotoSeq'};
                #print scalar @photoids, "\:";
                my $sum = 0;
                $sum += $_ foreach @photoids; #或者 map {$sum += $_} @photoids;
                print $sum;


多谢版主热心帮助!

[ 本帖最后由 zhaimeng 于 2007-8-8 18:35 编辑 ]

perljoker

发现flw到处飘啊，像巡逻兵

kq01

实在不行就写个小小的sub，或者到cpan上找个库embeded吧

zhaimeng

已经用其它的方式解决了，谢谢大家