当前位置：首页 → 问答吧 → perl中如何读取文件中每行包含的数字，并输出该行数字的个数和和

perl中如何读取文件中每行包含的数字，并输出该行数字的个数和和

时间：2011-08-26

来源：互联网

作者: langpanpan 发布时间: 2011-08-26

请问同学你哪一步不会写：

读取文件
每行包含的数字
输出
该行数字的个数和和

另外什么叫“该行数字的个数和和”？

作者: iambic 发布时间: 2011-08-26

最后一步
例如：eee djadlvj 2 3 9 ;
包含3个数字，且其和为14.如何读出这个3和14？谢谢~~

作者: langpanpan 发布时间: 2011-08-26

这个问题也可以分解出三个问题：

找出所有的数
计算个数
求和

三个问题应该都可以google到。

Perl code

use strict;
use warnings;
use List::Util qw(sum);

my $line = 'eee djadlvj 2 3 9';
my @numbers = $line =~ /\d+/g;
print scalar @numbers, ", ", sum(@numbers);

作者: iambic 发布时间: 2011-08-26

方法有很多，你打算怎么做呢？
Perl code

my $str ='eee djadlvj 2 3 9';
# 现在 @array中即2 3 9，然后再求和
my @array = split /\D+/, $str;

作者: will2ni 发布时间: 2011-08-26

perl中如何读取文件中每行包含的数字，并输出该行数字的个数和和

热门阅读

热门下载